equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 'From Smalltalk/X, Version:2.10.9 on 25-jun-1996 at 22:25:18' ! |
|
14 |
|
15 ExecutableFunction variableSubclass:#CompiledCode |
13 ExecutableFunction variableSubclass:#CompiledCode |
16 instanceVariableNames:'flags byteCode' |
14 instanceVariableNames:'flags byteCode' |
17 classVariableNames:'NoByteCodeSignal InvalidByteCodeSignal InvalidInstructionSignal |
15 classVariableNames:'NoByteCodeSignal InvalidByteCodeSignal InvalidInstructionSignal |
18 BadLiteralsSignal NonBooleanReceiverSignal ArgumentSignal' |
16 BadLiteralsSignal NonBooleanReceiverSignal ArgumentSignal' |
19 poolDictionaries:'' |
17 poolDictionaries:'' |
176 ! |
174 ! |
177 |
175 |
178 changeLiteral:aLiteral to:newLiteral |
176 changeLiteral:aLiteral to:newLiteral |
179 "change aLiteral to newLiteral" |
177 "change aLiteral to newLiteral" |
180 |
178 |
181 |lits| |
179 |lits nLits "{ Class: SmallInteger }" | |
182 |
180 |
183 self size == 1 ifTrue:[ |
181 self size == 1 ifTrue:[ |
184 lits := self at:1. |
182 lits := self at:1. |
185 ] ifFalse:[ |
183 ] ifFalse:[ |
186 lits := self. |
184 lits := self. |
187 ]. |
185 ]. |
188 |
186 |
189 1 to:(lits size) do:[:i| |
187 nLits := lits size. |
|
188 1 to:nLits do:[:i| |
190 (lits at:i) == aLiteral ifTrue:[ |
189 (lits at:i) == aLiteral ifTrue:[ |
191 lits at:i put:newLiteral. |
190 lits at:i put:newLiteral. |
192 ^ true. |
191 ^ true. |
193 ]. |
192 ]. |
194 ]. |
193 ]. |
195 ^ false. |
194 ^ false. |
196 |
195 |
197 "Created: 24.6.1996 / 15:08:11 / stefan" |
196 "Created: 24.6.1996 / 15:08:11 / stefan" |
198 "Modified: 24.6.1996 / 17:07:56 / stefan" |
197 "Modified: 24.6.1996 / 17:07:56 / stefan" |
|
198 "Modified: 4.7.1996 / 11:12:39 / cg" |
199 ! |
199 ! |
200 |
200 |
201 do:aBlock |
201 do:aBlock |
202 "same as #literalsDo:, in order to get common protocol with Array" |
202 "same as #literalsDo:, in order to get common protocol with Array" |
203 |
203 |
534 ! ! |
534 ! ! |
535 |
535 |
536 !CompiledCode class methodsFor:'documentation'! |
536 !CompiledCode class methodsFor:'documentation'! |
537 |
537 |
538 version |
538 version |
539 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.31 1996-06-28 15:32:22 stefan Exp $' |
539 ^ '$Header: /cvs/stx/stx/libbasic/CompiledCode.st,v 1.32 1996-07-04 13:26:45 cg Exp $' |
540 ! ! |
540 ! ! |
541 CompiledCode initialize! |
541 CompiledCode initialize! |