equal
deleted
inserted
replaced
10 |
10 |
11 !IRInstVarStore methodsFor:'interpret'! |
11 !IRInstVarStore methodsFor:'interpret'! |
12 |
12 |
13 executeOn: interpreter |
13 executeOn: interpreter |
14 |
14 |
15 Preferences compileBlocksAsClosures |
15 "Preferences compileBlocksAsClosures"false |
16 ifFalse: [interpreter storeInstVar: number] |
16 ifFalse: [interpreter storeInstVar: number] |
17 ifTrue: [interpreter pushLiteral: number. |
17 ifTrue: [interpreter pushLiteral: number. |
18 interpreter send: #privStoreIn:instVar:]. |
18 interpreter send: #privStoreIn:instVar:]. |
19 |
19 |
|
20 "Modified: / 25-02-2009 / 15:24:03 / Jan Vrany <vranyj1@fel.cvut.cz>" |
20 ! ! |
21 ! ! |
21 |
22 |
22 !IRInstVarStore methodsFor:'testing'! |
23 !IRInstVarStore methodsFor:'testing'! |
23 |
24 |
24 isRead |
25 isRead |