Sorry. NBExternalAddress new ulongAt: adress
2013/1/12 Jesus Nuñez <[email protected]> > 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 >
