--- a/ByteCodeCompiler.st Mon Jul 12 19:08:52 1999 +0200
+++ b/ByteCodeCompiler.st Tue Jul 13 11:19:21 1999 +0200
@@ -1480,7 +1480,8 @@
should add more here, to be able to fileIn ST-80 methods
containing primitive calls (who gives me the numbers ... ?)
mhmh - got some ..."
-
+ "/ ST80:
+ "/
"/ 18 Number @
"/ 21 LargePositiveInteger +
"/ 22 LargePositiveInteger -
@@ -1710,8 +1711,281 @@
"/ 996 Screen deviceColormap
"/ 998 GraphicsContext displayUninterpretedMonoImageBits:foreground:background:at:
+ "/ Squeak:
+ "/
+ "/ 1 +
+ "/ 2 -
+ "/ 3 <
+ "/ 4 >
+ "/ 5 <=
+ "/ 6 >=
+ "/ 7 =
+ "/ 8 ~=
+ "/ 9 *
+ "/ 10 /
+ "/ 11 mod:
+ "/ 12 div:
+ "/ 13 quo:
+ "/ 14 bitAnd:
+ "/ 15 bitOr:
+ "/ 16 bitXor:
+ "/ 17 bitShift:
+ "/ 18 @
+ "/ 19
+ "/ ...
+ "/ 39 fail - reserved/unimplemented
+ "/ 40 asFloat
+ "/ 41 Float +
+ "/ 42 Float -
+ "/ 43 Float <
+ "/ 44 Float >
+ "/ 45 Float <=
+ "/ 46 Float >=
+ "/ 47 Float =
+ "/ 48 Float ~=
+ "/ 49 Float *
+ "/ 50 Float /
+ "/ 51 Float truncated
+ "/ 52 Float fractionalPart
+ "/ 53 Float exponent
+ "/ 54 Float timeTwoPower
+ "/ 55 Float sqrt
+ "/ 56 Float sine
+ "/ 57 Float arcTan
+ "/ 58 Float logN
+ "/ 59 Float exp
+ "/ 60 at:
+ "/ 61 at:put:
+ "/ 62 size
+ "/ 63 stringAt:
+ "/ 64 stringAt:put:
+ "/ 65 next
+ "/ 66 nextPut:
+ "/ 67 atEnd
+ "/ 68 objectAt:
+ "/ 69 objectAt:put:
+ "/ 70 new
+ "/ 71 new:
+ "/ 72 becomeOneWay
+ "/ 73 instVarAt:
+ "/ 74 instVarAtPut:
+ "/ 75 asOop
+ "/ 76 storeStackP
+ "/ 77 someInstance
+ "/ 78 nextInstance
+ "/ 79 newMethod
+ "/ 80 blockCopy
+ "/ 81 value
+ "/ 82 valueWithArgs
+ "/ 83 perform
+ "/ 84 performWithArgs
+ "/ 85 signal
+ "/ 86 wait
+ "/ 87 resume
+ "/ 88 suspend
+ "/ 89 flushCache
+ "/ 90 mousePoint
+ "/ 91 fail/unimplemented/reserved
+ "/ 92 fail/unimplemented/reserved
+ "/ 93 inputSemaphore
+ "/ 94 fail/unimplemented/reserved
+ "/ 95 inputWord
+ "/ 96 copyBits
+ "/ 97 snapShot
+ "/ 98 fail/unimplemented/reserved
+ "/ 99 fail/unimplemented/reserved
+ "/ 100 fail/unimplemented/reserved
+ "/ 101 beCursor
+ "/ 102 beDisplay
+ "/ 103 scanCharacters
+ "/ 104 drawLoop
+ "/ 105 stringReplace
+ "/ 106 screenSize
+ "/ 107 mouseButtons
+ "/ 108 kbdNext
+ "/ 109 kbdPeek
+ "/ 110 equivalent
+ "/ 111 class
+ "/ 112 bytesLeft
+ "/ 113 quit
+ "/ 114 exitToDebugger
+ "/ 115 fail/unimplemented/reserved
+ "/ 116 flushCacheByMethod
+ "/ 117 externalCall
+ "/ 118 doPrimitiveWithArg
+ "/ 119 flushCacheSelective
+ "/ 120 fail/unimplemented/reserved
+ "/ 121 imageName
+ "/ 122 noop
+ "/ 123 fail/unimplemented/reserved
+ "/ 124 lowSpaceSemaphore
+ "/ 125 signalAtBytesLeft
+ "/ 126 deferDisplayUpdate
+ "/ 127 showDisplayRect
+ "/ 128 arrayBecome
+ "/ 129 specialObjectsOop
+ "/ 130 fullGC
+ "/ 131 incrementalGC
+ "/ 132 objectPointsTo
+ "/ 133 setInterruptKey
+ "/ 134 interruptSemaphore
+ "/ 135 millisecondClock
+ "/ 136 signalAtMilliseconds
+ "/ 137 secondsClock
+ "/ 138 someObject
+ "/ 139 nextObject
+ "/ 140 beep
+ "/ 141 clipboardText
+ "/ 142 vmPath
+ "/ 143 shortAt
+ "/ 144 shortAtPut
+ "/ 145 constantFill
+ "/ 146 readJoystick
+ "/ 147 warpBits
+ "/ 148 clone
+ "/ 149 getAttribute
+ "/ 150 fileAtEnd
+ "/ 151 fileClose
+ "/ 152 fileGetPosition
+ "/ 153 fileOpen
+ "/ 154 fileRead
+ "/ 155 fileSetPosition
+ "/ 156 fileDelete
+ "/ 157 fileSize
+ "/ 158 fileWrite
+ "/ 159 fileRename
+ "/ 160 directoryCreate
+ "/ 161 directoryDelimiter
+ "/ 162 directoryLookup
+ "/ 163 fail
+ "/ 164 fail
+ "/ 165 fail
+ "/ 166 fail
+ "/ 167 fail
+ "/ 168 fail
+ "/ 169 directorySetMacType
+ "/ 170 soundStart
+ "/ 171 soundStartWithSemaphore
+ "/ 172 soundStop
+ "/ 173 soundAvailableSpace
+ "/ 174 soundPlaySamples
+ "/ 175 soundPlaySilence
+ "/ 176 waveTableSoundmixSampleCountIntoStarrtingAtpan
+ "/ 177 fmSoundmixSampleCountintostartingAtpan
+ "/ 178 pluckedSoundmixSampleCountintostartingAtpan
+ "/ 179 sampledSoundmixSampleCountintostartingAtpan
+ "/ 180 fmSoundmixSampleCountintostartingAtleftVolrightVol
+ "/ 181 pluckedSoundmixSampleCountintostartingAtleftVolrightVol
+ "/ 182 sampledSoundmixSampleCountintostartingAtleftVolrightVol
+ "/ 183 reverbSoundapplyReverbTostartingAtcount
+ "/ 184 loopedSampledSoundmixSampleCountintostartingAtleftVolrightVol
+ "/ 185 fail
+ "/ 186 fail
+ "/ 187 fail
+ "/ 188 fail
+ "/ 189 soundInsertSamples
+ "/ 190 soundStartRecording
+ "/ 191 soundStopRecording
+ "/ 192 soundGetRecordingSampleRate
+ "/ 193 soundRecordSamples
+ "/ 194 soundSetRecordLevel
+ "/ 195 fail
+ "/ 196 fail
+ "/ 197 fail
+ "/ 198 fail
+ "/ 199 fail
+ "/ 200 initializeNetwork
+ "/ 201 resolverStartNameLookup
+ "/ 202 resolverNameLookupResult
+ "/ 203 resolverStartAddressLookup
+ "/ 204 resolverAddressLookupResult
+ "/ 205 resolverAbortLookup
+ "/ 206 resolverLocalAddress
+ "/ 207 resolverStatus
+ "/ 208 resolverError
+ "/ 209 socketCreate
+ "/ 210 socketDestroy
+ "/ 211 socketConnectionStatus
+ "/ 212 socketError
+ "/ 213 socketLocalAddress
+ "/ 214 socketLocalPort
+ "/ 215 socketRemoteAddress
+ "/ 216 socketRemotePort
+ "/ 217 socketConnectToPort
+ "/ 218 socketListenOnPort
+ "/ 219 socketCloseConnection
+ "/ 220 socketAbortConnection
+ "/ 221 socketReceiveDataBufCount
+ "/ 222 socketReceiveDataAvailable
+ "/ 223 socketSendDataBufCount
+ "/ 224 socketSendDone
+ "/ 225 fail
+ "/ 226 fail
+ "/ 227 fail
+ "/ 228 fail
+ "/ 229 fail
+ "/ 230 relinquishProcessor
+ "/ 231 forceDisplayUpdate
+ "/ 232 formPrint
+ "/ 233 setFullScreen
+ "/ 234 bitmapdecompressfromByteArrayat
+ "/ 235 stringcomparewithcollated
+ "/ 236 sampledSoundconvert8bitSignedFromto16Bit
+ "/ 237 bitmapcompresstoByteArray
+ "/ 238 serialPortOpen
+ "/ 239 serialPortClose
+ "/ 240 serialPortWrite
+ "/ 241 serialPortRead
+ "/ 242 fail
+ "/ 243 stringtranslatefromtotable
+ "/ 244 stringfindFirstInStringinSetstartingAt
+ "/ 245 stringindexOfAsciiinStringstartingAt
+ "/ 246 stringfindSubstringinstartingAtmatchTable
+ "/ 247 fail
+ "/ 248 fail
+ "/ 249 fail
+ "/ 250 clearProfile
+ "/ 251 dumpProfile
+ "/ 252 startProfiling
+ "/ 253 stopProfiling
+ "/ 254 vmParameter
+ "/ 255 instVarsPutFromStack
+ "/ 256 pushSelf
+ "/ 257 pushTrue
+ "/ 258 pushFalse
+ "/ 259 pushNil
+ "/ 260 pushMinusOne
+ "/ 261 pushZero
+ "/ 262 pushOne
+ "/ 263 pushTwo
+ "/ 264 loadInstVar
+ "/ .. loadInstVar
+ "/ 519 loadInstVar
+ "/ 520 fail
+ "/ 521 MIDIClosePort
+ "/ 522 MIDIGetClock
+ "/ 523 MIDIGetPortCount
+ "/ 524 MIDIGetPortDirectionality
+ "/ 525 MIDIGetPortName
+ "/ 526 MIDIOpenPort
+ "/ 527 MIDIParameterGetOrSet
+ "/ 528 MIDIRead
+ "/ 529 MIDIWrite
+ "/ 530 fail
+ "/ .. fail
+ "/ 539 fail
+ "/ 540 asyncFileClose
+ "/ 541 asyncFileOpen
+ "/ 542 asyncFileReadResult
+ "/ 543 asyncFileReadStart
+ "/ 544 asyncFileWriteResult
+ "/ 545 asyncFileWriteStart
+ "/ 546 fail
+ "/ ..
+ "/ 700 fail
+
cls notNil ifTrue:[
- ^ (cls compiledMethodAt:sel) code
+ ^ (cls compiledMethodAt:sel) code
].
^ nil
!
@@ -2945,6 +3219,6 @@
!ByteCodeCompiler class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.150 1999-07-07 14:37:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ByteCodeCompiler.st,v 1.151 1999-07-13 09:19:21 cg Exp $'
! !
ByteCodeCompiler initialize!