equal
deleted
inserted
replaced
31 |
31 |
32 ObjectMemory comment:' |
32 ObjectMemory comment:' |
33 COPYRIGHT (c) 1992 by Claus Gittinger |
33 COPYRIGHT (c) 1992 by Claus Gittinger |
34 All Rights Reserved |
34 All Rights Reserved |
35 |
35 |
36 $Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.29 1995-03-06 19:17:00 claus Exp $ |
36 $Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.30 1995-03-08 23:38:52 claus Exp $ |
37 '! |
37 '! |
38 |
38 |
39 !ObjectMemory class methodsFor:'documentation'! |
39 !ObjectMemory class methodsFor:'documentation'! |
40 |
40 |
41 copyright |
41 copyright |
52 " |
52 " |
53 ! |
53 ! |
54 |
54 |
55 version |
55 version |
56 " |
56 " |
57 $Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.29 1995-03-06 19:17:00 claus Exp $ |
57 $Header: /cvs/stx/stx/libbasic/Attic/ObjMem.st,v 1.30 1995-03-08 23:38:52 claus Exp $ |
58 " |
58 " |
59 ! |
59 ! |
60 |
60 |
61 documentation |
61 documentation |
62 " |
62 " |
401 |
401 |
402 initialize |
402 initialize |
403 "initialize the class" |
403 "initialize the class" |
404 |
404 |
405 AllocationFailureSignal isNil ifTrue:[ |
405 AllocationFailureSignal isNil ifTrue:[ |
406 Object initialize. |
406 ErrorSignal isNil ifTrue:[super initialize]. |
407 |
407 |
408 AllocationFailureSignal := Object errorSignal newSignalMayProceed:true. |
408 AllocationFailureSignal := ErrorSignal newSignalMayProceed:true. |
409 AllocationFailureSignal nameClass:self message:#allocationFailureSignal. |
409 AllocationFailureSignal nameClass:self message:#allocationFailureSignal. |
410 AllocationFailureSignal notifierString:'allocation failure'. |
410 AllocationFailureSignal notifierString:'allocation failure'. |
411 |
411 |
412 LowSpaceSemaphore := Semaphore new. |
412 LowSpaceSemaphore := Semaphore new. |
413 ]. |
413 ]. |