Status: Accepted
Owner:
[hidden email]
Labels: Type-Bug Milestone-2.0
New issue 5841 by
[hidden email]: referredInstVars
http://code.google.com/p/pharo/issues/detail?id=5841referredInstVars
| allInstVarNames instVarNames |
allInstVarNames := self methodClass allInstVarNames.
self isReturnField ifTrue:
[^Set with: (allInstVarNames at: self returnField + 1)].
instVarNames := Set new.
self abstractBytecodeMessagesDo:
[:msg|
(#(#popIntoReceiverVariable:
#pushReceiverVariable:
#storeIntoReceiverVariable:) includes: msg selector) ifTrue:
[instVarNames add: (allInstVarNames at: msg argument + 1)]].
^instVarNames
"Dictionary newFromPairs: (Point selectors collect: [:s| { s. (Point >> s)
referredInstVars}])"
Attachments:
CompiledMethod-referredInstVars.st 724 bytes
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker