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