Sorry.�NBExternalAddress new ulongAt: adress


2013/1/12 Jesus Nu�ez <poissonbreaker@gmail.com>
I have made a small change in the code because NBExternalAdress does not inherit from NBExternalStructure anymore. It is safe?. I mean so far no problems but my understanding is limited so I haven't make any commit.

getGlobalSymbolPointer: symbolName�
| bytes addr |
bytes := ByteArray new: 8.
self bootstrapGetGlobalSymbolPointer: symbolName into: bytes.
addr := bytes unsignedLongAt: 1 bigEndian: false.
addr = 0
ifTrue: [self error: 'failed to get a symbol address: ' , symbolName].
+^ NBExternalAddress ulongAt: addr
-^ NBExternalAddress value: addr

Cheers