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