hg/stx-libcomp: Decompiler.st@a03891b6fc30 (annotated)

0 7ad01559b262 Initial revision claus parents: diff changeset	1	"
4 f6fd83437415 * empty log message * claus parents: 3 diff changeset	2	COPYRIGHT (c) 1991 by Claus Gittinger
1796 bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	3	All Rights Reserved
0 7ad01559b262 Initial revision claus parents: diff changeset	4
7ad01559b262 Initial revision claus parents: diff changeset	5	This software is furnished under a license and may be used
7ad01559b262 Initial revision claus parents: diff changeset	6	only in accordance with the terms of that license and with the
7ad01559b262 Initial revision claus parents: diff changeset	7	inclusion of the above copyright notice. This software may not
7ad01559b262 Initial revision claus parents: diff changeset	8	be provided or otherwise made available to, or used by, any
7ad01559b262 Initial revision claus parents: diff changeset	9	other person. No title to or ownership of the software is
7ad01559b262 Initial revision claus parents: diff changeset	10	hereby transferred.
7ad01559b262 Initial revision claus parents: diff changeset	11	"
7ad01559b262 Initial revision claus parents: diff changeset	12
1140 40bb7432cea2 * empty log message * Claus Gittinger <cg@exept.de> parents: 767 diff changeset	13	"{ Package: 'stx:libcomp' }"
40bb7432cea2 * empty log message * Claus Gittinger <cg@exept.de> parents: 767 diff changeset	14
0 7ad01559b262 Initial revision claus parents: diff changeset	15	ByteCodeCompiler subclass:#Decompiler
1800 c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	16	instanceVariableNames:'hasLineNo bytes literals index listStream outputStream'
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	17	classVariableNames:''
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	18	poolDictionaries:''
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	19	category:'System-Compiler'
0 7ad01559b262 Initial revision claus parents: diff changeset	20	!
7ad01559b262 Initial revision claus parents: diff changeset	21
378 450a65b641b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	22	!Decompiler class methodsFor:'documentation'!
0 7ad01559b262 Initial revision claus parents: diff changeset	23
135 aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	24	copyright
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	25	"
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	26	COPYRIGHT (c) 1991 by Claus Gittinger
1796 bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	27	All Rights Reserved
0 7ad01559b262 Initial revision claus parents: diff changeset	28
135 aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	29	This software is furnished under a license and may be used
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	30	only in accordance with the terms of that license and with the
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	31	inclusion of the above copyright notice. This software may not
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	32	be provided or otherwise made available to, or used by, any
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	33	other person. No title to or ownership of the software is
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	34	hereby transferred.
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	35	"
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	36	!
0 7ad01559b262 Initial revision claus parents: diff changeset	37
135 aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	38	documentation
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	39	"
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	40	only for stx-debugging. Not for public eyes.
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	41
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	42	Decompiler decompile:(someClass compiledMethodAt:#someSelector)
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	43	"
aa4f7b8f121e uff - version methods changed to return stings Claus Gittinger <cg@exept.de> parents: 4 diff changeset	44	! !
0 7ad01559b262 Initial revision claus parents: diff changeset	45
378 450a65b641b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	46	!Decompiler class methodsFor:'decompiling'!
0 7ad01559b262 Initial revision claus parents: diff changeset	47
7ad01559b262 Initial revision claus parents: diff changeset	48	decompile:aMethod
1789 7d38fabe0785 * empty log message * Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	49	^ self decompile:aMethod to:Transcript
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	50
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	51	"
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	52	Decompiler decompile:(FileBrowser compiledMethodAt:#initialize)
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	53	Decompiler decompile:(Decompiler compiledMethodAt:#decompile:to:)
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	54	"
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	55
1789 7d38fabe0785 * empty log message * Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	56	"Modified: / 06-08-2006 / 15:31:39 / cg"
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	57	!
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	58
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	59	decompile:aMethod to:aStream
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	60	^ (self new) decompile:aMethod to:aStream
0 7ad01559b262 Initial revision claus parents: diff changeset	61
7ad01559b262 Initial revision claus parents: diff changeset	62	"Decompiler decompile:(FileBrowser compiledMethodAt:#initialize)"
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	63
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	64	"Created: 16.4.1996 / 20:25:55 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	65	! !
7ad01559b262 Initial revision claus parents: diff changeset	66
7ad01559b262 Initial revision claus parents: diff changeset	67	!Decompiler methodsFor:'decompiling'!
7ad01559b262 Initial revision claus parents: diff changeset	68
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	69	decompile:aMethod to:aStream
1800 c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	70	\|nBytes byte sym sel lineNr who method insnIndex1 insnIndex2 n nCol\|
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	71
1800 c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	72	nCol := 7.
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	73	listStream := nil.
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	74	outputStream := aStream.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	75
384 92c963b7922b handle decompilation of wrapped methods Claus Gittinger <cg@exept.de> parents: 378 diff changeset	76	(method := aMethod) isNil ifTrue:[
278 8c8c96856b41 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 250 diff changeset	77	aStream showCR:'nil method'.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	78	^ self
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	79	].
384 92c963b7922b handle decompilation of wrapped methods Claus Gittinger <cg@exept.de> parents: 378 diff changeset	80	method isWrapped ifTrue:[
92c963b7922b handle decompilation of wrapped methods Claus Gittinger <cg@exept.de> parents: 378 diff changeset	81	method := method originalMethod
92c963b7922b handle decompilation of wrapped methods Claus Gittinger <cg@exept.de> parents: 378 diff changeset	82	].
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	83
1360 602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	84	aStream cr.
602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	85	aStream show:'decompiling '.
602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	86
384 92c963b7922b handle decompilation of wrapped methods Claus Gittinger <cg@exept.de> parents: 378 diff changeset	87	who := method who.
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	88	who notNil ifTrue:[
408 d36f5c1c6686 checkin from browser Claus Gittinger <cg@exept.de> parents: 401 diff changeset	89	classToCompileFor := who at:1.
1789 7d38fabe0785 * empty log message * Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	90	aStream showCR:(classToCompileFor name , '>>' , (who at:2)).
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	91	].
1360 602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	92	aStream show:('nA: ' , method numArgs printString).
602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	93	aStream show:(' nV: ' , method numVars printString).
602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	94	aStream show:(' nT: ' , method stackSize printString).
602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	95	aStream cr.
602caf902ede checkin from browser Claus Gittinger <cg@exept.de> parents: 1258 diff changeset	96	aStream cr.
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	97
384 92c963b7922b handle decompilation of wrapped methods Claus Gittinger <cg@exept.de> parents: 378 diff changeset	98	bytes := method byteCode.
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	99	bytes isNil ifTrue:[
740 6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	100	method isLazyMethod ifTrue:[
6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	101	method := method asExecutableMethod.
6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	102	bytes := method byteCode.
6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	103	aStream showCR:'(lazyMethod; showing resulting code when compiled on first invokation)'.
6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	104	aStream cr.
6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	105	].
6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	106	].
6936f116c334 checkin from browser Claus Gittinger <cg@exept.de> parents: 655 diff changeset	107	bytes isNil ifTrue:[
278 8c8c96856b41 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 250 diff changeset	108	aStream showCR:'no bytecode'.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	109	^ self
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	110	].
384 92c963b7922b handle decompilation of wrapped methods Claus Gittinger <cg@exept.de> parents: 378 diff changeset	111	literals := method literals.
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	112	index := 1.
d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	113	nBytes := bytes size.
d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	114	[index <= nBytes] whileTrue:[
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	115	listStream := '' writeStream.
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	116
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	117	self showPC.
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	118	insnIndex1 := index.
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	119
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	120	sym := self symbolicCodeFor:(bytes at:index).
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	121	listStream show:sym.
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	122	"
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	123	extra notNil ifTrue:[Transcript show:(extra printString)].
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	124	"
347 c41b9c9c0e50 oops - sendWIDTH & sendHEIGHT have lineNumber info Claus Gittinger <cg@exept.de> parents: 344 diff changeset	125	index := index + 1.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	126	hasLineNo ifTrue:[
347 c41b9c9c0e50 oops - sendWIDTH & sendHEIGHT have lineNumber info Claus Gittinger <cg@exept.de> parents: 344 diff changeset	127	lineNr := bytes at:index.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	128	index := index + 1.
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	129	] ifFalse:[
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	130	lineNr := nil
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	131	].
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	132	extra notNil ifTrue:[
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	133	listStream show:' '.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	134	byte := bytes at:index.
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	135
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	136	"compute argument showXXX selector from extra ..."
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	137
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	138	sel := 'show' , extra , ':'.
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	139	sel at:5 put:(sel at:5) asUppercase.
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	140	self perform:sel asSymbol with:byte
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	141	].
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	142	insnIndex2 := index-1.
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	143
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	144	insnIndex1 to:insnIndex2 do:[:i \|
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	145	outputStream show:((bytes at:i) printStringRadix:16 size:2 fill:$0).
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	146	outputStream show:' '.
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	147	].
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	148	n := (insnIndex2-insnIndex1) * 3.
1800 c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	149	outputStream spaces:(nCol*3 - n).
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	150	outputStream show:(listStream contents).
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	151
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	152	lineNr notNil ifTrue:[
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	153	aStream show:'['; show:lineNr; show:']'
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	154	].
278 8c8c96856b41 showCr: -> showCR: Claus Gittinger <cg@exept.de> parents: 250 diff changeset	155	aStream showCR:''
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	156	]
206 d4cd6769b983 * empty log message * Claus Gittinger <cg@exept.de> parents: 205 diff changeset	157
1789 7d38fabe0785 * empty log message * Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	158	"Created: / 16-04-1996 / 20:27:18 / cg"
7d38fabe0785 * empty log message * Claus Gittinger <cg@exept.de> parents: 1360 diff changeset	159	"Modified: / 06-08-2006 / 22:31:06 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	160	!
7ad01559b262 Initial revision claus parents: diff changeset	161
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	162	showAbsOffset:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	163	\|offs b2\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	164
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	165	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	166	b2 := (bytes at:index).
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	167	offs := byte + (b2 bitShift:8).
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	168	index := index + 1.
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	169	listStream show:offs printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	170	listStream show:' ('.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	171	listStream show:offs printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	172	listStream show:')'
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	173
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	174	"Modified: 16.4.1996 / 20:27:53 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	175	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	176
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	177	showAbsOffsetLevel:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	178	\|offs b2\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	179
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	180	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	181	b2 := (bytes at:index).
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	182	offs := byte + (b2 bitShift:8).
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	183	index := index + 1.
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	184	listStream show:offs printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	185	listStream show:' ('.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	186	listStream show:offs printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	187	listStream show:')'.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	188	self showNvarNargsAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	189	index := index + 2
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	190
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	191	"Modified: 16.4.1996 / 20:27:57 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	192	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	193
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	194	showExtraOp:op
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	195	"/ listStream show:(op printString); show:' '.
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	196
1800 c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	197	index := index + 1.
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	198	op == 0 ifTrue:[
1800 c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	199	listStream show:'SEND_VL '.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	200	self showLineNo:(bytes at:index).
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	201	listStream show:' nargs:' , (bytes at:index) printString; show:' '.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	202	index := index + 1.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	203	self showLiteral32:0.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	204	^ self.
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	205	].
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	206	op == 1 ifTrue:[
1800 c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	207	listStream show:'SUPERSEND_VL '.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	208	self showLineNo:(bytes at:index).
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	209	listStream show:' nargs:' , (bytes at:index) printString; show:' '.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	210	index := index + 1.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	211	self showLiteral32:0.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	212	self showLiteral32:0.
c6529e6820ee more long ops Claus Gittinger <cg@exept.de> parents: 1796 diff changeset	213	^ self.
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	214	].
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	215	op == 2 ifTrue:[
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	216	listStream show:'PUSH_VL_LIT '.
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	217	self showLiteral32:0.
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	218	^ self.
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	219	].
1826 bcf44b28faa4 leftover halt. Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	220	self halt:'to be implemented'.
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	221	op == 3 ifTrue:[
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	222	].
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	223	op == 4 ifTrue:[
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	224	].
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	225	!
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	226
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	227	showIndex:byte
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	228	listStream show:byte printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	229	index := index + 1
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	230
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	231	"Modified: 16.4.1996 / 20:27:59 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	232	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	233
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	234	showIndexLevel:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	235	self showIndex:byte.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	236	self showNvarNargsAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	237	index := index + 2
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	238	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	239
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	240	showInstvarIndex:byte
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	241	listStream show:byte printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	242	classToCompileFor notNil ifTrue:[
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	243	listStream show:'('.
763 d3cc2d32a20d dont crash for invalid instvar index. tm parents: 740 diff changeset	244	listStream show:(classToCompileFor allInstVarNames at:byte ifAbsent:'???? [' , byte printString ,']').
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	245	listStream show:')'.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	246	].
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	247	index := index + 1
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	248
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	249	"Modified: 16.4.1996 / 20:28:06 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	250	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	251
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	252	showLevelIndex:byte
1148 a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	253	\|lvl idx\|
a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	254
a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	255	lvl := byte.
a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	256	index := index + 1.
a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	257	idx := bytes at:index.
a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	258
a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	259	listStream show:idx printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	260	index := index + 1.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	261
1148 a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	262	listStream show:' lvl: '; show:lvl printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	263	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	264
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	265	showLineNo:byte
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	266	listStream show:' line:' , byte printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	267	index := index + 1
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	268
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	269	"Modified: 16.4.1996 / 20:28:10 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	270	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	271
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	272	showLit1:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	273	self showLit:1
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	274	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	275
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	276	showLit2:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	277	self showLit:2
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	278	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	279
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	280	showLit3:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	281	self showLit:3
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	282	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	283
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	284	showLit4:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	285	self showLit:4
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	286	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	287
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	288	showLit5:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	289	self showLit:5
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	290	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	291
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	292	showLit6:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	293	self showLit:6
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	294	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	295
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	296	showLit7:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	297	self showLit:7
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	298	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	299
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	300	showLit8:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	301	self showLit:8
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	302	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	303
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	304	showLit9:ignored
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	305	self showLit:9
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	306	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	307
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	308	showLit:litIndex
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	309	\|lit\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	310
573 7aadeb921f21 checkin from browser Claus Gittinger <cg@exept.de> parents: 551 diff changeset	311	lit := literals at:litIndex ifAbsent:'* badIndex *'.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	312	lit isBehavior ifTrue:[
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	313	listStream show:lit name
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	314	] ifFalse:[
378 450a65b641b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	315	lit isBlock ifTrue:[
450a65b641b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	316	listStream show:'[a block]'
450a65b641b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	317	] ifFalse:[
1796 bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	318	(lit isNumber or:[lit isString or:[lit isSymbol]]) ifTrue:[
bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	319	listStream show:lit storeString
bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	320	] ifFalse:[
bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	321	listStream show:'{', lit printString , '}'
bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	322	]
378 450a65b641b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	323	]
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	324	]
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	325
1796 bc2de3be5f7c * empty log message * Claus Gittinger <cg@exept.de> parents: 1793 diff changeset	326	"Modified: / 08-08-2006 / 00:45:46 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	327	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	328
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	329	showLiteral16:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	330	\|litIndex\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	331
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	332	litIndex := bytes wordAt:index MSB:false.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	333	self showLit:litIndex.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	334	index := index + 2
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	335	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	336
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	337	showLiteral32:byte
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	338	\|litIndex\|
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	339
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	340	litIndex := bytes doubleWordAt:index MSB:false.
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	341	self showLit:litIndex.
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	342	index := index + 4
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	343	!
5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	344
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	345	showLiteral:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	346	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	347	self showLit:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	348	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	349
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	350	showLiteralAt:index
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	351	\|offs\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	352
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	353	offs := bytes at:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	354	self showLit:offs
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	355	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	356
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	357	showLongOffset:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	358	\|offs\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	359
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	360	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	361	(byte > 127) ifTrue:[
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	362	offs := byte - 256 - 128
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	363	] ifFalse:[
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	364	offs := byte + 128
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	365	].
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	366	listStream show:offs printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	367	listStream show:' ('.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	368	listStream show:(index + offs) printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	369	listStream show:')'
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	370
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	371	"Modified: 16.4.1996 / 20:28:30 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	372	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	373
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	374	showLongOffsetLevel:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	375	self showLongOffset:byte.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	376	self showNvarNargsAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	377	index := index + 2
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	378	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	379
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	380	showLsendArgs:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	381	\|litIndex\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	382
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	383	listStream show:byte printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	384	listStream show:' '.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	385	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	386	litIndex := bytes wordAt:index MSB:false.
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	387	listStream show:(literals at:litIndex) printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	388	index := index + 2
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	389
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	390	"Modified: 16.4.1996 / 20:28:35 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	391	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	392
1141 87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	393	showLsuperSendArgs:byte
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	394	\|litIndex\|
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	395
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	396	listStream show:byte printString.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	397	listStream show:' '.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	398	index := index + 1.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	399	litIndex := bytes wordAt:index MSB:false.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	400	listStream show:(literals at:litIndex) printString.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	401	index := index + 2.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	402
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	403	litIndex := bytes wordAt:index MSB:false.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	404	listStream show:(literals at:litIndex) printString.
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	405	index := index + 2
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	406	!
87c9fb0b53e0 * empty log message * Claus Gittinger <cg@exept.de> parents: 1140 diff changeset	407
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	408	showNumber16:byte
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	409	listStream show:(bytes signedWordAt:index MSB:false) printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	410	index := index + 2
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	411
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	412	"Modified: 16.4.1996 / 20:28:37 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	413	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	414
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	415	showNumber:byte
767 9a99b6810f94 checkin from browser Claus Gittinger <cg@exept.de> parents: 763 diff changeset	416	listStream show:byte signExtendedByteValue printString.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	417	index := index + 1
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	418
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	419	"Modified: 16.4.1996 / 20:28:38 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	420	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	421
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	422	showNvarNargsAt:index
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	423	listStream show:' nv='.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	424	listStream show:(bytes at:index) printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	425	listStream show:' na='.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	426	listStream show:(bytes at:(index + 1)) printString
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	427
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	428	"Modified: 16.4.1996 / 20:28:40 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	429	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	430
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	431	showOffset:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	432	\|offs\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	433
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	434	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	435	(byte > 127) ifTrue:[
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	436	offs := byte - 256
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	437	] ifFalse:[
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	438	offs := byte
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	439	].
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	440	listStream show:(offs printString).
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	441	listStream show:' ('.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	442	listStream show:(index + offs) printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	443	listStream show:')'
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	444
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	445	"Modified: 16.4.1996 / 20:28:43 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	446	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	447
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	448	showOffsetLevel:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	449	self showOffset:byte.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	450	self showNvarNargsAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	451	index := index + 2
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	452	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	453
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	454	showPC
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	455	outputStream show:(index printStringRadix:10 size:3 fill:(Character space)).
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	456	outputStream show:': '.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	457
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	458	"Modified: 4.6.1997 / 12:07:33 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	459	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	460
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	461	showSendArgs:byte
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	462	listStream show:byte printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	463	listStream show:' '.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	464	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	465	self showLiteralAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	466	index := index + 1
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	467
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	468	"Modified: 16.4.1996 / 20:28:50 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	469	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	470
246 abf09d4821fe new code for faster global pushes Claus Gittinger <cg@exept.de> parents: 217 diff changeset	471	showSpecialGlobal:byte
abf09d4821fe new code for faster global pushes Claus Gittinger <cg@exept.de> parents: 217 diff changeset	472	\|specialIndex\|
abf09d4821fe new code for faster global pushes Claus Gittinger <cg@exept.de> parents: 217 diff changeset	473
abf09d4821fe new code for faster global pushes Claus Gittinger <cg@exept.de> parents: 217 diff changeset	474	specialIndex := bytes at:index.
abf09d4821fe new code for faster global pushes Claus Gittinger <cg@exept.de> parents: 217 diff changeset	475	index := index + 1.
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	476	"/ listStream show:specialIndex printString.
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	477
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	478	listStream
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	479	show:((self specialGlobals) at:specialIndex + 1)
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	480
4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	481	"Modified: 4.6.1997 / 12:18:45 / cg"
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	482	!
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	483
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	484	showSpecialSend:byte
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	485	\|specialIndex\|
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	486
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	487	specialIndex := bytes at:index.
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	488	index := index + 1.
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	489	"/ listStream show:specialIndex printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	490	listStream show:'#'.
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	491	listStream show:((self specialSends) at:specialIndex + 1)
401 f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	492
532 4fcfc17f14b4 show all bytes of an op Claus Gittinger <cg@exept.de> parents: 408 diff changeset	493	"Modified: 4.6.1997 / 12:34:01 / cg"
246 abf09d4821fe new code for faster global pushes Claus Gittinger <cg@exept.de> parents: 217 diff changeset	494	!
abf09d4821fe new code for faster global pushes Claus Gittinger <cg@exept.de> parents: 217 diff changeset	495
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	496	showSuperSendArgs:byte
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	497	listStream show:byte printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	498	listStream show:' '.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	499	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	500	self showLiteralAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	501	index := index + 1.
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	502	listStream show:' '.
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	503	self showLiteralAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	504	index := index + 1
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	505
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	506	"Modified: 16.4.1996 / 20:28:58 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	507	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	508
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	509	showVeryLongOffset:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	510	\|offs\|
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	511
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	512	index := index + 1.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	513	(byte > 127) ifTrue:[
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	514	offs := byte - 256 - 256
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	515	] ifFalse:[
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	516	offs := byte + 256
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	517	].
293 bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	518	listStream show:offs printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	519	listStream show:' ('.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	520	listStream show:(index + offs) printString.
bc0459613b27 * empty log message * Claus Gittinger <cg@exept.de> parents: 278 diff changeset	521	listStream show:')'
250 6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	522
6c26bc3fb154 allow decompile onto a stream Claus Gittinger <cg@exept.de> parents: 246 diff changeset	523	"Modified: 16.4.1996 / 20:29:00 / cg"
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	524	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	525
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	526	showVeryLongOffsetLevel:byte
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	527	self showVeryLongOffset:byte.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	528	self showNvarNargsAt:index.
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	529	index := index + 2
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	530	!
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	531
0 7ad01559b262 Initial revision claus parents: diff changeset	532	symbolicCodeFor:aByte
401 f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	533	\|syms extras lnos sym\|
0 7ad01559b262 Initial revision claus parents: diff changeset	534
7ad01559b262 Initial revision claus parents: diff changeset	535	syms := #( retTop " 0 "
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	536	retNil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	537	retTrue
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	538	retFalse
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	539	ret0
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	540	retSelf " 5 "
551 a8a0377b9ceb added #over Claus Gittinger <cg@exept.de> parents: 532 diff changeset	541	over
344 ab8b2921d475 fixed homeRet decoding Claus Gittinger <cg@exept.de> parents: 342 diff changeset	542	homeRetTop
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	543	LINE
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	544	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	545	pushNil " 10 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	546	pushTrue
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	547	pushFalse
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	548	sendSelf
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	549	pushLit
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	550	pushSelf " 15 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	551	pushNum
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	552	pushNum16
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	553	drop
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	554	send
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	555	superSend " 20 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	556	send0
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	557	send1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	558	send2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	559	send3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	560	sendDrop " 25 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	561	sendDrop0
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	562	sendDrop1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	563	sendDrop2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	564	sendDrop3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	565	pushMethodArg " 30 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	566	pushMethodVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	567	pushBlockArg
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	568	pushBlockVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	569	pushInstVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	570	pushClassVar " 35 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	571	pushGlobal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	572	storeMethodVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	573	storeBlockVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	574	storeInstVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	575	storeClassVar " 40 "
356 bb3beb18de1f 6empty slots in GLOBL/CLASSVAR bytecodes removed Claus Gittinger <cg@exept.de> parents: 347 diff changeset	576	storeGlobal
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	577	pushOuterBlockArg
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	578	pushOuter1BlockArg
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	579	pushOuter2BlockArg
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	580	equal " 45 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	581	notEqual
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	582	dup
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	583	equal0
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	584	notEqual0
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	585	falseJump " 50 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	586	trueJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	587	nilJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	588	notNilJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	589	jump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	590	makeBlock " 55 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	591	zeroJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	592	notZeroJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	593	eqJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	594	notEqJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	595	falseJump " 60 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	596	trueJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	597	nilJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	598	notNilJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	599	jump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	600	makeBlock " 65 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	601	zeroJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	602	notZeroJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	603	eqJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	604	notEqJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	605	falseJump " 70 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	606	trueJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	607	nilJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	608	notNilJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	609	jump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	610	makeBlock " 75 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	611	zeroJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	612	notZeroJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	613	eqJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	614	notEqJump
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	615	pushMethodVar1 " 80 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	616	pushMethodVar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	617	pushMethodVar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	618	pushMethodVar4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	619	pushMethodVar5
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	620	pushMethodVar6 " 85 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	621	pushMethodArg1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	622	pushMethodArg2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	623	pushMethodArg3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	624	pushMethodArg4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	625	pushInstVar1 " 90 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	626	pushInstVar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	627	pushInstVar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	628	pushInstVar4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	629	pushInstVar5
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	630	pushInstVar6 " 95 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	631	pushInstVar7
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	632	pushInstVar8
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	633	pushInstVar9
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	634	pushInstVar10
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	635	storeMethodVar1 " 100 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	636	storeMethodVar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	637	storeMethodVar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	638	storeMethodVar4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	639	storeMethodVar5
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	640	storeMethodVar6 " 105 "
401 f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	641	nil
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	642	nil
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	643	nil
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	644	nil
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	645	storeInstVar1 " 110 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	646	storeInstVar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	647	storeInstVar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	648	storeInstVar4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	649	storeInstVar5
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	650	storeInstVar6 " 115 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	651	storeInstVar7
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	652	storeInstVar8
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	653	storeInstVar9
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	654	storeInstVar10
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	655	push0 " 120 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	656	push1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	657	pushMinus1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	658	sendPlus1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	659	sendMinus1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	660	incMethodVar " 125 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	661	decMethodVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	662	retNum
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	663	pushOuterBlockVar "16r80"
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	664	storeOuterBlockVar
655 3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	665	'send1 #=' " 130 "
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	666	'send1 #+'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	667	'send1 #~='
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	668	'send1 #-'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	669	'send0 #class'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	670	'send1 #at:' " 135 "
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	671	'send2 #at:put:'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	672	'send1 #bitAnd:'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	673	'send1 #bitOr:'
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	674	push2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	675	pushBlockArg1 " 140 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	676	pushBlockArg2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	677	pushBlockArg3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	678	pushBlockArg4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	679	pushContext "16r90"
655 3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	680	'send1 #>' " 145 "
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	681	'send1 #>='
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	682	'send1 #<'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	683	'send1 #<='
401 f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	684	nil
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	685	nil " 150 "
655 3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	686	'send0 #value'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	687	'send1 #value:'
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	688	'send0 #size'
401 f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	689	nil
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	690	nil " 155 "
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	691	make0Block
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	692	makeNILBlock
401 f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	693	nil " 158 "
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	694	nil " 159 "
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	695	retMvar1 " 160 " "16rA0"
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	696	retMvar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	697	retMvar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	698	retMvar4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	699	retMvar5
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	700	retMvar6 " 165 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	701	retIvar1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	702	retIvar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	703	retIvar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	704	retIvar4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	705	retIvar5 " 170 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	706	retIvar6
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	707	retIvar7
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	708	retIvar8
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	709	retMarg1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	710	retMarg2 " 175 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	711	pushClassInstVar
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	712	storeClassInstVar
1140 40bb7432cea2 * empty log message * Claus Gittinger <cg@exept.de> parents: 767 diff changeset	713	'send2 #value:value:'
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	714	not
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	715	sendSelf0 " 180 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	716	sendSelf1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	717	sendSelf2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	718	sendSelf3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	719	sendSelfDrop0
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	720	sendSelfDrop1 " 185 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	721	sendSelfDrop2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	722	sendSelfDrop3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	723	isNil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	724	notNil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	725	falseJumpAbs " 190 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	726	trueJumpAbs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	727	nilJumpAbs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	728	notNilJumpAbs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	729	jumpAbs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	730	makeBlockAbs " 195 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	731	zeroJumpAbs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	732	notZeroJumpAbs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	733	eqJumpAbs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	734	notEqJumpAbs " 199 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	735	pushGlobal " 200 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	736	pushLLit
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	737	jmpFalseL
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	738	jmpTrueL
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	739	vl_op
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	740	lsend " 205 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	741	lsuperSend
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	742	lsendSelf
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	743	pushGT0
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	744	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	745	sendArrayNew " 210 "
655 3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	746	'send0 #basicNew'
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	747	sendGT0
655 3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	748	'send0 #new'
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	749	sendBasicNewN
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	750	sendNewN " 215 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	751	sendLogAnd
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	752	sendLogOr
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	753	pushGlobL
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	754	storeGlobL
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	755	nil " 220 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	756	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	757	pushLit1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	758	pushLit2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	759	pushLit3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	760	pushLit4
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	761	pushLit5
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	762	pushLit6
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	763	pushLit7
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	764	pushLit8
655 3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	765	'send1 #*' " 230 "
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	766	sendSpecial " 231 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	767	pushBlockVar1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	768	pushBlockVar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	769	pushBlockVar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	770	storeBlockVar1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	771	storeBlockVar2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	772	storeBlockVar3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	773	refCheck
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	774	pushLocal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	775	storeLocal " 240 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	776	).
0 7ad01559b262 Initial revision claus parents: diff changeset	777
7ad01559b262 Initial revision claus parents: diff changeset	778	lnos := #( false " 0 "
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	779	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	780	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	781	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	782	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	783	false " 5 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	784	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	785	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	786	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	787	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	788	false " 10 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	789	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	790	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	791	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	792	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	793	false " 15 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	794	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	795	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	796	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	797	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	798	true " 20 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	799	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	800	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	801	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	802	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	803	true " 25 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	804	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	805	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	806	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	807	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	808	false " 30 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	809	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	810	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	811	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	812	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	813	false " 35 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	814	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	815	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	816	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	817	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	818	false " 40 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	819	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	820	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	821	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	822	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	823	false " 45 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	824	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	825	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	826	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	827	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	828	false " 50 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	829	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	830	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	831	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	832	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	833	false " 55 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	834	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	835	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	836	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	837	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	838	false " 60 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	839	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	840	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	841	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	842	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	843	false " 65 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	844	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	845	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	846	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	847	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	848	false " 70 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	849	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	850	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	851	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	852	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	853	false " 75 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	854	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	855	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	856	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	857	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	858	false " 80 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	859	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	860	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	861	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	862	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	863	false " 85 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	864	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	865	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	866	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	867	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	868	false " 90 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	869	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	870	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	871	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	872	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	873	false " 95 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	874	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	875	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	876	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	877	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	878	false " 100 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	879	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	880	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	881	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	882	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	883	false " 105 "
347 c41b9c9c0e50 oops - sendWIDTH & sendHEIGHT have lineNumber info Claus Gittinger <cg@exept.de> parents: 344 diff changeset	884	true
c41b9c9c0e50 oops - sendWIDTH & sendHEIGHT have lineNumber info Claus Gittinger <cg@exept.de> parents: 344 diff changeset	885	true
c41b9c9c0e50 oops - sendWIDTH & sendHEIGHT have lineNumber info Claus Gittinger <cg@exept.de> parents: 344 diff changeset	886	true
c41b9c9c0e50 oops - sendWIDTH & sendHEIGHT have lineNumber info Claus Gittinger <cg@exept.de> parents: 344 diff changeset	887	true
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	888	false " 110 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	889	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	890	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	891	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	892	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	893	false " 115 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	894	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	895	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	896	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	897	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	898	false " 120 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	899	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	900	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	901	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	902	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	903	true " 125 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	904	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	905	false
1148 a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	906	false "/ 128 pushOuterBlockVar
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	907	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	908	true " 130 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	909	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	910	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	911	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	912	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	913	true " 135 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	914	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	915	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	916	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	917	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	918	false " 140 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	919	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	920	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	921	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	922	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	923	true " 145 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	924	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	925	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	926	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	927	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	928	true " 150 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	929	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	930	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	931	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	932	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	933	true " 155 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	934	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	935	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	936	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	937	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	938	false " 160 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	939	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	940	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	941	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	942	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	943	false " 165 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	944	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	945	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	946	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	947	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	948	false " 170 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	949	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	950	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	951	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	952	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	953	false " 175 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	954	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	955	false
1140 40bb7432cea2 * empty log message * Claus Gittinger <cg@exept.de> parents: 767 diff changeset	956	true
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	957	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	958	true " 180 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	959	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	960	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	961	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	962	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	963	true " 185 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	964	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	965	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	966	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	967	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	968	false " 190 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	969	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	970	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	971	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	972	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	973	false " 195 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	974	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	975	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	976	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	977	false " 199 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	978	false " 200 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	979	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	980	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	981	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	982	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	983	true " 205 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	984	true
1258 138039453522 * empty log message * Claus Gittinger <cg@exept.de> parents: 1148 diff changeset	985	true
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	986	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	987	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	988	false " 210 " " arrayNew "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	989	true " basicNew "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	990	true " > 0 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	991	true " new "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	992	true " basicNew: "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	993	true " 215 " " new: "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	994	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	995	true
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	996	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	997	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	998	false " 220 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	999	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1000	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1001	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1002	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1003	false " 225 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1004	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1005	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1006	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1007	false " 229 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1008	true " 230 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1009	true " 231 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1010	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1011	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1012	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1013	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1014	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1015	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1016	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1017	false
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1018	false " 240 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1019	).
0 7ad01559b262 Initial revision claus parents: diff changeset	1020
7ad01559b262 Initial revision claus parents: diff changeset	1021	extras := #(nil " 0 "
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1022	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1023	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1024	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1025	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1026	nil " 5 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1027	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1028	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1029	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1030	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1031	nil " 10 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1032	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1033	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1034	sendArgs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1035	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1036	nil " 15 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1037	number
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1038	number16
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1039	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1040	sendArgs
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1041	superSendArgs " 20 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1042	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1043	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1044	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1045	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1046	sendArgs " 25 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1047	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1048	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1049	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1050	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1051	index " 30 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1052	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1053	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1054	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1055	instvarIndex
356 bb3beb18de1f 6empty slots in GLOBL/CLASSVAR bytecodes removed Claus Gittinger <cg@exept.de> parents: 347 diff changeset	1056	literal " 35 "
bb3beb18de1f 6empty slots in GLOBL/CLASSVAR bytecodes removed Claus Gittinger <cg@exept.de> parents: 347 diff changeset	1057	literal
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1058	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1059	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1060	instvarIndex
356 bb3beb18de1f 6empty slots in GLOBL/CLASSVAR bytecodes removed Claus Gittinger <cg@exept.de> parents: 347 diff changeset	1061	literal " 40 "
bb3beb18de1f 6empty slots in GLOBL/CLASSVAR bytecodes removed Claus Gittinger <cg@exept.de> parents: 347 diff changeset	1062	literal
573 7aadeb921f21 checkin from browser Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1063	levelIndex
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1064	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1065	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1066	nil " 45 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1067	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1068	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1069	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1070	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1071	offset " 50 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1072	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1073	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1074	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1075	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1076	offsetLevel " 55 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1077	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1078	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1079	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1080	offset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1081	longOffset " 60 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1082	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1083	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1084	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1085	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1086	longOffsetLevel " 65 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1087	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1088	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1089	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1090	longOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1091	veryLongOffset " 70 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1092	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1093	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1094	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1095	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1096	veryLongOffsetLevel " 75 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1097	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1098	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1099	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1100	veryLongOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1101	nil " 80 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1102	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1103	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1104	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1105	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1106	nil " 85 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1107	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1108	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1109	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1110	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1111	nil " 90 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1112	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1113	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1114	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1115	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1116	nil " 95 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1117	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1118	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1119	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1120	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1121	nil " 100 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1122	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1123	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1124	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1125	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1126	nil " 105 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1127	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1128	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1129	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1130	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1131	nil " 110 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1132	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1133	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1134	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1135	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1136	nil " 115 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1137	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1138	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1139	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1140	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1141	nil " 120 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1142	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1143	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1144	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1145	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1146	index " 125 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1147	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1148	number
1148 a008a06fbbc5 * empty log message * Claus Gittinger <cg@exept.de> parents: 1141 diff changeset	1149	levelIndex "/ 128 pushOuterBlockVar
573 7aadeb921f21 checkin from browser Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1150	levelIndex
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1151	nil " 130 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1152	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1153	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1154	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1155	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1156	nil " 135 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1157	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1158	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1159	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1160	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1161	nil " 140 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1162	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1163	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1164	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1165	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1166	nil " 145 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1167	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1168	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1169	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1170	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1171	nil " 150 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1172	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1173	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1174	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1175	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1176	nil " 155 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1177	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1178	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1179	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1180	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1181	nil " 160 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1182	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1183	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1184	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1185	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1186	nil " 165 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1187	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1188	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1189	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1190	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1191	nil " 170 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1192	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1193	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1194	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1195	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1196	nil " 175 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1197	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1198	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1199	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1200	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1201	literal " 180 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1202	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1203	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1204	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1205	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1206	literal " 185 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1207	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1208	literal
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1209	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1210	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1211	absOffset " 190 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1212	absOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1213	absOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1214	absOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1215	absOffset
573 7aadeb921f21 checkin from browser Claus Gittinger <cg@exept.de> parents: 551 diff changeset	1216	absOffsetLevel " 195 "
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1217	absOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1218	absOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1219	absOffset
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1220	absOffset " 199 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1221	specialGlobal " 200 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1222	literal16
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1223	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1224	nil
1793 5e4a4284c722 preps for vl literals Claus Gittinger <cg@exept.de> parents: 1789 diff changeset	1225	extraOp
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1226	lsendArgs " 205 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1227	lsuperSendArgs
1258 138039453522 * empty log message * Claus Gittinger <cg@exept.de> parents: 1148 diff changeset	1228	lsendArgs
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1229	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1230	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1231	nil " 210 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1232	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1233	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1234	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1235	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1236	nil " 215 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1237	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1238	nil
356 bb3beb18de1f 6empty slots in GLOBL/CLASSVAR bytecodes removed Claus Gittinger <cg@exept.de> parents: 347 diff changeset	1239	literal16
bb3beb18de1f 6empty slots in GLOBL/CLASSVAR bytecodes removed Claus Gittinger <cg@exept.de> parents: 347 diff changeset	1240	literal16
342 fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1241	nil " 220 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1242	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1243	lit1
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1244	lit2
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1245	lit3
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1246	lit4 " 225 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1247	lit5
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1248	lit6
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1249	lit7
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1250	lit8
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1251	nil " 230 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1252	specialSend " 231 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1253	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1254	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1255	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1256	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1257	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1258	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1259	nil
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1260	index
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1261	index " 240 "
fe32a900f0a3 checkin from browser Claus Gittinger <cg@exept.de> parents: 331 diff changeset	1262	).
0 7ad01559b262 Initial revision claus parents: diff changeset	1263
401 f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1264	sym := syms at:(aByte + 1).
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1265	sym isNil ifTrue:[
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1266	extra := nil.
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1267	hasLineNo := nil.
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1268	] ifFalse:[
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1269	extra := extras at:(aByte + 1).
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1270	hasLineNo := lnos at:(aByte + 1).
f85fe04ce607 changes for special sends Claus Gittinger <cg@exept.de> parents: 384 diff changeset	1271	].
0 7ad01559b262 Initial revision claus parents: diff changeset	1272	^ syms at:(aByte + 1)
164 b511f22fea3b * empty log message * Claus Gittinger <cg@exept.de> parents: 135 diff changeset	1273
655 3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	1274	"Modified: / 2.9.1995 / 00:12:11 / claus"
3dcaf2f42818 checkin from browser Claus Gittinger <cg@exept.de> parents: 573 diff changeset	1275	"Modified: / 5.3.1998 / 04:35:28 / cg"
0 7ad01559b262 Initial revision claus parents: diff changeset	1276	! !
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	1277
378 450a65b641b2 checkin from browser Claus Gittinger <cg@exept.de> parents: 356 diff changeset	1278	!Decompiler class methodsFor:'documentation'!
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	1279
eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	1280	version
1826 bcf44b28faa4 leftover halt. Claus Gittinger <cg@exept.de> parents: 1800 diff changeset	1281	^ '$Header: /cvs/stx/stx/libcomp/Decompiler.st,v 1.42 2006-08-21 10:18:18 cg Exp $'
217 eba0ee7232aa new opcodes Claus Gittinger <cg@exept.de> parents: 206 diff changeset	1282	! !

author	Claus Gittinger <cg@exept.de>
	Wed, 28 May 2008 11:42:30 +0200
changeset 2098	a03891b6fc30
parent 1826	bcf44b28faa4
child 2128	3cdbf4f6704f
permissions	-rw-r--r--