--- a/smalltalk.rc Thu Mar 10 13:29:35 2016 +0100
+++ b/smalltalk.rc Thu Mar 10 13:32:39 2016 +0100
@@ -397,21 +397,12 @@
"/ ObjectMemory maxOldSpace:1024*1024*512.
ExternalBytes sizeofPointer == 8 ifTrue:[
- "/ limit to 2GB to prevent a runaway program from thrashing the system
+ "/ limit to 8GB to prevent a runaway program from thrashing the system
"/ if you really need more, change that line
- ObjectMemory maxOldSpace:2*1024*1024*1024.
+ ObjectMemory maxOldSpace:8*1024*1024*1024.
+ "/ ObjectMemory maxOldSpace:40*1024*1024*1024.
].
-"/ this changes the size of the eden generation, where objects
-"/ are initially allocated. Making it bigger may increase pause
-"/ times a bit, if many objects survive, but reduces the overall overhead
-"/ For server type applications (request-response-loops such as in webServers),
-"/ it is a good idea to make it big enough to handle a request-cycles temporary
-"/ data
-
-"/ ObjectMemory newSpaceSize:(2*1024*1024).
-"/ ObjectMemory newSpaceSize:(8*1024*1024).
-
"/ experimental: configure the memory manager to quickly increase
"/ its oldSpace, as long as it stays below 256Mb
"/ (i.e. do not enter a blocking mark&sweep or compress,
@@ -424,6 +415,16 @@
ObjectMemory fastMoreOldSpaceLimit:256*1024*1024.
ObjectMemory fastMoreOldSpaceAllocation:true.
+"/ this changes the size of the eden generation, where objects
+"/ are initially allocated. Making it bigger may increase pause
+"/ times a bit, if many objects survive, but reduces the overall overhead
+"/ For server type applications (request-response-loops such as in webServers),
+"/ it is a good idea to make it big enough to handle a request-cycles temporary
+"/ data
+
+"/ ObjectMemory newSpaceSize:(2*1024*1024).
+"/ ObjectMemory newSpaceSize:(8*1024*1024).
+
"/ server settings; possibly longer worst case pause times,
"/ but less overhead overall.
"/ Use this for webservers, protocol servers etc, where blocking times
@@ -584,6 +585,17 @@
Smalltalk at:#Double put:Float.
Smalltalk at:#Browser put:SystemBrowser.
+
+"/
+"/ some ANSI name aliases
+"/
+(Smalltalk includesKey:#DateAndTime) ifFalse:[
+ Smalltalk at:#DateAndTime put:Timestamp.
+].
+(Smalltalk includesKey:#Duration) ifFalse:[
+ Smalltalk at:#Duration put:TimeDuration.
+].
+
!
|file|