equal
deleted
inserted
replaced
614 |
614 |
615 MallocFailureSignal := AllocationFailureSignal newSignalMayProceed:true. |
615 MallocFailureSignal := AllocationFailureSignal newSignalMayProceed:true. |
616 MallocFailureSignal nameClass:self message:#mallocFailureSignal. |
616 MallocFailureSignal nameClass:self message:#mallocFailureSignal. |
617 MallocFailureSignal notifierString:'(malloc) allocation failure'. |
617 MallocFailureSignal notifierString:'(malloc) allocation failure'. |
618 |
618 |
619 LowSpaceSemaphore := Semaphore new. |
619 LowSpaceSemaphore := Semaphore new name:'LowSpaceSemaphore' |
620 ]. |
620 ]. |
621 DisposeInterruptHandler := self. |
621 DisposeInterruptHandler := self. |
622 IncrementalGCLimit := 500000. |
622 IncrementalGCLimit := 500000. |
623 FreeSpaceGCLimit := FreeSpaceGCAmount := nil. |
623 FreeSpaceGCLimit := FreeSpaceGCAmount := nil. |
624 MemoryInterruptHandler := self. |
624 MemoryInterruptHandler := self. |
2958 BackgroundFinalizationProcess notNil ifTrue:[ |
2958 BackgroundFinalizationProcess notNil ifTrue:[ |
2959 BackgroundFinalizationProcess priority:aPriority. |
2959 BackgroundFinalizationProcess priority:aPriority. |
2960 ^ self |
2960 ^ self |
2961 ]. |
2961 ]. |
2962 |
2962 |
2963 FinalizationSemaphore := Semaphore new. |
2963 FinalizationSemaphore := Semaphore new name:'FinalizationSemaphore'. |
2964 |
2964 |
2965 p := |
2965 p := |
2966 [ |
2966 [ |
2967 [ |
2967 [ |
2968 [true] whileTrue:[ |
2968 [true] whileTrue:[ |
3981 ! ! |
3981 ! ! |
3982 |
3982 |
3983 !ObjectMemory class methodsFor:'documentation'! |
3983 !ObjectMemory class methodsFor:'documentation'! |
3984 |
3984 |
3985 version |
3985 version |
3986 ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.133 1997-01-24 20:44:27 cg Exp $' |
3986 ^ '$Header: /cvs/stx/stx/libbasic/ObjectMemory.st,v 1.134 1997-01-24 22:10:08 cg Exp $' |
3987 ! ! |
3987 ! ! |
3988 ObjectMemory initialize! |
3988 ObjectMemory initialize! |