equal
deleted
inserted
replaced
915 RETURN ( __setInitTrace( (aBoolean == true) ) ? true : false); |
915 RETURN ( __setInitTrace( (aBoolean == true) ) ? true : false); |
916 %} |
916 %} |
917 ! ! |
917 ! ! |
918 |
918 |
919 !ObjectMemory class methodsFor:'access debugging'! |
919 !ObjectMemory class methodsFor:'access debugging'! |
|
920 |
|
921 debugPrivacyChecks:aBoolean |
|
922 "turn on/off checks for private methods being called. |
|
923 By default, this is on in the ST/X IDE, but off for standAlone (packaged) endUser |
|
924 applications. Method privacy is an experimental feature, which may be removed in later |
|
925 versions, if it turns out to be not useful." |
|
926 |
|
927 %{ /* NOCONTEXT */ |
|
928 extern int __setPrivacyChecks__(); |
|
929 |
|
930 RETURN ( __setPrivacyChecks__( (aBoolean == true) ) ? true : false); |
|
931 %} |
|
932 ! |
920 |
933 |
921 setTrapOnAccessFor:anObject |
934 setTrapOnAccessFor:anObject |
922 "install an access trap for anObject; |
935 "install an access trap for anObject; |
923 An accessSignal will be raised, whenever any instvar of anObject is either read or written. |
936 An accessSignal will be raised, whenever any instvar of anObject is either read or written. |
924 This is not supported on all architectures, therefore the return value |
937 This is not supported on all architectures, therefore the return value |
3044 VM will try hard to not allocate more oldSpace memory. (its not a hard limit) |
3057 VM will try hard to not allocate more oldSpace memory. (its not a hard limit) |
3045 If zero, it will allocate forever (until the OS wont hand out more). |
3058 If zero, it will allocate forever (until the OS wont hand out more). |
3046 The default is zero." |
3059 The default is zero." |
3047 |
3060 |
3048 %{ /* NOCONTEXT */ |
3061 %{ /* NOCONTEXT */ |
3049 extern unsigned __maxOldSpace(); |
3062 extern unsigned INT __maxOldSpace(); |
3050 |
3063 |
3051 RETURN (__MKUINT( __maxOldSpace((unsigned int)-1) )); |
3064 RETURN (__MKUINT( __maxOldSpace((unsigned INT)-1) )); |
3052 %}. |
3065 %}. |
3053 ^ 0 |
3066 ^ 0 |
3054 " |
3067 " |
3055 ObjectMemory maxOldSpace |
3068 ObjectMemory maxOldSpace |
3056 " |
3069 " |
3067 Usually, the background GC will catch up sooner or later and reclaim |
3080 Usually, the background GC will catch up sooner or later and reclaim |
3068 the memory without blocking the system" |
3081 the memory without blocking the system" |
3069 |
3082 |
3070 |result| |
3083 |result| |
3071 %{ |
3084 %{ |
3072 extern unsigned __maxOldSpace(); |
3085 extern unsigned INT __maxOldSpace(); |
3073 |
3086 |
3074 if (__isInteger(amount)) { |
3087 if (__isInteger(amount)) { |
3075 result = __MKUINT( __maxOldSpace(__unsignedLongIntVal(amount))); |
3088 result = __MKUINT( __maxOldSpace(__unsignedLongIntVal(amount))); |
3076 } |
3089 } |
3077 %}. |
3090 %}. |
5499 ! ! |
5512 ! ! |
5500 |
5513 |
5501 !ObjectMemory class methodsFor:'documentation'! |
5514 !ObjectMemory class methodsFor:'documentation'! |
5502 |
5515 |
5503 version_CVS |
5516 version_CVS |
5504 ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.264 2013-01-11 14:30:08 cg Exp $' |
5517 ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.266 2013-01-26 21:42:14 cg Exp $' |
5505 ! |
5518 ! |
5506 |
5519 |
5507 version_SVN |
5520 version_SVN |
5508 ^ '§ Id: ObjectMemory.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5521 ^ '§ Id: ObjectMemory.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
5509 ! ! |
5522 ! ! |