<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style type="text/css" style="display:none;"><!-- P {margin-top:0;margin-bottom:0;} --></style>
</head>
<body dir="ltr">
<div id="divtagdefaultwrapper" style="font-size:12pt;color:#000000;font-family:Calibri,Helvetica,sans-serif;" dir="ltr">
<div id="divtagdefaultwrapper" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;" dir="ltr">
<p>Hi Eliot,</p>
<p><br>
</p>
<p>> <span style="font-size: 12pt;">+        vmLimit := Smalltalk parameterAt: 67.</span></p>
<div><br>
</div>
<p></p>
This leads to an MNU in my image. Did you mean: Smalltalk vmParameterAt: 67? :-)</div>
<div id="divtagdefaultwrapper" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;" dir="ltr">
<br>
</div>
<div id="divtagdefaultwrapper" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;" dir="ltr">
Best,</div>
<div id="divtagdefaultwrapper" style="font-size: 12pt; color: rgb(0, 0, 0); font-family: Calibri, Helvetica, sans-serif, EmojiFont, "Apple Color Emoji", "Segoe UI Emoji", NotoColorEmoji, "Segoe UI Symbol", "Android Emoji", EmojiSymbols;" dir="ltr">
Christoph<br>
<br>
<div style="color: rgb(0, 0, 0);">
<div>
<hr tabindex="-1" style="display:inline-block; width:98%">
<div id="x_divRplyFwdMsg" dir="ltr"><font face="Calibri, sans-serif" color="#000000" style="font-size:11pt"><b>Von:</b> Squeak-dev <squeak-dev-bounces@lists.squeakfoundation.org> im Auftrag von commits@source.squeak.org <commits@source.squeak.org><br>
<b>Gesendet:</b> Samstag, 11. Juni 2022 01:32 Uhr<br>
<b>An:</b> squeak-dev@lists.squeakfoundation.org; packages@lists.squeakfoundation.org<br>
<b>Betreff:</b> [squeak-dev] The Trunk: System-eem.1359.mcz</font>
<div> </div>
</div>
</div>
<font size="2"><span style="font-size:10pt;">
<div class="PlainText">Eliot Miranda uploaded a new version of System to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/System-eem.1359.mcz" id="LPlnk920967" previewremoved="true">http://source.squeak.org/trunk/System-eem.1359.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: System-eem.1359<br>
Author: eem<br>
Time: 10 June 2022, 4:32:43.464831 pm<br>
UUID: 3485074c-6683-47b8-a79b-6a3723cbc7a0<br>
Ancestors: System-eem.1358<br>
<br>
Implement heapMemoryLimit correctly.<br>
<br>
=============== Diff against System-eem.1358 ===============<br>
<br>
Item was changed:<br>
  ----- Method: SmalltalkImage>>heapMemoryLimit (in category 'memory space') -----<br>
  heapMemoryLimit<br>
+        "If an old space memory-limit is in effect, answer it as an Integer number of bytes, otherwise, nil."<br>
+        | vmLimit |<br>
+        vmLimit := Smalltalk parameterAt: 67.<br>
+        ^vmLimit isZero ifFalse: [vmLimit]!<br>
-        "If a memory-limiting argument to the vm was supplied (-memory or -maxoldspace), answer it as an Integer number of bytes, otherwise, nil."<br>
-        | foundMemoryArg |<br>
-        foundMemoryArg := false.<br>
-        Smalltalk optionsDo: <br>
-                [ : each | <br>
-                (#('-memory' '--memory' '-maxoldspace' '--maxoldspace') includes: each)<br>
-                        ifTrue: [ foundMemoryArg := true ]<br>
-                        ifFalse: <br>
-                                [ foundMemoryArg ifTrue: <br>
-                                        [ | arg |<br>
-                                        arg := each.<br>
-                                        "The memory arg is expected to be a number that ends in k, m, or g."<br>
-                                        (arg isEmptyOrNil or: [ arg size < 2 ]) ifFalse:
<br>
-                                                [ | requestedMemory |<br>
-                                                requestedMemory := (arg  copyFrom: 1 to: arg size - 1) asNumber.<br>
-                                                requestedMemory > 0 ifTrue: <br>
-                                                        [ ^ requestedMemory * (arg last<br>
-                                                                caseOf:<br>
-                                                                        { [$k] -> [1000].  [$K] -> [1000].<br>
-                                                                        [$m] -> [1e6].  [$M] -> [1e6].<br>
-                                                                        [$g] -> [1e9].  [$G] -> [1e9] }<br>
-                                                                otherwise: [^nil]) ] ] ] ] ].<br>
-        ^ nil!<br>
<br>
<br>
</div>
</span></font></div>
</div>
</div>
</body>
</html>