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

Reply via email to