Class >> securityPolicy causes infinite loop
By Sam Phillips - Posted on March 5th, 2008
| Project: | GNU Smalltalk |
| Component: | Base classes |
| Category: | bug |
| Priority: | normal |
| Assigned: | Unassigned |
| Status: | fixed |
Description
sam@osiris:~$ gst
GNU Smalltalk ready
st> Object securityPolicy
"Global garbage collection... done"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... done, heap grown"
"Global garbage collection... Segmentation fault (core dumped)
sam@osiris:~$
Updates
#1 submitted by Paolo Bonzini on Tue, 03/18/2008 - 09:56
| Status: | active | » fixed |
Just two methods with the wrong name:
diff --git a/kernel/Class.st b/kernel/Class.st
index 2aa5b6e..3dd4b39 100644
--- a/kernel/Class.st
+++ b/kernel/Class.st
@@ -541,12 +541,12 @@ the class category.'>
aStream nextPutAll: (self nameIn: Smalltalk)
]
- policy [
+ securityPolicy [
^securityPolicy
]
- policy: aSecurityPolicy [
+ securityPolicy: aSecurityPolicy [
securityPolicy := aSecurityPolicy withOwner: self
]