JavaByteCodeDisassembler.st
author Claus Gittinger <cg@exept.de>
Wed, 26 Jun 2019 22:06:15 +0200
branchcvs_MAIN
changeset 3917 94088b7097d5
parent 3444 f30b56fb96b2
child 3860 e87f2f1439e9
permissions -rw-r--r--
#OTHER by cg +bracketStrings
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3444
f30b56fb96b2 class: JavaByteCodeDisassembler
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
     1
"{ Encoding: utf8 }"
f30b56fb96b2 class: JavaByteCodeDisassembler
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
     2
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
     3
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2841
diff changeset
     4
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
     5
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
     6
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
     7
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2841
diff changeset
     8
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
     9
                            SWING Research Group, Czech Technical University in Prague
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    10
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    11
 This software is furnished under a license and may be used
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    12
 only in accordance with the terms of that license and with the
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    13
 inclusion of the above copyright notice.   This software may not
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    14
 be provided or otherwise made available to, or used by, any
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    15
 other person.  No title to or ownership of the software is
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    16
 hereby transferred.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    17
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    18
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    19
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    20
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    21
     as of 1.9.2010
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    22
"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    23
"{ Package: 'stx:libjava' }"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    24
3383
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
    25
"{ NameSpace: Smalltalk }"
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
    26
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    27
JavaByteCodeProcessor subclass:#JavaByteCodeDisassembler
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    28
	instanceVariableNames:'outStream placeholders format lastLno'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    29
	classVariableNames:'StandardFormat ExtendedFormat'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    30
	poolDictionaries:''
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    31
	category:'Languages-Java-Bytecode'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    32
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    33
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    34
!JavaByteCodeDisassembler class methodsFor:'documentation'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    35
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    36
copyright
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    37
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2841
diff changeset
    38
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    39
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    40
 New code and modifications done at SWING Research Group [1]:
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    41
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2841
diff changeset
    42
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    43
                            SWING Research Group, Czech Technical University in Prague
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    44
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    45
 This software is furnished under a license and may be used
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    46
 only in accordance with the terms of that license and with the
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    47
 inclusion of the above copyright notice.   This software may not
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    48
 be provided or otherwise made available to, or used by, any
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    49
 other person.  No title to or ownership of the software is
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    50
 hereby transferred.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    51
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    52
 [1] Code written at SWING Research Group contains a signature
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    53
     of one of the above copright owners. For exact set of such code,
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    54
     see the differences between this version and version stx:libjava
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
    55
     as of 1.9.2010
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    56
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    57
"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    58
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    59
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    60
!JavaByteCodeDisassembler class methodsFor:'initialization'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    61
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    62
initialize
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    63
    Verbose := false.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    64
    StandardFormat := '  %(PC) %(ISN) %(OPERANDS)'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    65
    ExtendedFormat := '  %(PC) [%(OPCODE)] %(ISN) %(OPERANDS) %(STACK)'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    66
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    67
    "Modified: / 22-03-2011 / 17:07:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    68
    "Modified: / 22-03-2011 / 20:53:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    69
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    70
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    71
!JavaByteCodeDisassembler class methodsFor:'instance creation'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    72
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    73
new
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    74
    "return an initialized instance"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    75
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    76
    ^ self basicNew initialize.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    77
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    78
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    79
!JavaByteCodeDisassembler class methodsFor:'disassembling'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    80
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    81
diassemble:aMethod 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    82
    ^ self new diassemble:aMethod.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    83
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    84
    "Created: / 17-03-2011 / 17:41:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    85
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    86
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    87
diassemble:aMethod to: aStream 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    88
    ^ self new diassemble:aMethod to: aStream
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    89
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    90
    "Created: / 22-03-2011 / 21:13:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    91
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    92
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    93
!JavaByteCodeDisassembler methodsFor:'disassembling'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    94
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    95
diassemble:aJavaMethod 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    96
    self diassemble:aJavaMethod to:Transcript.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    97
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    98
    "Created: / 17-03-2011 / 17:42:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
    99
    "Modified: / 20-03-2011 / 22:43:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   100
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   101
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   102
diassemble:aJavaMethod to:aStream 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   103
    |fakeArgArray size|
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   104
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   105
    outStream := aStream.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   106
    size := aJavaMethod javaNumArgs.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   107
    fakeArgArray := Array new:size.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   108
    1 to:size
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   109
        do:[:index | fakeArgArray at:index put:('Arg ' , index printString) ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   110
    self prettyPrintHeaderFor:aJavaMethod.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   111
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   112
        process:aJavaMethod
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   113
        receiver:aJavaMethod javaClass
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   114
        arguments:fakeArgArray.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   115
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   116
    "Created: / 17-03-2011 / 22:21:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   117
    "Modified: / 22-03-2011 / 15:59:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   118
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   119
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   120
!JavaByteCodeDisassembler methodsFor:'helpers - constants'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   121
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   122
address
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   123
^ 'address'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   124
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   125
    "Created: / 20-03-2011 / 21:20:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   126
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   127
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   128
arrayLength
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   129
    ^ 'arrayLength'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   130
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   131
    "Created: / 20-03-2011 / 18:31:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   132
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   133
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   134
arrayRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   135
    ^ 'arrayRef'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   136
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   137
    "Created: / 20-03-2011 / 18:24:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   138
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   139
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   140
dimensions
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   141
^'count1, [count2,...]'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   142
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   143
    "Created: / 20-03-2011 / 21:26:27 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   144
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   145
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   146
empty
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   147
    ^ 'EMPTY'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   148
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   149
    "Created: / 20-03-2011 / 18:30:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   150
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   151
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   152
excRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   153
    ^ 'exceptionRef'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   154
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   155
    "Created: / 20-03-2011 / 18:36:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   156
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   157
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   158
index
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   159
    ^ 'index'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   160
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   161
    "Created: / 20-03-2011 / 18:28:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   162
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   163
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   164
key
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   165
^'key'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   166
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   167
    "Created: / 20-03-2011 / 21:24:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   168
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   169
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   170
nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   171
    ^ ''
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   172
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   173
    "Created: / 20-03-2011 / 18:31:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   174
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   175
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   176
null
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   177
    ^ 'null'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   178
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   179
    "Created: / 20-03-2011 / 18:29:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   180
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   181
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   182
objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   183
^ 'objectRef'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   184
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   185
    "Created: / 20-03-2011 / 18:24:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   186
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   187
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   188
result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   189
    ^ 'result'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   190
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   191
    "Created: / 20-03-2011 / 18:40:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   192
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   193
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   194
sep
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   195
^ ', '.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   196
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   197
    "Created: / 20-03-2011 / 18:28:24 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   198
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   199
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   200
size
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   201
    ^ 'size'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   202
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   203
    "Created: / 20-03-2011 / 18:30:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   204
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   205
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   206
stackGroupClose
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   207
    ^ '}'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   208
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   209
    "Created: / 20-03-2011 / 21:02:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   210
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   211
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   212
stackGroupOpen
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   213
^'{'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   214
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   215
    "Created: / 20-03-2011 / 21:02:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   216
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   217
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   218
value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   219
    ^ 'value'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   220
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   221
    "Created: / 20-03-2011 / 18:24:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   222
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   223
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   224
valueMarked
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   225
    ^ 'valueX'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   226
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   227
    "Created: / 20-03-2011 / 20:58:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   228
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   229
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   230
valueMarked2
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   231
    ^ 'valueY'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   232
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   233
    "Created: / 20-03-2011 / 21:33:53 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   234
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   235
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   236
varArgs
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   237
^'[arg1, arg2, ...] '.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   238
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   239
    "Created: / 20-03-2011 / 21:16:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   240
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   241
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   242
whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   243
    ^ '..'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   244
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   245
    "Created: / 20-03-2011 / 18:31:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   246
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   247
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   248
!JavaByteCodeDisassembler methodsFor:'helpers - instruction groups'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   249
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   250
arrayValueLoader    
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   251
self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   252
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   253
        stackBefore: self arrayRef , self sep , self index
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   254
        after: self value.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   255
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   256
    "Created: / 20-03-2011 / 19:58:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   257
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   258
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   259
arrayValueStorer
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   260
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   261
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   262
        stackBefore: self arrayRef , self sep , self index , self sep , self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   263
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   264
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   265
    "Created: / 20-03-2011 / 20:01:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   266
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   267
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   268
constPusher: const
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   269
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   270
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   271
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   272
        after: const.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   273
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   274
    "Created: / 20-03-2011 / 20:39:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   275
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   276
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   277
fieldLoader: index 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   278
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   279
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   280
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   281
        after: (self prettyPrintField: index).
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   282
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   283
    "Created: / 20-03-2011 / 20:43:24 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   284
    "Modified: / 21-03-2011 / 15:23:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   285
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   286
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   287
fieldStorer: index 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   288
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   289
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   290
        stackBefore: (self prettyPrintField: index)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   291
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   292
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   293
    "Created: / 20-03-2011 / 20:53:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   294
    "Modified: / 21-03-2011 / 15:23:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   295
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   296
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   297
indexedFieldLoader
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   298
    | index |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   299
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   300
    wide 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   301
        ifTrue: 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   302
            [ index := self fetchIndex2.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   303
            wide := false. ]
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   304
        ifFalse: [ index := self fetchIndex ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   305
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   306
        writeInstructionWithArgs: (self prettyPrintField: index)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   307
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   308
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   309
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   310
    "Created: / 20-03-2011 / 20:44:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   311
    "Modified: / 19-05-2011 / 10:38:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   312
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   313
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   314
indexedFieldStorer
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   315
    | index |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   316
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   317
    wide 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   318
        ifTrue: 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   319
            [ index := self fetchIndex2.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   320
            wide := false. ]
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   321
        ifFalse: [ index := self fetchIndex ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   322
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   323
        writeInstructionWithArgs: (self prettyPrintField: index)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   324
        stackBefore: (self prettyPrintValue:'newVal')
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   325
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   326
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   327
    "Created: / 20-03-2011 / 20:53:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   328
    "Modified: / 19-05-2011 / 13:04:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   329
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   330
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   331
returnIfFinished
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   332
    (pc >= byteCode size) ifTrue: [ self leaveProcessorWith: nil ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   333
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   334
    "Created: / 21-03-2011 / 14:54:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   335
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   336
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   337
twoValuesBasedJumper
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   338
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   339
        writeInstructionWithArgs: (self prettyPrintJump: self fetchBytes2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   340
        stackBefore: self value , self sep , self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   341
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   342
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   343
    "Created: / 20-03-2011 / 21:10:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   344
    "Modified: / 20-03-2011 / 23:03:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   345
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   346
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   347
twoValuesManipulator
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   348
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   349
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   350
        stackBefore: self value , self sep , self value         after: self result.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   351
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   352
    "Created: / 20-03-2011 / 20:31:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   353
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   354
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   355
valueBasedJumper
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   356
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   357
        writeInstructionWithArgs: (self prettyPrintJump: self fetchBytes2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   358
        stackBefore: self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   359
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   360
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   361
    "Created: / 20-03-2011 / 21:09:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   362
    "Modified: / 21-03-2011 / 13:03:34 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   363
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   364
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   365
valueLoader
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   366
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   367
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   368
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   369
        after: self value.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   370
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   371
    "Created: / 20-03-2011 / 20:25:16 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   372
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   373
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   374
valueManipulator
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   375
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   376
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   377
        stackBefore: self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   378
        after: self result.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   379
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   380
    "Created: / 20-03-2011 / 20:27:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   381
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   382
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   383
valueReturner
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   384
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   385
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   386
        stackBefore: self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   387
        after: self empty.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   388
    self returnIfFinished.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   389
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   390
    "Created: / 20-03-2011 / 20:48:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   391
    "Modified: / 21-03-2011 / 14:55:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   392
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   393
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   394
!JavaByteCodeDisassembler methodsFor:'helpers - printing'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   395
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   396
prettyPrintArgs: argsString 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   397
    ^argsString printString
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   398
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   399
    "Created: / 20-03-2011 / 17:30:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   400
    "Modified: / 21-03-2011 / 20:42:14 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   401
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   402
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   403
prettyPrintByte: val 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   404
    ^ self prettyPrintValue: val.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   405
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   406
    "Created: / 20-03-2011 / 21:46:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   407
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   408
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   409
prettyPrintExceptionTable: table 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   410
    table isNil ifTrue: [ ^ '' ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   411
    ^ 'Throws:' 
2841
6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2732
diff changeset
   412
        , (table inject: '' into: [:acc :each | acc , ' ' , each javaName ]).
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   413
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   414
    "Created: / 22-03-2011 / 16:16:34 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   415
    "Modified: / 04-06-2011 / 17:19:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2841
6fa1bcf9c997 JavaClass>>#name vs. #binaryName refactoring
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2732
diff changeset
   416
    "Modified: / 08-10-2013 / 22:42:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   417
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   418
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   419
prettyPrintField: fieldIndex 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   420
    ^ 'FIELD ' , fieldIndex printString , ': ' 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   421
        , (context at: fieldIndex + 1) displayString.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   422
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   423
    "Created: / 20-03-2011 / 17:31:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   424
    "Modified: / 21-03-2011 / 15:57:04 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   425
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   426
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   427
prettyPrintHeaderFor: javaMethod 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   428
    outStream
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   429
        cr;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   430
        print: (javaMethod signatureNameWithModifiers);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   431
        cr;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   432
        print: ('defined in: ' , javaMethod javaClass printString);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   433
        cr;
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
   434
        print: '# arg slots: ' , javaMethod numArgs printString , ', ';
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
   435
        print: '# var slots: ' , javaMethod numVars printString , ', ';
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
   436
        print: '# stack slots: ', javaMethod stackSize printString , ' ';
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   437
        cr;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   438
        print: (self prettyPrintExceptionTable: javaMethod exceptionTable);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   439
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   440
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   441
    "Created: / 22-03-2011 / 15:59:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
   442
    "Modified: / 12-10-2012 / 11:58:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   443
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   444
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   445
prettyPrintIndex: index 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   446
    ^ (constantPool at: index) displayString , ' [' , index printString 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   447
        , '@CP]'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   448
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   449
    "Created: / 20-03-2011 / 17:20:34 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   450
    "Modified: / 22-03-2011 / 16:48:32 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   451
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   452
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   453
prettyPrintJump: jmpNum 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   454
    ^ 'JMP to: ' , (instrPointer + jmpNum ) printString.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   455
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   456
    "Modified: / 21-03-2011 / 14:25:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   457
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   458
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   459
prettyPrintLineNumber
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   460
    |lineNumber|
2726
6971720de5a4 More support for method's source only.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2429
diff changeset
   461
    lineNumber := method lineNumberForPC0: instrPointer.
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   462
    lineNumber isNil ifTrue: [^''].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   463
    ^ (lineNumber printString leftPaddedTo: 4
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   464
        with: Character space)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   465
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   466
    "Modified: / 22-03-2011 / 17:04:16 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
2726
6971720de5a4 More support for method's source only.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2429
diff changeset
   467
    "Modified: / 11-09-2013 / 03:42:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   468
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   469
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   470
prettyPrintLookupSwitchMadness
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   471
    | paddingSize  default  npairs  result |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   472
    result := TextStream on: ''.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   473
    paddingSize := self skipPadding.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   474
    default := self fetchBytes4.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   475
    npairs := self fetchBytes4.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   476
    result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   477
        print: 'PADDING: ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   478
        print: paddingSize printString;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   479
        print: ' NPAIRS: ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   480
        print: npairs printString;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   481
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   482
    result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   483
        print: ('      [ ');
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   484
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   485
    npairs timesRepeat:
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   486
        
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   487
            [ result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   488
                print: '      ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   489
                print: (self fetchBytes4 printString);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   490
                print: ': ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   491
                print: (self prettyPrintJump: self fetchBytes4);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   492
                cr. ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   493
    result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   494
        print: ('      default');
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   495
        print: ': ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   496
        print: (self prettyPrintJump: default);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   497
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   498
    result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   499
        print: ('   ]');
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   500
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   501
    ^ result stringContents.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   502
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   503
    "Created: / 20-03-2011 / 21:23:29 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   504
    "Modified: / 22-03-2011 / 15:03:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   505
    "Modified: / 08-08-2011 / 17:31:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   506
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   507
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   508
prettyPrintRef: ref
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   509
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   510
    ^ ref prettyPrintString.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   511
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   512
    "Created: / 20-03-2011 / 17:20:25 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   513
    "Modified: / 14-08-2011 / 21:12:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   514
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   515
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   516
prettyPrintStackBefore: beforeString after: afterString 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   517
    ^ 'STACK: [' , beforeString printString , ' -> ' , afterString printString , ']'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   518
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   519
    "Created: / 20-03-2011 / 17:24:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   520
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   521
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   522
prettyPrintTableSwitchMadness
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   523
    | paddingSize  default  low  high  result |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   524
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   525
    result := TextStream on: ''.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   526
    paddingSize := self skipPadding.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   527
    default := self fetchBytes4.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   528
    low := self fetchBytes4.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   529
    high := self fetchBytes4.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   530
    result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   531
        print: 'PADDING: ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   532
        print: paddingSize printString;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   533
        print: ' LOW: ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   534
        print: low printString;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   535
        print: ' HIGH: ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   536
        print: high printString;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   537
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   538
    result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   539
        print: ('   [ ');
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   540
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   541
    low to: high
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   542
        do: 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   543
            [:index | 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   544
            result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   545
                nextPutAll:'  '; print: (index printString);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   546
                print: ': ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   547
                print: (self prettyPrintJump: self fetchBytes4);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   548
                cr. ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   549
                result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   550
                print: ('   default');
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   551
                print: ': ';
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   552
                print: (self prettyPrintJump: default);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   553
                                cr. 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   554
    result
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   555
        print: ('   ]');
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   556
        cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   557
    ^ result stringContents.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   558
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   559
    "Created: / 20-03-2011 / 21:34:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   560
    "Modified: / 21-03-2011 / 15:01:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   561
    "Modified: / 08-08-2011 / 17:29:09 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   562
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   563
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   564
prettyPrintType: type
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   565
    type = 4 ifTrue: [ ^ 'boolean'].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   566
    type = 5 ifTrue: [ ^'char'].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   567
    type = 6 ifTrue: [ ^  'float'  ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   568
    type = 7 ifTrue: [ ^'double' ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   569
    type = 8 ifTrue: [ ^  'byte'  ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   570
    type = 9 ifTrue: [ ^ 'short'  ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   571
    type = 10 ifTrue: [ ^'int'  ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   572
    type = 11 ifTrue: [ ^ 'long'  ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   573
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   574
    "Created: / 20-03-2011 / 20:12:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   575
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   576
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   577
prettyPrintValue: val 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   578
    ^ val printString.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   579
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   580
    "Created: / 20-03-2011 / 18:16:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   581
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   582
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   583
writeInstructionWithArgs: argsString stackBefore: stackBefore after: stackAfter 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   584
    placeholders
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   585
        at: 'PC'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   586
            put: (instrPointer printString leftPaddedTo: 3 with: Character space);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   587
        at: 'LINENUMBER' put: self prettyPrintLineNumber;
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   588
        at: 'OPCODE' put: (op printString leftPaddedTo: 3 with: Character space);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   589
        at: 'ISN'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   590
            put: ((OpSwitchTable at: op + 1) asUppercase printString paddedTo: 10);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   591
        at: 'OPERANDS' put: ((self prettyPrintArgs: argsString) paddedTo: 25);
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   592
        at: 'STACK'
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   593
            put: (self prettyPrintStackBefore: stackBefore after: stackAfter).
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   594
    format expandPlaceholdersWith: placeholders on: outStream.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   595
    outStream cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   596
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   597
    "Created: / 20-03-2011 / 19:56:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   598
    "Modified: / 21-03-2011 / 20:56:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   599
    "Modified: / 22-03-2011 / 17:00:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   600
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   601
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   602
writeLine: lno
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   603
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   604
    outStream nextPutAll: 'LINE '.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   605
    lno printOn: outStream.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   606
    outStream cr.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   607
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   608
    "Modified: / 22-03-2011 / 17:00:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   609
    "Created: / 22-03-2011 / 20:53:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   610
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   611
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   612
!JavaByteCodeDisassembler methodsFor:'initialization'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   613
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   614
initialize
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   615
    "Invoked when a new instance is created."
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   616
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   617
    "/ please change as required (and remove this comment)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   618
    "/ outStream := nil.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   619
    placeholders := Dictionary new.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   620
    format := StandardFormat.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   621
              "/ExtendedFormat.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   622
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   623
    "/ super initialize.   -- commented since inherited method does nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   624
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   625
    "Modified: / 22-03-2011 / 20:53:50 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   626
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   627
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   628
!JavaByteCodeDisassembler methodsFor:'instructions'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   629
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   630
aaload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   631
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   632
        arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   633
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   634
    "Modified: / 20-03-2011 / 19:59:04 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   635
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   636
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   637
aastore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   638
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   639
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   640
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   641
    "Modified: / 20-03-2011 / 20:01:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   642
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   643
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   644
aconst_null
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   645
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   646
        constPusher: 'null'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   647
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   648
    "Modified: / 20-03-2011 / 20:39:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   649
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   650
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   651
aload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   652
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   653
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   654
        writeInstructionWithArgs: (self prettyPrintField: self fetchIndex)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   655
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   656
        after: self objRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   657
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   658
    "Modified: / 21-03-2011 / 15:45:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   659
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   660
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   661
aload: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   662
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   663
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   664
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   665
        after: (self prettyPrintField: arg).
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   666
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   667
    "Modified: / 21-03-2011 / 16:30:53 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   668
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   669
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   670
anewarray
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   671
self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   672
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   673
        stackBefore: self size 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   674
        after: self arrayRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   675
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   676
    "Modified: / 20-03-2011 / 20:09:12 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   677
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   678
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   679
areturn
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   680
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   681
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   682
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   683
        after: self empty.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   684
    self returnIfFinished.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   685
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   686
    "Modified: / 21-03-2011 / 14:55:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   687
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   688
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   689
arraylength
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   690
 self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   691
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   692
        stackBefore: self arrayRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   693
         after: self arrayLength.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   694
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   695
    "Modified: / 20-03-2011 / 20:16:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   696
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   697
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   698
astore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   699
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   700
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   701
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   702
            after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   703
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   704
    "Modified: / 20-03-2011 / 20:19:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   705
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   706
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   707
astore: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   708
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   709
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   710
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   711
            after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   712
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   713
    "Modified: / 20-03-2011 / 20:19:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   714
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   715
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   716
athrow
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   717
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   718
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   719
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   720
        after: self empty , self sep , self excRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   721
        self returnIfFinished.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   722
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   723
    "Modified: / 22-03-2011 / 14:24:36 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   724
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   725
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   726
baload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   727
self arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   728
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   729
    "Modified: / 20-03-2011 / 19:59:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   730
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   731
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   732
bastore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   733
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   734
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   735
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   736
    "Modified: / 20-03-2011 / 20:01:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   737
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   738
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   739
bipush
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   740
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   741
        writeInstructionWithArgs: (self prettyPrintByte: self fetchByte)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   742
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   743
        after: self value.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   744
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   745
    "Modified: / 20-03-2011 / 21:32:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   746
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   747
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   748
breakpoint
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   749
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   750
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   751
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   752
            after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   753
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   754
    "Modified: / 20-03-2011 / 20:26:43 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   755
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   756
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   757
caload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   758
self arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   759
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   760
    "Modified: / 20-03-2011 / 19:59:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   761
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   762
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   763
castore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   764
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   765
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   766
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   767
    "Modified: / 20-03-2011 / 20:02:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   768
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   769
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   770
checkcast
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   771
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   772
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   773
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   774
            after: self objRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   775
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   776
    "Modified: / 20-03-2011 / 20:23:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   777
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   778
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   779
d2f
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   780
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   781
        valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   782
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   783
    "Modified: / 20-03-2011 / 20:27:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   784
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   785
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   786
d2i
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   787
  self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   788
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   789
    "Modified: / 20-03-2011 / 20:27:55 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   790
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   791
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   792
d2l
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   793
 self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   794
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   795
    "Modified: / 20-03-2011 / 20:28:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   796
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   797
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   798
dadd
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   799
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   800
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   801
    "Modified: / 20-03-2011 / 20:31:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   802
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   803
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   804
daload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   805
self arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   806
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   807
    "Modified: / 20-03-2011 / 19:59:53 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   808
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   809
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   810
dastore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   811
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   812
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   813
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   814
    "Modified: / 20-03-2011 / 20:01:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   815
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   816
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   817
dcmpg
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   818
 self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   819
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   820
    "Modified: / 20-03-2011 / 20:31:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   821
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   822
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   823
dcmpl
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   824
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   825
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   826
    "Modified: / 20-03-2011 / 20:31:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   827
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   828
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   829
dconst: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   830
    self constPusher: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   831
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   832
    "Modified: / 20-03-2011 / 20:39:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   833
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   834
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   835
ddiv
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   836
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   837
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   838
    "Modified: / 20-03-2011 / 20:31:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   839
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   840
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   841
dload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   842
    self indexedFieldLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   843
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   844
    "Modified: / 20-03-2011 / 20:44:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   845
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   846
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   847
dload: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   848
self fieldLoader: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   849
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   850
    "Modified: / 20-03-2011 / 20:45:59 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   851
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   852
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   853
dmul
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   854
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   855
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   856
    "Modified: / 20-03-2011 / 20:31:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   857
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   858
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   859
dneg
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   860
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   861
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   862
    "Modified: / 20-03-2011 / 20:28:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   863
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   864
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   865
drem
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   866
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   867
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   868
    "Modified: / 20-03-2011 / 20:31:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   869
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   870
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   871
dreturn
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   872
    self valueReturner.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   873
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   874
    "Modified: / 20-03-2011 / 20:47:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   875
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   876
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   877
dstore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   878
    self indexedFieldStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   879
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   880
    "Modified: / 20-03-2011 / 20:54:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   881
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   882
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   883
dstore: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   884
self fieldStorer: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   885
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   886
    "Modified: / 20-03-2011 / 20:55:25 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   887
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   888
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   889
dsub
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   890
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   891
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   892
    "Modified: / 20-03-2011 / 20:32:00 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   893
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   894
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   895
dup
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   896
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   897
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   898
        stackBefore: self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   899
        after: self valueMarked , self sep , self valueMarked.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   900
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   901
    "Modified: / 20-03-2011 / 20:58:59 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   902
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   903
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   904
dup2
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   905
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   906
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   907
        stackBefore: self stackGroupOpen , self value , self sep , self value , self stackGroupClose
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   908
            after: self stackGroupOpen , self value , self sep , self value , self stackGroupClose , self sep , self stackGroupOpen , self value , self sep , self value , self stackGroupClose.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   909
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   910
    "Modified: / 20-03-2011 / 21:03:25 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   911
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   912
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   913
dup2_x1
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   914
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   915
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   916
        stackBefore: self stackGroupOpen , self value , self sep , self value 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   917
                , self stackGroupClose
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   918
        after: self stackGroupOpen , self value , self sep , self value 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   919
                , self stackGroupClose , self sep 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   920
                , self stackGroupOpen , self value 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   921
                , self sep , self value 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   922
                    , self stackGroupClose.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   923
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   924
    "Modified: / 20-03-2011 / 21:06:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   925
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   926
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   927
dup2_x2
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   928
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   929
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   930
        stackBefore: self stackGroupOpen , self value , self sep , self value 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   931
                , self stackGroupClose , self sep , self stackGroupOpen , self valueMarked , self sep , self valueMarked 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   932
                                , self stackGroupClose
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   933
        after: self stackGroupOpen , self valueMarked , self sep , self valueMarked 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   934
                , self stackGroupClose , self sep 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   935
                , self stackGroupOpen , self value 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   936
                , self sep , self value 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   937
                        , self stackGroupClose , self sep ,  self stackGroupOpen , self valueMarked , self sep , self valueMarked 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   938
                , self stackGroupClose.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   939
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   940
    "Modified: / 20-03-2011 / 21:07:26 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   941
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   942
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   943
dup_x1
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   944
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   945
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   946
        stackBefore: self value , self sep , self valueMarked
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   947
        after: self valueMarked , self sep , self value , self sep 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   948
                    , self valueMarked.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   949
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   950
    "Modified: / 20-03-2011 / 21:00:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   951
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   952
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   953
dup_x2
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   954
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   955
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   956
        stackBefore: self value , self sep , self value , self sep , self valueMarked
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   957
        after: self valueMarked , self sep , self value , self sep , self value , self sep ,
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   958
                     self valueMarked.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   959
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   960
    "Modified: / 20-03-2011 / 21:01:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   961
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   962
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   963
f2d
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   964
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   965
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   966
    "Modified: / 20-03-2011 / 20:28:25 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   967
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   968
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   969
f2i
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   970
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   971
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   972
    "Modified: / 20-03-2011 / 20:28:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   973
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   974
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   975
f2l
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   976
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   977
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   978
    "Modified: / 20-03-2011 / 20:28:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   979
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   980
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   981
fadd
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   982
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   983
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   984
    "Modified: / 20-03-2011 / 20:32:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   985
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   986
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   987
faload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   988
self arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   989
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   990
    "Modified: / 20-03-2011 / 20:00:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   991
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   992
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   993
fastore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   994
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   995
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   996
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   997
    "Modified: / 20-03-2011 / 20:01:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   998
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
   999
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1000
fcmpg
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1001
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1002
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1003
    "Modified: / 20-03-2011 / 20:32:32 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1004
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1005
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1006
fcmpl
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1007
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1008
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1009
    "Modified: / 20-03-2011 / 20:32:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1010
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1011
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1012
fconst: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1013
    self constPusher: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1014
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1015
    "Modified: / 20-03-2011 / 20:39:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1016
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1017
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1018
fdiv
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1019
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1020
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1021
    "Modified: / 20-03-2011 / 20:32:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1022
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1023
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1024
fload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1025
self indexedFieldLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1026
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1027
    "Modified: / 20-03-2011 / 20:44:31 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1028
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1029
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1030
fload: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1031
self fieldLoader: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1032
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1033
    "Modified: / 20-03-2011 / 20:45:53 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1034
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1035
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1036
fmul
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1037
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1038
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1039
    "Modified: / 20-03-2011 / 20:32:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1040
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1041
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1042
fneg
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1043
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1044
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1045
    "Modified: / 20-03-2011 / 20:28:53 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1046
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1047
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1048
frem
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1049
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1050
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1051
    "Modified: / 20-03-2011 / 20:32:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1052
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1053
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1054
freturn
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1055
    self valueReturner.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1056
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1057
    "Modified: / 20-03-2011 / 20:48:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1058
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1059
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1060
fstore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1061
self indexedFieldStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1062
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1063
    "Modified: / 20-03-2011 / 20:54:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1064
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1065
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1066
fstore: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1067
   self fieldStorer: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1068
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1069
    "Modified: / 20-03-2011 / 20:55:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1070
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1071
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1072
fsub
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1073
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1074
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1075
    "Modified: / 20-03-2011 / 20:32:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1076
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1077
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1078
getfield
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1079
    | index |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1080
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1081
    index := self fetchIndex2.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1082
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1083
        writeInstructionWithArgs: (self prettyPrintIndex: index)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1084
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1085
        after: self objRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1086
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1087
    "Modified: / 21-03-2011 / 16:25:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1088
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1089
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1090
getstatic
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1091
    | index |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1092
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1093
    index := self fetchIndex2.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1094
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1095
        writeInstructionWithArgs: (self prettyPrintIndex: index)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1096
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1097
        after: self objRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1098
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1099
    "Modified: / 21-03-2011 / 16:25:29 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1100
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1101
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1102
goto
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1103
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1104
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1105
        writeInstructionWithArgs: (self prettyPrintJump: self fetchBytes2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1106
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1107
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1108
        self returnIfFinished.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1109
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1110
    "Modified: / 22-03-2011 / 14:30:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1111
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1112
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1113
goto_w
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1114
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1115
        writeInstructionWithArgs: (self prettyPrintJump: self fetchBytes4)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1116
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1117
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1118
        self returnIfFinished.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1119
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1120
    "Modified: / 22-03-2011 / 14:30:08 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1121
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1122
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1123
i2d
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1124
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1125
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1126
    "Modified: / 20-03-2011 / 20:28:58 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1127
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1128
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1129
i2f
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1130
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1131
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1132
    "Modified: / 20-03-2011 / 20:29:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1133
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1134
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1135
i2l
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1136
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1137
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1138
    "Modified: / 20-03-2011 / 20:29:06 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1139
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1140
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1141
i_dup
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1142
    "raise an error: must be redefined in concrete subclass(es)"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1143
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1144
    ^ self shouldImplement
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1145
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1146
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1147
iadd
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1148
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1149
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1150
    "Modified: / 20-03-2011 / 20:33:02 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1151
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1152
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1153
iaload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1154
self arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1155
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1156
    "Modified: / 20-03-2011 / 20:00:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1157
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1158
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1159
iand
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1160
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1161
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1162
    "Modified: / 20-03-2011 / 20:33:14 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1163
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1164
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1165
iastore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1166
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1167
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1168
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1169
    "Modified: / 20-03-2011 / 20:02:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1170
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1171
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1172
iconst: arg
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1173
self constPusher: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1174
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1175
    "Created: / 20-03-2011 / 20:41:17 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1176
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1177
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1178
idiv
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1179
self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1180
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1181
    "Modified: / 20-03-2011 / 20:33:19 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1182
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1183
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1184
ifacmpeq
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1185
   self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1186
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1187
    "Modified: / 20-03-2011 / 21:11:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1188
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1189
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1190
ifacmpne
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1191
    self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1192
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1193
    "Modified: / 20-03-2011 / 21:11:04 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1194
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1195
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1196
ifeq
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1197
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1198
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1199
    "Modified: / 20-03-2011 / 21:11:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1200
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1201
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1202
ifge
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1203
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1204
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1205
    "Modified: / 20-03-2011 / 21:11:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1206
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1207
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1208
ifgt
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1209
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1210
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1211
    "Modified: / 20-03-2011 / 21:11:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1212
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1213
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1214
ificmpeq
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1215
    self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1216
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1217
    "Modified: / 20-03-2011 / 21:10:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1218
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1219
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1220
ificmpge
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1221
self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1222
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1223
    "Modified: / 20-03-2011 / 21:11:09 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1224
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1225
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1226
ificmpgt
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1227
self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1228
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1229
    "Modified: / 20-03-2011 / 21:11:12 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1230
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1231
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1232
ificmple
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1233
self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1234
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1235
    "Modified: / 20-03-2011 / 21:11:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1236
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1237
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1238
ificmplt
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1239
self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1240
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1241
    "Modified: / 20-03-2011 / 21:11:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1242
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1243
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1244
ificmpne
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1245
self twoValuesBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1246
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1247
    "Modified: / 20-03-2011 / 21:11:21 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1248
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1249
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1250
ifle
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1251
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1252
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1253
    "Modified: / 20-03-2011 / 21:11:46 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1254
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1255
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1256
iflt
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1257
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1258
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1259
    "Modified: / 20-03-2011 / 21:11:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1260
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1261
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1262
ifne
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1263
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1264
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1265
    "Modified: / 20-03-2011 / 21:11:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1266
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1267
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1268
ifnonnull
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1269
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1270
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1271
    "Modified: / 20-03-2011 / 21:11:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1272
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1273
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1274
ifnull
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1275
self valueBasedJumper.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1276
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1277
    "Modified: / 20-03-2011 / 21:12:03 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1278
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1279
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1280
iinc
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1281
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1282
    wide 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1283
        ifTrue: 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1284
            [ self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1285
                writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2) 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1286
                        , self sep , (self prettyPrintByte: self fetchBytes2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1287
                stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1288
                after: self result.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1289
            wide := false. ]
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1290
        ifFalse: 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1291
            [ self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1292
                writeInstructionWithArgs: (self prettyPrintField: self fetchIndex) 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1293
                        , self sep , (self prettyPrintByte: self fetchByte)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1294
                stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1295
                after: self result. ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1296
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1297
    "Modified: / 21-03-2011 / 16:23:39 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1298
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1299
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1300
iload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1301
self indexedFieldLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1302
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1303
    "Modified: / 20-03-2011 / 20:44:43 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1304
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1305
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1306
iload: index 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1307
    self fieldLoader: index.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1308
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1309
    "Modified: / 20-03-2011 / 20:45:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1310
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1311
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1312
imul
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1313
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1314
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1315
    "Modified: / 20-03-2011 / 20:33:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1316
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1317
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1318
ineg
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1319
     self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1320
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1321
    "Modified: / 20-03-2011 / 20:30:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1322
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1323
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1324
instanceof
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1325
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1326
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1327
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1328
            after: self result.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1329
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1330
    "Modified: / 20-03-2011 / 20:21:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1331
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1332
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1333
int2byte
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1334
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1335
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1336
    "Modified: / 20-03-2011 / 20:29:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1337
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1338
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1339
int2char
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1340
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1341
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1342
    "Modified: / 20-03-2011 / 20:29:16 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1343
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1344
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1345
int2short
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1346
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1347
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1348
    "Modified: / 20-03-2011 / 20:29:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1349
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1350
3383
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1351
invdynamic
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1352
    | index |
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1353
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1354
    index := self fetchIndex2.
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1355
    pc := pc + 2.
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1356
    self 
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1357
        writeInstructionWithArgs: (self prettyPrintIndex: index)                 
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1358
        stackBefore: self objRef , self sep , self varArgs
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1359
        after: self whatever.
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1360
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1361
    "Created: / 25-02-2015 / 19:37:57 / Jan Vrany <jan.vrany@fit.cvut.cz>"
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1362
!
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1363
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1364
invinterface
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1365
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1366
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2) , self sep , ( self prettyPrintByte: self fetchByte) , self sep , 0 printString
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1367
        stackBefore: self objRef , self sep , self varArgs
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1368
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1369
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1370
    "Modified: / 20-03-2011 / 21:15:49 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1371
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1372
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1373
invnonvirt
3383
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1374
    self 
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1375
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)                 
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1376
        stackBefore: self objRef , self sep , self varArgs
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1377
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1378
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1379
    "Modified: / 20-03-2011 / 21:17:35 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
3383
858b2f40ce91 Added support for InvokeDynamic to JavaByteCodeProcessor.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3324
diff changeset
  1380
    "Modified (format): / 25-02-2015 / 19:36:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1381
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1382
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1383
invstatic
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1384
   self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1385
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1386
        stackBefore: self varArgs
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1387
           after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1388
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1389
    "Modified: / 20-03-2011 / 21:17:55 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1390
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1391
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1392
invvirt
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1393
     self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1394
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1395
        stackBefore: self objRef , self sep , self varArgs
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1396
             after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1397
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1398
    "Modified: / 20-03-2011 / 21:18:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1399
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1400
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1401
ior
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1402
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1403
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1404
    "Modified: / 20-03-2011 / 20:33:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1405
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1406
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1407
irem
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1408
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1409
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1410
    "Modified: / 20-03-2011 / 20:33:56 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1411
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1412
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1413
ireturn
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1414
   self valueReturner.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1415
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1416
    "Modified: / 20-03-2011 / 20:48:30 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1417
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1418
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1419
ishl
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1420
   self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1421
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1422
    "Modified: / 20-03-2011 / 20:34:07 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1423
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1424
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1425
ishr
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1426
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1427
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1428
    "Modified: / 20-03-2011 / 20:34:11 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1429
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1430
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1431
istore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1432
self indexedFieldStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1433
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1434
    "Modified: / 20-03-2011 / 20:54:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1435
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1436
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1437
istore: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1438
self fieldStorer: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1439
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1440
    "Modified: / 20-03-2011 / 20:55:10 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1441
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1442
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1443
isub
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1444
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1445
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1446
    "Modified: / 20-03-2011 / 20:34:19 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1447
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1448
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1449
iushr
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1450
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1451
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1452
    "Modified: / 20-03-2011 / 20:34:23 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1453
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1454
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1455
ixor
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1456
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1457
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1458
    "Modified: / 20-03-2011 / 20:34:27 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1459
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1460
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1461
jsr
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1462
      self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1463
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1464
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1465
              after: self address.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1466
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1467
    "Modified: / 20-03-2011 / 21:20:24 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1468
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1469
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1470
jsr_w
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1471
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1472
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchBytes4)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1473
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1474
        after: self address.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1475
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1476
    "Modified: / 21-03-2011 / 13:03:29 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1477
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1478
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1479
l2d
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1480
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1481
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1482
    "Modified: / 20-03-2011 / 20:29:50 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1483
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1484
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1485
l2f
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1486
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1487
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1488
    "Modified: / 20-03-2011 / 20:29:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1489
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1490
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1491
l2i
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1492
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1493
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1494
    "Modified: / 20-03-2011 / 20:29:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1495
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1496
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1497
ladd
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1498
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1499
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1500
    "Modified: / 20-03-2011 / 20:35:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1501
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1502
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1503
laload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1504
self arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1505
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1506
    "Modified: / 20-03-2011 / 20:00:29 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1507
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1508
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1509
land
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1510
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1511
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1512
    "Modified: / 20-03-2011 / 20:35:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1513
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1514
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1515
lastore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1516
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1517
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1518
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1519
    "Modified: / 20-03-2011 / 20:02:47 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1520
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1521
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1522
lcmp
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1523
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1524
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1525
    "Modified: / 20-03-2011 / 20:35:45 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1526
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1527
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1528
lconst: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1529
    self constPusher: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1530
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1531
    "Modified: / 20-03-2011 / 20:41:30 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1532
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1533
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1534
ldc1
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1535
self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1536
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1537
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1538
        after: self value.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1539
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1540
    "Modified: / 20-03-2011 / 21:21:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1541
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1542
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1543
ldc2
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1544
   self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1545
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1546
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1547
           after: self value.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1548
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1549
    "Modified: / 20-03-2011 / 21:21:55 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1550
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1551
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1552
ldc2w
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1553
self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1554
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1555
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1556
        after: self value.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1557
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1558
    "Modified: / 22-03-2011 / 14:18:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1559
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1560
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1561
ldiv
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1562
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1563
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1564
    "Modified: / 20-03-2011 / 20:36:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1565
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1566
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1567
lload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1568
self indexedFieldLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1569
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1570
    "Modified: / 20-03-2011 / 20:44:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1571
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1572
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1573
lload: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1574
self fieldLoader: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1575
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1576
    "Modified: / 20-03-2011 / 20:45:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1577
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1578
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1579
lmul
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1580
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1581
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1582
    "Modified: / 20-03-2011 / 20:36:10 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1583
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1584
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1585
lneg
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1586
   self valueManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1587
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1588
    "Modified: / 20-03-2011 / 20:29:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1589
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1590
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1591
lookupswtch
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1592
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1593
        writeInstructionWithArgs: (self prettyPrintLookupSwitchMadness)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1594
        stackBefore: self key
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1595
            after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1596
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1597
    "Modified: / 20-03-2011 / 21:24:10 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1598
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1599
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1600
lor
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1601
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1602
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1603
    "Modified: / 20-03-2011 / 20:36:15 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1604
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1605
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1606
lrem
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1607
   self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1608
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1609
    "Modified: / 20-03-2011 / 20:36:18 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1610
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1611
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1612
lreturn
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1613
    self valueReturner.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1614
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1615
    "Modified: / 20-03-2011 / 20:48:38 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1616
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1617
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1618
lshl
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1619
  self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1620
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1621
    "Modified: / 20-03-2011 / 20:36:22 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1622
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1623
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1624
lshr
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1625
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1626
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1627
    "Modified: / 20-03-2011 / 20:36:27 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1628
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1629
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1630
lstore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1631
self indexedFieldStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1632
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1633
    "Modified: / 20-03-2011 / 20:54:29 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1634
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1635
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1636
lstore: arg 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1637
    self fieldStorer: arg.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1638
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1639
    "Modified: / 20-03-2011 / 20:55:04 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1640
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1641
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1642
lsub
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1643
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1644
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1645
    "Modified: / 20-03-2011 / 20:36:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1646
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1647
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1648
lushr
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1649
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1650
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1651
    "Modified: / 20-03-2011 / 20:36:37 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1652
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1653
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1654
lxor
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1655
    self twoValuesManipulator.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1656
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1657
    "Modified: / 20-03-2011 / 20:36:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1658
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1659
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1660
monenter
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1661
  self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1662
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1663
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1664
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1665
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1666
    "Modified: / 20-03-2011 / 20:20:44 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1667
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1668
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1669
monexit
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1670
self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1671
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1672
        stackBefore: self objRef
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1673
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1674
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1675
    "Modified: / 20-03-2011 / 20:20:51 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1676
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1677
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1678
multianewarray
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1679
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1680
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2) 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1681
                , self sep , (self prettyPrintByte: self fetchByte)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1682
        stackBefore: self dimensions
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1683
        after: self arrayRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1684
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1685
    "Modified: / 20-03-2011 / 21:25:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1686
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1687
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1688
new
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1689
self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1690
        writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1691
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1692
        after: self objRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1693
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1694
    "Modified: / 20-03-2011 / 20:07:28 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1695
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1696
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1697
newarray
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1698
self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1699
        writeInstructionWithArgs: (self prettyPrintType: self fetchByte)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1700
        stackBefore: self size 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1701
        after: self arrayRef.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1702
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1703
    "Modified: / 20-03-2011 / 20:10:52 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1704
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1705
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1706
nop
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1707
   self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1708
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1709
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1710
           after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1711
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1712
    "Modified: / 20-03-2011 / 21:26:58 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1713
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1714
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1715
pop1
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1716
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1717
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1718
        stackBefore: self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1719
            after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1720
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1721
    "Modified: / 20-03-2011 / 21:27:33 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1722
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1723
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1724
pop2
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1725
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1726
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1727
        stackBefore: self value , self sep , self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1728
            after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1729
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1730
    "Modified: / 20-03-2011 / 21:27:48 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1731
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1732
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1733
putfield
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1734
    | index |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1735
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1736
    index := self fetchIndex2.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1737
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1738
        writeInstructionWithArgs: (self prettyPrintIndex: index)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1739
        stackBefore: self objRef , self sep , self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1740
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1741
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1742
    "Modified: / 21-03-2011 / 16:26:14 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1743
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1744
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1745
putstatic
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1746
    | index |
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1747
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1748
    index := self fetchIndex2.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1749
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1750
        writeInstructionWithArgs: (self prettyPrintIndex: index)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1751
        stackBefore: self value
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1752
        after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1753
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1754
    "Modified: / 21-03-2011 / 16:26:19 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1755
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1756
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1757
ret
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1758
    wide 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1759
        ifTrue: 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1760
            [ self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1761
                writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1762
                stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1763
                after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1764
            wide := false. ]
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1765
        ifFalse: 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1766
            [ self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1767
                writeInstructionWithArgs: (self prettyPrintIndex: self fetchIndex)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1768
                stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1769
                after: self whatever. ].
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1770
                self returnIfFinished.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1771
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1772
    "Modified: / 21-03-2011 / 14:57:04 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1773
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1774
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1775
ret_w
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1776
    self halt: 'spec doesnt know about me, what shall I do?'.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1777
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1778
    "Modified: / 20-03-2011 / 21:31:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1779
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1780
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1781
return
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1782
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1783
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1784
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1785
        after: self empty.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1786
    self returnIfFinished.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1787
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1788
    "Modified: / 21-03-2011 / 14:56:54 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1789
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1790
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1791
saload
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1792
self arrayValueLoader.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1793
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1794
    "Modified: / 20-03-2011 / 20:00:41 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1795
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1796
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1797
sastore
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1798
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1799
        arrayValueStorer.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1800
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1801
    "Modified: / 20-03-2011 / 20:03:05 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1802
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1803
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1804
sipush
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1805
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1806
        writeInstructionWithArgs: (self prettyPrintByte: self fetchBytes2)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1807
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1808
            after: self value.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1809
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1810
    "Modified: / 20-03-2011 / 21:33:01 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1811
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1812
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1813
swap
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1814
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1815
        writeInstructionWithArgs: (self prettyPrintByte: self fetchByte)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1816
        stackBefore: self valueMarked , self sep , self valueMarked2
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1817
            after: self valueMarked2 , self sep , self valueMarked.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1818
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1819
    "Modified: / 20-03-2011 / 21:33:42 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1820
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1821
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1822
tableswtch
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1823
    self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1824
        writeInstructionWithArgs: (self prettyPrintTableSwitchMadness)
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1825
        stackBefore: self index
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1826
            after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1827
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1828
    "Modified: / 20-03-2011 / 21:34:57 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1829
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1830
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1831
wide
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1832
    wide := true.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1833
     self 
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1834
        writeInstructionWithArgs: self nothing
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1835
        stackBefore: self whatever
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1836
             after: self whatever.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1837
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1838
    "Modified: / 20-03-2011 / 21:48:20 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1839
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1840
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1841
!JavaByteCodeDisassembler methodsFor:'processing loop'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1842
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1843
handleAbstractMethod
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1844
^nil.
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1845
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1846
    "Created: / 22-03-2011 / 14:51:13 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1847
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1848
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1849
initializeContextVars
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1850
    1 to: numVars
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1851
        do: [:idx | context at: (numArgs + idx) put: 'Var ' , idx printString. ]
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1852
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1853
    "Modified: / 21-03-2011 / 15:28:12 / Marcel Hlopko <hlopkmar@fel.cvut.cz>"
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1854
!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1855
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1856
switch: opcode
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1857
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1858
    | lno |
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1859
    "bytecode positions in line number table starts with 0, not 1"
2726
6971720de5a4 More support for method's source only.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2429
diff changeset
  1860
    lno := method lineNumberForPC0: instrPointer - 1.
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1861
    lastLno ~~ lno ifTrue:[self writeLine: (lastLno := lno)].
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1862
    ^super switch: opcode
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1863
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1864
    "Created: / 22-03-2011 / 20:57:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"
2726
6971720de5a4 More support for method's source only.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2429
diff changeset
  1865
    "Modified: / 11-09-2013 / 03:22:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1866
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1867
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1868
!JavaByteCodeDisassembler class methodsFor:'documentation'!
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1869
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1870
version_CVS
3444
f30b56fb96b2 class: JavaByteCodeDisassembler
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
  1871
    ^ '$Header: /cvs/stx/stx/libjava/JavaByteCodeDisassembler.st,v 1.10 2015-05-07 21:35:59 cg Exp $'
2313
23e9c0bdcf57 fixed: #version_SVN ($ to §)
Claus Gittinger <cg@exept.de>
parents: 2187
diff changeset
  1872
!
23e9c0bdcf57 fixed: #version_SVN ($ to §)
Claus Gittinger <cg@exept.de>
parents: 2187
diff changeset
  1873
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1874
version_HG
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1875
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1876
    ^ '$Changeset: <not expanded> $'
2187
b74cfdd604fc added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2152
diff changeset
  1877
!
b74cfdd604fc added: #version_CVS
Claus Gittinger <cg@exept.de>
parents: 2152
diff changeset
  1878
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1879
version_SVN
3444
f30b56fb96b2 class: JavaByteCodeDisassembler
Claus Gittinger <cg@exept.de>
parents: 3431
diff changeset
  1880
    ^ '$Id: JavaByteCodeDisassembler.st,v 1.10 2015-05-07 21:35:59 cg Exp $'
749
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1881
! !
e898eaeff091 Synchronized with CVS repository at:
vranyj1
parents:
diff changeset
  1882
2353
fa7400d022a0 Updated to https://swing.fit.cvut.cz/hg/stx.libjava/rev/31f8b995905e
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2313
diff changeset
  1883
2152
1cbdfbcc685c Jan's version
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 749
diff changeset
  1884
JavaByteCodeDisassembler initialize!