Skip to content
This repository has been archived by the owner on Mar 26, 2023. It is now read-only.

NIL_REFERENCES: Added mechanism to cut (nil) references during commit #286

Merged
merged 3 commits into from May 3, 2013
Merged
Show file tree
Hide file tree
Changes from all commits
Commits
File filter

Filter by extension

Filter by extension

Conversations
Failed to load comments.
Jump to
Jump to file
Failed to load files.
Diff view
Diff view
10 changes: 10 additions & 0 deletions src/kernel/bootstrap/Module.rb
Expand Up @@ -3,6 +3,15 @@ class Module
# See also delta/Module.rb

primitive_nobridge '__instvar_get', 'rubyInstvarAt:'

primitive_nobridge '__maglev_nil_references', '_nilReferences:'

def maglev_nil_references(switch=true)
raise ArgumentError, "A module/class cannot be persistable and marked as nil_references at the same time." if switch and self.maglev_persistable?
__maglev_nil_references(switch)
end

primitive 'maglev_nil_references?', '_nilReferences'

def __isBehavior
true
Expand Down Expand Up @@ -465,6 +474,7 @@ def remove_class_variable(name)
# <tt>Class#maglev_persistable_instances</tt> for controlling whether
# instances of the class are persistable.
def maglev_persistable(methodsPersistable = false)
raise ArgumentError, "A module/class cannot be persistable and marked as nil_references at the same time." if self.maglev_nil_references?
methodsPersistable = (methodsPersistable == true)
self.__set_persistable(methodsPersistable)
end
Expand Down
16 changes: 16 additions & 0 deletions src/smalltalk/ruby/Module_ruby.gs
Expand Up @@ -637,4 +637,20 @@ name
].
^ name
%
method:
_nilReferences: aBool

self _validatePrivilege ifTrue:[
aBool ifTrue:[
format := format bitOr: GC_DB_NIL_REFERENCES_MASK.
] ifFalse:[
format := format bitAnd: (GC_DB_NIL_REFERENCES_MASK bitInvert)
].
self _refreshClassCache: false .
].
%
method:
_nilReferences
^ (format bitAnd: GC_DB_NIL_REFERENCES_MASK) ~~ 0
%