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

author	Stefan Vogel <sv@exept.de>
	Sat, 10 Aug 1996 00:55:35 +0200
changeset 327	38119b9c1623
parent 326	d2858404a4a4
child 331	92f5214d6de2
permissions	-rw-r--r--