It seems I found a fix. I simply copied the code from the "mmap" call over to "munmap". Can somebody (Igor?) *please* confirm that this is ok to do? My tests are green but I'm really not sure about this… Here's the new code for NBMacExternalHeapManager>>unmap:length: NBMacExternalHeapManager >>unmap: addr length: len <primitive: #primitiveNativeCall module: #NativeBoostPlugin error: errorCode> "unmap memory page" ^ NBFFICallout cdecl: #( int (uint addr, ulong len) ) emitCall: [:gen | | munmap | munmap := NativeBoost forCurrentPlatform getGlobalSymbolPointer: 'munmap'. gen asm mov: munmap asUImm32 to: gen asm EAX. gen asm call: gen asm EAX ] options: #( - optDirectProxyFnAddress ) Cheers, Max On 16.11.2012, at 14:11, Max Leske <maxleske@gmail.com> wrote:

A followup on the munmap issue:

I think it has something to do with how NativeBoost does the lookup. I looked at the way that "mmap" is called and noticed that the selector #getGlobalSymbolPointer: is being used. Resolving "munmap" with this selector succeeds while doing

NativeBoost loadSymbol: 'munmap' aName fromModule: -2

(which is what happens when the heap manager tries to call "munmap") results the stack trace shown below.

I'll keep digging...

On 15.11.2012, at 17:20, Max Leske <maxleske@gmail.com> wrote:

...

Hi

When NativeBoost tries to call munmap to free a page (happens because a pointer I freed was the last reserved one in that page) it will throw a NBFFICalloutError (every time) because (I think) it can't find the symbol. I have absolutely no clue how to fix this so I'm in need of help.

System: OS X 10.8.2 Image: 1.4 NativeBoost-Core: CamilloBruni.80 (Installed by using the latest NBInstaller)

Cheers, Max

Here's the stack:

15 November 2012 5:04:23.895 pm

VM: Mac OS - intel - 1082 - NBCoInterpreter NativeBoost-CogPlugin-IgorStasenko.14 uuid: da3a649c-e2b2-bd4c-aa2f-9c2ebdb2658a Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko <siguctua@gmail.com> Jenkins build #131 Image: Pharo1.4 [Latest update: #14457]

NBFFICallout class>>signalError: Receiver: NBFFICallout Arguments and temporary variables: errorCode: 1 Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: Receiver: NBFFICallout Arguments and temporary variables: aContext: NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModul...etc... aBlock: [:gen | gen useEmitCall; sender: sender; parseOptions: anOptions; cdecl...etc... method: (NativeBoost>>#bootstrapLoadSymbol:ofLength:fromModule:into: "a Compile...etc... lastError: 1 Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class>>cdecl:emitCall:options: Receiver: NBFFICallout Arguments and temporary variables: functionSpec: #(#NBBootstrapUlong #(#byte #* #symbolName #, #long #symbolLen #,...etc... aCallEmittingBlock: [:gen | gen proxy callFn: #ioLoadSymbol:OfLength:FromModule...etc... anOptions: #(#- #optDirectProxyFnAddress #optAllowExternalAddressPtr) sender: NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModule:...etc... Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModule:into: Receiver: a NativeBoostMac32 Arguments and temporary variables: symbolName: 'munmap' symbolLen: 6 moduleHandle: -2 returnValueBuffer: #[0 0 0 0 0 0 0 0] Receiver's instance variables: bootstrapping: false insideCallback: nil callbackCounterAddr: @ 16r5F74000 extraRootsRegistry: a NBExtraRootsRegistry rootsCell: @ 16r5F7402A gateFunction: @ 16r5F74004 heap: a NBMacExternalHeapManager

NativeBoostMac32(NativeBoost)>>loadSymbol:fromModule: Receiver: a NativeBoostMac32 Arguments and temporary variables: aSymbolName: 'munmap' moduleName: -2 bytes: #[0 0 0 0 0 0 0 0] module: -2 handle: nil Receiver's instance variables: bootstrapping: false insideCallback: nil callbackCounterAddr: @ 16r5F74000 extraRootsRegistry: a NBExtraRootsRegistry rootsCell: @ 16r5F7402A gateFunction: @ 16r5F74004 heap: a NBMacExternalHeapManager

NativeBoostMac32(NativeBoostLinux32)>>loadSymbol:fromModule: Receiver: a NativeBoostMac32 Arguments and temporary variables: aSymbolName: 'munmap' moduleName: -2 Receiver's instance variables: bootstrapping: false insideCallback: nil callbackCounterAddr: @ 16r5F74000 extraRootsRegistry: a NBExtraRootsRegistry rootsCell: @ 16r5F7402A gateFunction: @ 16r5F74004 heap: a NBMacExternalHeapManager

NativeBoost class>>loadSymbol:fromModule: Receiver: NativeBoost Arguments and temporary variables: aSymbolName: 'munmap' moduleName: -2 Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#CLibrary->(NativeBoost>>#CLibrary "a CompiledMe...etc... format: 142 instanceVariables: #('bootstrapping' 'insideCallback' 'callbackCounterAddr' 'ex...etc... organization: ('retrieving symbols' CLibrary VMModule ioLoadFunction:from: ioLo...etc... subclasses: {NativeBoostLinux32. NativeBoostWin32} name: #NativeBoost classPool: a Dictionary(#Current->a NativeBoostMac32 #NBAnnouncer->an Announcer...etc... sharedPools: an OrderedCollection(AJx86Registers NativeBoostConstants) environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core' traitComposition: {} localSelectors: nil

NBMacExternalHeapManager class(Object)>>nbGetSymbolAddress:module: Receiver: NBMacExternalHeapManager Arguments and temporary variables: aName: 'munmap' aModuleNameOrHandle: -2 addr: nil Receiver's instance variables: superclass: NBExternalHeapManager methodDict: a MethodDictionary(#mapFlags->(NBMacExternalHeapManager>>#mapFlags ...etc... format: 138 instanceVariables: nil organization: ('as yet unclassified' mapFlags mmapLength:prot:flags:into: primA...etc... subclasses: nil name: #NBMacExternalHeapManager classPool: nil sharedPools: an OrderedCollection(NBMacConstants) environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Mac' traitComposition: {} localSelectors: nil

[:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: aModuleNameOrHandle. fnAddress ifNil: [self error: 'function unavailable']. self optMayGC ifTrue: [asm push: fnAddress asUImm32; mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX; call: EAX] ifFalse: [asm mov: fnAddress asUImm32 to: EAX; call: EAX]] in NBFFICallout>>generateCall:module: Receiver: a NBFFICallout Arguments and temporary variables: aModuleNameOrHandle: a NBFFICallout fnAddress: -2 gen: #(nil) Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

BlockClosure>>valueWithPossibleArgs: Receiver: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: aModuleNam...etc... Arguments and temporary variables: anArray: an Array(a NBFFICallout a NBInterpreterProxy an AJx86Assembler) Receiver's instance variables: outerContext: NBFFICallout>>generateCall:module: startpc: 91 numArgs: 1

[aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]] in [:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: an AJCdeclCallInfo call: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc... Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

BlockClosure>>ensure: Receiver: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [...etc... Arguments and temporary variables: aBlock: [level := level - 1. self addInstruction: (AJInstructionDecoration n...etc... complete: nil returnValue: nil Receiver's instance variables: outerContext: [:call | self optNoAlignment ifTrue: [call alignment: 1]. sel...etc... startpc: 155 numArgs: 0

AJx86Assembler>>decorateWith:during: Receiver: an AJx86Assembler Arguments and temporary variables: annotation: 'FFI: performing a call' aBlock: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self o...etc... Receiver's instance variables: instructions: <<error during printing>>

[:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: an AJCdeclCallInfo call: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc... Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

AJx86Assembler>>performingCall:in: Receiver: an AJx86Assembler Arguments and temporary variables: ci: an AJCdeclCallInfo aBlock: [:call | self optNoAlignment ifTrue: [call alignment: 1]. self push...etc... Receiver's instance variables: instructions: <<error during printing>>

NBFFICallout>>foreignCall: Receiver: a NBFFICallout Arguments and temporary variables: aBlock: [:call | self optNoAlignment ifTrue: [call alignment: 1]. self push...etc... Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

NBFFICallout>>generateInstructions: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc... instructions: nil Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

NBFFICallout>>generate: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc... generatedCode: nil Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

NBFFICallout>>generateCall:module: Receiver: a NBFFICallout Arguments and temporary variables: functionSpec: #(#int #munmap #(#uint #addr #, #ulong #len)) aModuleNameOrHandle: -2 fnAddress: #(nil) Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

[:gen | gen sender: sender; cdecl; generateCall: functionSpec module: aModuleName] in NBFFICallout class>>cdecl:module: Receiver: NBFFICallout Arguments and temporary variables: functionSpec: a NBFFICallout aModuleName: #(#int #munmap #(#uint #addr #, #ulong #len)) sender: -2 gen: NBMacExternalHeapManager>>unmap:length: Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

[bytes := aBlock value: (self newForMethod: method)] in NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: Receiver: NBFFICallout Arguments and temporary variables: aBlock: [:gen | gen sender: sender; cdecl; generateCall: functionSpec mod...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... bytes: #(nil) Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

BlockClosure>>on:do: Receiver: [bytes := aBlock value: (self newForMethod: method)] Arguments and temporary variables: exception: NBRecursionDetect handlerAction: [:ex | ex check: aMethod] handlerActive: true Receiver's instance variables: outerContext: NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry:...etc... startpc: 96 numArgs: 0

NBRecursionDetect class>>in:during: Receiver: NBRecursionDetect Arguments and temporary variables: aMethod: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)...etc... aBlock: [bytes := aBlock value: (self newForMethod: method)] Receiver's instance variables: superclass: Notification methodDict: a MethodDictionary(#check:->(NBRecursionDetect>>#check: "a Compiled...etc... format: 144 instanceVariables: #('method') organization: ('as yet unclassified' check: defaultAction method signalForMetho...etc... subclasses: nil name: #NBRecursionDetect classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-Errors' traitComposition: {} localSelectors: nil

NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: Receiver: NBFFICallout Arguments and temporary variables: aBlock: [:gen | gen sender: sender; cdecl; generateCall: functionSpec mod...etc... retryCtx: NBMacExternalHeapManager>>unmap:length: method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... newMethod: nil args: nil bytes: #(nil) Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: Receiver: NBFFICallout Arguments and temporary variables: aContext: NBMacExternalHeapManager>>unmap:length: aBlock: [:gen | gen sender: sender; cdecl; generateCall: functionSpec mod...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... lastError: 502 Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class>>cdecl:module: Receiver: NBFFICallout Arguments and temporary variables: functionSpec: #(#int #munmap #(#uint #addr #, #ulong #len)) aModuleName: -2 sender: NBMacExternalHeapManager>>unmap:length: Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBMacExternalHeapManager>>unmap:length: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: addr: 7380992 len: 32768 errorCode: 502 Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

NBMacExternalHeapManager>>primFreePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryPage: a NBMemoryPage res: nil Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

NBMacExternalHeapManager(NBExternalHeapManager)>>freePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryPage: a NBMemoryPage Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

[:page | page length = aMemoryBlock length ifTrue: [self freePage: page. ^ true]. nil] in NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryBlock: a NBMemoryPage page: a NBMemoryBlock( @ 16r70A000, 32768, free) Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

BlockClosure>>cull: Receiver: [:page | page length = aMemoryBlock length ifTrue: [self freePage: page. ^ true]. n...etc... Arguments and temporary variables: anArg: a NBMemoryPage Receiver's instance variables: outerContext: NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage...etc... startpc: 41 numArgs: 1

Dictionary>>at:ifPresent: Receiver: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) Arguments and temporary variables: key: 7380992 aBlock: [:page | page length = aMemoryBlock length ifTrue: [self freePage: p...etc... assoc: 7380992->a NBMemoryPage Receiver's instance variables: tally: 2 array: an Array(nil 100089856->a NBMemoryPage nil nil 24981504->a NBMemoryPage)...etc...

NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryBlock: a NBMemoryBlock( @ 16r70A000, 32768, free) Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

NBMemoryBlock>>makeFreeFor: Receiver: a NBMemoryBlock( @ 16r70A030, 32720, free) Arguments and temporary variables: heapManager: a NBMacExternalHeapManager Receiver's instance variables: left: a NBMemoryBlock( @ 16r70A000, 32768, free) right: nil address: 7381040 length: 32720 free: true

[| block | block := reservedBlocks removeKey: address ifAbsent: [self error: 'Unable to find a memory block with given address']. block makeFreeFor: self] in NBMacExternalHeapManager(NBExternalHeapManager)>>free: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: address: 7381040 block: a NBMemoryBlock( @ 16r70A030, 32720, free) Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

[caught := true. self wait. blockValue := mutuallyExcludedBlock value] in Semaphore>>critical: Receiver: a Semaphore() Arguments and temporary variables: <<error during printing> Receiver's instance variables: firstLink: nil lastLink: nil excessSignals: 0

BlockClosure>>ensure: Receiver: [caught := true. self wait. blockValue := mutuallyExcludedBlock value] Arguments and temporary variables: aBlock: [caught ifTrue: [self signal]] complete: nil returnValue: nil Receiver's instance variables: outerContext: Semaphore>>critical: startpc: 42 numArgs: 0

Semaphore>>critical: Receiver: a Semaphore() Arguments and temporary variables: <<error during printing> Receiver's instance variables: firstLink: nil lastLink: nil excessSignals: 0

NBMacExternalHeapManager(NBExternalHeapManager)>>free: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: address: 7381040 Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

--- The full stack --- NBFFICallout class>>signalError: NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: NBFFICallout class>>cdecl:emitCall:options: NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModule:into: NativeBoostMac32(NativeBoost)>>loadSymbol:fromModule: NativeBoostMac32(NativeBoostLinux32)>>loadSymbol:fromModule: NativeBoost class>>loadSymbol:fromModule: NBMacExternalHeapManager class(Object)>>nbGetSymbolAddress:module: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: aModuleNameOrHandle. fnAddress ifNil: [self error: 'function unavailable']. self optMayGC ifTrue: [asm push: fnAddress asUImm32; mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX; call: EAX] ifFalse: [asm mov: fnAddress asUImm32 to: EAX; call: EAX]] in NBFFICallout>>generateCall:module: BlockClosure>>valueWithPossibleArgs: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]] in [:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: BlockClosure>>ensure: AJx86Assembler>>decorateWith:during: [:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: AJx86Assembler>>performingCall:in: NBFFICallout>>foreignCall: NBFFICallout>>generateInstructions: NBFFICallout>>generate: NBFFICallout>>generateCall:module: [:gen | gen sender: sender; cdecl; generateCall: functionSpec module: aModuleName] in NBFFICallout class>>cdecl:module: [bytes := aBlock value: (self newForMethod: method)] in NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: BlockClosure>>on:do: NBRecursionDetect class>>in:during: NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: NBFFICallout class>>cdecl:module: NBMacExternalHeapManager>>unmap:length: NBMacExternalHeapManager>>primFreePage: NBMacExternalHeapManager(NBExternalHeapManager)>>freePage: [:page | page length = aMemoryBlock length ifTrue: [self freePage: page. ^ true]. nil] in NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: BlockClosure>>cull: Dictionary>>at:ifPresent: NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: NBMemoryBlock>>makeFreeFor: [| block | block := reservedBlocks removeKey: address ifAbsent: [self error: 'Unable to find a memory block with given address']. block makeFreeFor: self] in NBMacExternalHeapManager(NBExternalHeapManager)>>free: [caught := true. self wait. blockValue := mutuallyExcludedBlock value] in Semaphore>>critical: BlockClosure>>ensure: Semaphore>>critical: NBMacExternalHeapManager(NBExternalHeapManager)>>free: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - NativeBoostMac32(NativeBoostLinux32)>>free: NativeBoost class>>free: NBExternalAddress>>free [:pointer | pointer value free] in LimboCommand>>freePointers Set>>do: LimboCommand>>freePointers [self freePointers] in LimboCommand>>run BlockClosure>>ensure: LimboCommand>>run Limbo>>run:arguments: Limbo>>runSh: Limbo class>>runSh: [limbo := Limbo runSh: '/bin/echo ' , arg] in LimboTest>>testShellCommandWithNewLines [aBlock value. false] in LimboTest(TestCase)>>executeShould:inScopeOf: BlockClosure>>on:do: LimboTest(TestCase)>>executeShould:inScopeOf: LimboTest(TestCase)>>shouldnt:raise: LimboTest>>testShellCommandWithNewLines LimboTest(TestCase)>>performTest [self setUp. self performTest] in LimboTest(TestCase)>>runCase BlockClosure>>ensure: LimboTest(TestCase)>>runCase [(self class selector: testSelector) runCase] in LimboTest(TestCase)>>debug BlockClosure>>ensure: LimboTest(TestCase)>>debug OBCmdRunTests>>execute [:each | (each isActive and: [each isEnabled]) ifTrue: [each execute. ^ true]. nil] in OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for: OrderedCollection>>do: OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for: [:each | (scan processKeystroke: aCharacter asKeystroke withNode: each for: self) ifTrue: [^ self]. nil] in OBColumn>>keystroke:from: OrderedCollection>>reverseDo: OBColumn>>keystroke:from: OBPluggableListMorph(PluggableListMorph)>>modifierKeyPressed: OBPluggableListMorph(PluggableListMorph)>>keyStroke: OBPluggableListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: OBPluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: OBPluggableListMorph(Morph)>>processEvent:using: OBPluggableListMorph(Morph)>>processEvent: OBPluggableListMorph(PluggableListMorph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess

On 18 November 2012 11:16, Camillo Bruni <camillobruni@gmail.com> wrote:

most probably this is fine, I would not know why mmap and munmap should use a different lookup...

the explanation is simple: i need to call mmap before finishing bootstrap phase to allocate some memory for gate function and install it. while for munmap it is no longer requirement, because gate is already there. The gate function is needed to call any interpreter function which may trigger GC (and therefore relocate machine code).. like if function answers an address, which means there is a call to instantiate fresh instance of NBExternalAddress, which may trigger GC.

On 2012-11-16, at 10:40, Max Leske <maxleske@gmail.com> wrote:

...

It seems I found a fix. I simply copied the code from the "mmap" call over to "munmap". Can somebody (Igor?) *please* confirm that this is ok to do? My tests are green but I'm really not sure about this…

Here's the new code for NBMacExternalHeapManager>>unmap:length:

NBMacExternalHeapManager >>unmap: addr length: len

<primitive: #primitiveNativeCall module: #NativeBoostPlugin error: errorCode>

"unmap memory page"

^ NBFFICallout cdecl: #( int (uint addr, ulong len) ) emitCall: [:gen | | munmap | munmap := NativeBoost forCurrentPlatform getGlobalSymbolPointer: 'munmap'. gen asm mov: munmap asUImm32 to: gen asm EAX. gen asm call: gen asm EAX ] options: #( - optDirectProxyFnAddress )

Cheers, Max

On 16.11.2012, at 14:11, Max Leske <maxleske@gmail.com> wrote:

...

A followup on the munmap issue:

I think it has something to do with how NativeBoost does the lookup. I looked at the way that "mmap" is called and noticed that the selector #getGlobalSymbolPointer: is being used. Resolving "munmap" with this selector succeeds while doing

NativeBoost loadSymbol: 'munmap' aName fromModule: -2

(which is what happens when the heap manager tries to call "munmap") results the stack trace shown below.

I'll keep digging...

On 15.11.2012, at 17:20, Max Leske <maxleske@gmail.com> wrote:

...

Hi

When NativeBoost tries to call munmap to free a page (happens because a pointer I freed was the last reserved one in that page) it will throw a NBFFICalloutError (every time) because (I think) it can't find the symbol. I have absolutely no clue how to fix this so I'm in need of help.

System: OS X 10.8.2 Image: 1.4 NativeBoost-Core: CamilloBruni.80 (Installed by using the latest NBInstaller)

Cheers, Max

Here's the stack:

15 November 2012 5:04:23.895 pm

VM: Mac OS - intel - 1082 - NBCoInterpreter NativeBoost-CogPlugin-IgorStasenko.14 uuid: da3a649c-e2b2-bd4c-aa2f-9c2ebdb2658a Oct 26 2012, StackToRegisterMappingCogit VMMaker-oscog-EstebanLorenzano.164 uuid: d77dee73-00f5-4d00-847b-00646b08329d Oct 26 2012, git://gitorious.org/cogvm/blessed.git Commit: 48af8595004fd0ec3a3ac6d44c3d7516a87981ca Date: 2012-10-24 16:56:20 +0200 By: Igor Stasenko <siguctua@gmail.com> Jenkins build #131 Image: Pharo1.4 [Latest update: #14457]

NBFFICallout class>>signalError: Receiver: NBFFICallout Arguments and temporary variables: errorCode: 1 Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: Receiver: NBFFICallout Arguments and temporary variables: aContext: NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModul...etc... aBlock: [:gen | gen useEmitCall; sender: sender; parseOptions: anOptions; cdecl...etc... method: (NativeBoost>>#bootstrapLoadSymbol:ofLength:fromModule:into: "a Compile...etc... lastError: 1 Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class>>cdecl:emitCall:options: Receiver: NBFFICallout Arguments and temporary variables: functionSpec: #(#NBBootstrapUlong #(#byte #* #symbolName #, #long #symbolLen #,...etc... aCallEmittingBlock: [:gen | gen proxy callFn: #ioLoadSymbol:OfLength:FromModule...etc... anOptions: #(#- #optDirectProxyFnAddress #optAllowExternalAddressPtr) sender: NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModule:...etc... Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModule:into: Receiver: a NativeBoostMac32 Arguments and temporary variables: symbolName: 'munmap' symbolLen: 6 moduleHandle: -2 returnValueBuffer: #[0 0 0 0 0 0 0 0] Receiver's instance variables: bootstrapping: false insideCallback: nil callbackCounterAddr: @ 16r5F74000 extraRootsRegistry: a NBExtraRootsRegistry rootsCell: @ 16r5F7402A gateFunction: @ 16r5F74004 heap: a NBMacExternalHeapManager

NativeBoostMac32(NativeBoost)>>loadSymbol:fromModule: Receiver: a NativeBoostMac32 Arguments and temporary variables: aSymbolName: 'munmap' moduleName: -2 bytes: #[0 0 0 0 0 0 0 0] module: -2 handle: nil Receiver's instance variables: bootstrapping: false insideCallback: nil callbackCounterAddr: @ 16r5F74000 extraRootsRegistry: a NBExtraRootsRegistry rootsCell: @ 16r5F7402A gateFunction: @ 16r5F74004 heap: a NBMacExternalHeapManager

NativeBoostMac32(NativeBoostLinux32)>>loadSymbol:fromModule: Receiver: a NativeBoostMac32 Arguments and temporary variables: aSymbolName: 'munmap' moduleName: -2 Receiver's instance variables: bootstrapping: false insideCallback: nil callbackCounterAddr: @ 16r5F74000 extraRootsRegistry: a NBExtraRootsRegistry rootsCell: @ 16r5F7402A gateFunction: @ 16r5F74004 heap: a NBMacExternalHeapManager

NativeBoost class>>loadSymbol:fromModule: Receiver: NativeBoost Arguments and temporary variables: aSymbolName: 'munmap' moduleName: -2 Receiver's instance variables: superclass: Object methodDict: a MethodDictionary(#CLibrary->(NativeBoost>>#CLibrary "a CompiledMe...etc... format: 142 instanceVariables: #('bootstrapping' 'insideCallback' 'callbackCounterAddr' 'ex...etc... organization: ('retrieving symbols' CLibrary VMModule ioLoadFunction:from: ioLo...etc... subclasses: {NativeBoostLinux32. NativeBoostWin32} name: #NativeBoost classPool: a Dictionary(#Current->a NativeBoostMac32 #NBAnnouncer->an Announcer...etc... sharedPools: an OrderedCollection(AJx86Registers NativeBoostConstants) environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core' traitComposition: {} localSelectors: nil

NBMacExternalHeapManager class(Object)>>nbGetSymbolAddress:module: Receiver: NBMacExternalHeapManager Arguments and temporary variables: aName: 'munmap' aModuleNameOrHandle: -2 addr: nil Receiver's instance variables: superclass: NBExternalHeapManager methodDict: a MethodDictionary(#mapFlags->(NBMacExternalHeapManager>>#mapFlags ...etc... format: 138 instanceVariables: nil organization: ('as yet unclassified' mapFlags mmapLength:prot:flags:into: primA...etc... subclasses: nil name: #NBMacExternalHeapManager classPool: nil sharedPools: an OrderedCollection(NBMacConstants) environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Mac' traitComposition: {} localSelectors: nil

[:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: aModuleNameOrHandle. fnAddress ifNil: [self error: 'function unavailable']. self optMayGC ifTrue: [asm push: fnAddress asUImm32; mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX; call: EAX] ifFalse: [asm mov: fnAddress asUImm32 to: EAX; call: EAX]] in NBFFICallout>>generateCall:module: Receiver: a NBFFICallout Arguments and temporary variables: aModuleNameOrHandle: a NBFFICallout fnAddress: -2 gen: #(nil) Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

BlockClosure>>valueWithPossibleArgs: Receiver: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: aModuleNam...etc... Arguments and temporary variables: anArray: an Array(a NBFFICallout a NBInterpreterProxy an AJx86Assembler) Receiver's instance variables: outerContext: NBFFICallout>>generateCall:module: startpc: 91 numArgs: 1

[aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]] in [:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: an AJCdeclCallInfo call: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc... Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

BlockClosure>>ensure: Receiver: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [...etc... Arguments and temporary variables: aBlock: [level := level - 1. self addInstruction: (AJInstructionDecoration n...etc... complete: nil returnValue: nil Receiver's instance variables: outerContext: [:call | self optNoAlignment ifTrue: [call alignment: 1]. sel...etc... startpc: 155 numArgs: 0

AJx86Assembler>>decorateWith:during: Receiver: an AJx86Assembler Arguments and temporary variables: annotation: 'FFI: performing a call' aBlock: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self o...etc... Receiver's instance variables: instructions: <<error during printing>>

[:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: an AJCdeclCallInfo call: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName m...etc... Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

AJx86Assembler>>performingCall:in: Receiver: an AJx86Assembler Arguments and temporary variables: ci: an AJCdeclCallInfo aBlock: [:call | self optNoAlignment ifTrue: [call alignment: 1]. self push...etc... Receiver's instance variables: instructions: <<error during printing>>

NBFFICallout>>foreignCall: Receiver: a NBFFICallout Arguments and temporary variables: aBlock: [:call | self optNoAlignment ifTrue: [call alignment: 1]. self push...etc... Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

NBFFICallout>>generateInstructions: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc... instructions: nil Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

NBFFICallout>>generate: Receiver: a NBFFICallout Arguments and temporary variables: aFunctionBodyBlock: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec ...etc... generatedCode: nil Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

NBFFICallout>>generateCall:module: Receiver: a NBFFICallout Arguments and temporary variables: functionSpec: #(#int #munmap #(#uint #addr #, #ulong #len)) aModuleNameOrHandle: -2 fnAddress: #(nil) Receiver's instance variables: asm: an AJx86Assembler proxy: a NBInterpreterProxy options: a Set(#optCdecl #optAllowByteArraysPtr #optUseStackPointer #optReturnP...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... fnSpec: a NBFnSpec requestor: NBMacExternalHeapManager methodArgs: an OrderedCollection('addr' 'len') coercionMayFail: true callInfo: an AJCdeclCallInfo

[:gen | gen sender: sender; cdecl; generateCall: functionSpec module: aModuleName] in NBFFICallout class>>cdecl:module: Receiver: NBFFICallout Arguments and temporary variables: functionSpec: a NBFFICallout aModuleName: #(#int #munmap #(#uint #addr #, #ulong #len)) sender: -2 gen: NBMacExternalHeapManager>>unmap:length: Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

[bytes := aBlock value: (self newForMethod: method)] in NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: Receiver: NBFFICallout Arguments and temporary variables: aBlock: [:gen | gen sender: sender; cdecl; generateCall: functionSpec mod...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... bytes: #(nil) Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

BlockClosure>>on:do: Receiver: [bytes := aBlock value: (self newForMethod: method)] Arguments and temporary variables: exception: NBRecursionDetect handlerAction: [:ex | ex check: aMethod] handlerActive: true Receiver's instance variables: outerContext: NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry:...etc... startpc: 96 numArgs: 0

NBRecursionDetect class>>in:during: Receiver: NBRecursionDetect Arguments and temporary variables: aMethod: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)...etc... aBlock: [bytes := aBlock value: (self newForMethod: method)] Receiver's instance variables: superclass: Notification methodDict: a MethodDictionary(#check:->(NBRecursionDetect>>#check: "a Compiled...etc... format: 144 instanceVariables: #('method') organization: ('as yet unclassified' check: defaultAction method signalForMetho...etc... subclasses: nil name: #NBRecursionDetect classPool: nil sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-Errors' traitComposition: {} localSelectors: nil

NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: Receiver: NBFFICallout Arguments and temporary variables: aBlock: [:gen | gen sender: sender; cdecl; generateCall: functionSpec mod...etc... retryCtx: NBMacExternalHeapManager>>unmap:length: method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... newMethod: nil args: nil bytes: #(nil) Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: Receiver: NBFFICallout Arguments and temporary variables: aContext: NBMacExternalHeapManager>>unmap:length: aBlock: [:gen | gen sender: sender; cdecl; generateCall: functionSpec mod...etc... method: (NBMacExternalHeapManager>>#unmap:length: "a CompiledMethod(355205120)"...etc... lastError: 502 Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBFFICallout class>>cdecl:module: Receiver: NBFFICallout Arguments and temporary variables: functionSpec: #(#int #munmap #(#uint #addr #, #ulong #len)) aModuleName: -2 sender: NBMacExternalHeapManager>>unmap:length: Receiver's instance variables: superclass: NBNativeCodeGen methodDict: a MethodDictionary(#aliasForType:->(NBFFICallout>>#aliasForType: "a...etc... format: 148 instanceVariables: #('fnSpec' 'requestor' 'methodArgs' 'coercionMayFail' 'callI...etc... organization: ('type aliases' aliasForType:) ('accessing' anonSpec: callType: c...etc... subclasses: {NBNativeFunctionGen} name: #NBFFICallout classPool: a Dictionary(#CustomErrorCodes->a Dictionary(600->'An instance of NB...etc... sharedPools: nil environment: a SystemDictionary(lots of globals) category: #'NativeBoost-Core-FFI' traitComposition: {} localSelectors: nil

NBMacExternalHeapManager>>unmap:length: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: addr: 7380992 len: 32768 errorCode: 502 Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

NBMacExternalHeapManager>>primFreePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryPage: a NBMemoryPage res: nil Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

NBMacExternalHeapManager(NBExternalHeapManager)>>freePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryPage: a NBMemoryPage Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

[:page | page length = aMemoryBlock length ifTrue: [self freePage: page. ^ true]. nil] in NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryBlock: a NBMemoryPage page: a NBMemoryBlock( @ 16r70A000, 32768, free) Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

BlockClosure>>cull: Receiver: [:page | page length = aMemoryBlock length ifTrue: [self freePage: page. ^ true]. n...etc... Arguments and temporary variables: anArg: a NBMemoryPage Receiver's instance variables: outerContext: NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage...etc... startpc: 41 numArgs: 1

Dictionary>>at:ifPresent: Receiver: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) Arguments and temporary variables: key: 7380992 aBlock: [:page | page length = aMemoryBlock length ifTrue: [self freePage: p...etc... assoc: 7380992->a NBMemoryPage Receiver's instance variables: tally: 2 array: an Array(nil 100089856->a NBMemoryPage nil nil 24981504->a NBMemoryPage)...etc...

NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: aMemoryBlock: a NBMemoryBlock( @ 16r70A000, 32768, free) Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

NBMemoryBlock>>makeFreeFor: Receiver: a NBMemoryBlock( @ 16r70A030, 32720, free) Arguments and temporary variables: heapManager: a NBMacExternalHeapManager Receiver's instance variables: left: a NBMemoryBlock( @ 16r70A000, 32768, free) right: nil address: 7381040 length: 32720 free: true

[| block | block := reservedBlocks removeKey: address ifAbsent: [self error: 'Unable to find a memory block with given address']. block makeFreeFor: self] in NBMacExternalHeapManager(NBExternalHeapManager)>>free: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: address: 7381040 block: a NBMemoryBlock( @ 16r70A030, 32720, free) Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

[caught := true. self wait. blockValue := mutuallyExcludedBlock value] in Semaphore>>critical: Receiver: a Semaphore() Arguments and temporary variables: <<error during printing> Receiver's instance variables: firstLink: nil lastLink: nil excessSignals: 0

BlockClosure>>ensure: Receiver: [caught := true. self wait. blockValue := mutuallyExcludedBlock value] Arguments and temporary variables: aBlock: [caught ifTrue: [self signal]] complete: nil returnValue: nil Receiver's instance variables: outerContext: Semaphore>>critical: startpc: 42 numArgs: 0

Semaphore>>critical: Receiver: a Semaphore() Arguments and temporary variables: <<error during printing> Receiver's instance variables: firstLink: nil lastLink: nil excessSignals: 0

NBMacExternalHeapManager(NBExternalHeapManager)>>free: Receiver: a NBMacExternalHeapManager Arguments and temporary variables: address: 7381040 Receiver's instance variables: pages: a Dictionary(24981504->a NBMemoryPage 100089856->a NBMemoryPage ) freeBlocks: an IdentitySet(a NBMemoryBlock( @ 16r17D302E, 17, free) a NBMemoryB...etc... reservedBlocks: a Dictionary(24981504->a NBMemoryBlock( @ 16r17D3000, 38) 24981...etc... sema: a Semaphore()

--- The full stack --- NBFFICallout class>>signalError: NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: NBFFICallout class>>cdecl:emitCall:options: NativeBoostMac32(NativeBoost)>>bootstrapLoadSymbol:ofLength:fromModule:into: NativeBoostMac32(NativeBoost)>>loadSymbol:fromModule: NativeBoostMac32(NativeBoostLinux32)>>loadSymbol:fromModule: NativeBoost class>>loadSymbol:fromModule: NBMacExternalHeapManager class(Object)>>nbGetSymbolAddress:module: [:gen | fnAddress := requestor nbGetSymbolAddress: fnSpec functionName module: aModuleNameOrHandle. fnAddress ifNil: [self error: 'function unavailable']. self optMayGC ifTrue: [asm push: fnAddress asUImm32; mov: NativeBoost callgateFunctionAddress asUImm32 to: EAX; call: EAX] ifFalse: [asm mov: fnAddress asUImm32 to: EAX; call: EAX]] in NBFFICallout>>generateCall:module: BlockClosure>>valueWithPossibleArgs: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]] in [:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: BlockClosure>>ensure: AJx86Assembler>>decorateWith:during: [:call | self optNoAlignment ifTrue: [call alignment: 1]. self pushArguments. coercionMayFail ifTrue: [proxy ifFailedJumpTo: self failedLabel]. asm decorateWith: 'FFI: performing a call' during: [aFunctionBodyBlock valueWithPossibleArgs: {self. proxy. asm}. (self optEmitCall or: [self optNoCleanup]) ifTrue: [call disableCleanup]]] in NBFFICallout>>generateInstructions: AJx86Assembler>>performingCall:in: NBFFICallout>>foreignCall: NBFFICallout>>generateInstructions: NBFFICallout>>generate: NBFFICallout>>generateCall:module: [:gen | gen sender: sender; cdecl; generateCall: functionSpec module: aModuleName] in NBFFICallout class>>cdecl:module: [bytes := aBlock value: (self newForMethod: method)] in NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: BlockClosure>>on:do: NBRecursionDetect class>>in:during: NBFFICallout class(NBNativeCodeGen class)>>generateCode:andRetry: NBFFICallout class(NBNativeCodeGen class)>>handleFailureIn:nativeCode: NBFFICallout class>>cdecl:module: NBMacExternalHeapManager>>unmap:length: NBMacExternalHeapManager>>primFreePage: NBMacExternalHeapManager(NBExternalHeapManager)>>freePage: [:page | page length = aMemoryBlock length ifTrue: [self freePage: page. ^ true]. nil] in NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: BlockClosure>>cull: Dictionary>>at:ifPresent: NBMacExternalHeapManager(NBExternalHeapManager)>>checkForFreePage: NBMemoryBlock>>makeFreeFor: [| block | block := reservedBlocks removeKey: address ifAbsent: [self error: 'Unable to find a memory block with given address']. block makeFreeFor: self] in NBMacExternalHeapManager(NBExternalHeapManager)>>free: [caught := true. self wait. blockValue := mutuallyExcludedBlock value] in Semaphore>>critical: BlockClosure>>ensure: Semaphore>>critical: NBMacExternalHeapManager(NBExternalHeapManager)>>free: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - NativeBoostMac32(NativeBoostLinux32)>>free: NativeBoost class>>free: NBExternalAddress>>free [:pointer | pointer value free] in LimboCommand>>freePointers Set>>do: LimboCommand>>freePointers [self freePointers] in LimboCommand>>run BlockClosure>>ensure: LimboCommand>>run Limbo>>run:arguments: Limbo>>runSh: Limbo class>>runSh: [limbo := Limbo runSh: '/bin/echo ' , arg] in LimboTest>>testShellCommandWithNewLines [aBlock value. false] in LimboTest(TestCase)>>executeShould:inScopeOf: BlockClosure>>on:do: LimboTest(TestCase)>>executeShould:inScopeOf: LimboTest(TestCase)>>shouldnt:raise: LimboTest>>testShellCommandWithNewLines LimboTest(TestCase)>>performTest [self setUp. self performTest] in LimboTest(TestCase)>>runCase BlockClosure>>ensure: LimboTest(TestCase)>>runCase [(self class selector: testSelector) runCase] in LimboTest(TestCase)>>debug BlockClosure>>ensure: LimboTest(TestCase)>>debug OBCmdRunTests>>execute [:each | (each isActive and: [each isEnabled]) ifTrue: [each execute. ^ true]. nil] in OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for: OrderedCollection>>do: OBNodeCommandScan(OBCommandScan)>>processKeystroke:withNode:for: [:each | (scan processKeystroke: aCharacter asKeystroke withNode: each for: self) ifTrue: [^ self]. nil] in OBColumn>>keystroke:from: OrderedCollection>>reverseDo: OBColumn>>keystroke:from: OBPluggableListMorph(PluggableListMorph)>>modifierKeyPressed: OBPluggableListMorph(PluggableListMorph)>>keyStroke: OBPluggableListMorph(Morph)>>handleKeystroke: KeyboardEvent>>sentTo: OBPluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: OBPluggableListMorph(Morph)>>processEvent:using: OBPluggableListMorph(Morph)>>processEvent: OBPluggableListMorph(PluggableListMorph)>>handleFocusEvent: [ActiveHand := self. ActiveEvent := anEvent. result := focusHolder handleFocusEvent: (anEvent transformedBy: (focusHolder transformedFrom: self))] in HandMorph>>sendFocusEvent:to:clear: [aBlock value] in PasteUpMorph>>becomeActiveDuring: BlockClosure>>on:do: PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear: HandMorph>>sendEvent:focus:clear: HandMorph>>sendKeyboardEvent: HandMorph>>handleEvent: HandMorph>>processEvents [:h | ActiveHand := h. h processEvents. ActiveHand := nil] in WorldState>>doOneCycleNowFor: Array(SequenceableCollection)>>do: WorldState>>handsDo: WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor: PasteUpMorph>>doOneCycle [[World doOneCycle. Processor yield. false] whileFalse. nil] in MorphicUIManager>>spawnNewProcess [self value. Processor terminateActive] in BlockClosure>>newProcess

-- Best regards, Igor Stasenko.

Try loading NativeBoost-Mac-IgorStasenko.7 (and do NBMacConstants initialize, and then restart the image) see if it will fix the issue. On 18 November 2012 12:35, Igor Stasenko <siguctua@gmail.com> wrote:

On 16 November 2012 10:11, Max Leske <maxleske@gmail.com> wrote:

...

A followup on the munmap issue:

I think it has something to do with how NativeBoost does the lookup. I looked at the way that "mmap" is called and noticed that the selector #getGlobalSymbolPointer: is being used. Resolving "munmap" with this selector succeeds while doing

NativeBoost loadSymbol: 'munmap' aName fromModule: -2

(which is what happens when the heap manager tries to call "munmap") results the stack trace shown below.

I'll keep digging...

-2 corresponds to RTLD_DEFAULT on macs.. which i find a bit strange, because on linuxes it is 0. nevertheless, i discovered it when making mac-os port for NB.

I doubt, but who knows, maybe it is redefined to 0 in 10.8.x i am using 10.7 version so i cannot tell.

btw, can you tell us, what exactly error is signaled? inspect the exception object, or just evaluate 'self description' for exception..

Okay, it looks like i know what happens.. if you do

NativeBoost loadSymbol: 'munmap' fromModule: 0 or NativeBoost loadSymbol: 'munmap' fromModule: 16rFFFFFFFE it prints @ 16r9ACD2A26 but if you do

NativeBoost loadSymbol: 'munmap' fromModule: -2

it fails the call.. and i know why, because function signature in #bootstrapLoadSymbol:ofLength:fromModule:into: expects 'ulong moduleHandle' which is unsigned 32 bit int, while we passing something not really unsigned.. because it makes a call to #positive32BitValueOf: interpreter function which fails the primitive.

so, a fix would be to change -2 to 16rFFFFFFFE.

It appears that after putting order in type conversions, i made it more strict, and now passing negative values, where only positive expected is punished violently :)

It is in NBMacConstants method.

-- Best regards, Igor Stasenko.

-- Best regards, Igor Stasenko.

On 18 November 2012 12:54, Igor Stasenko <siguctua@gmail.com> wrote:

On 18 November 2012 12:41, Igor Stasenko <siguctua@gmail.com> wrote:

...

Try loading NativeBoost-Mac-IgorStasenko.7 (and do NBMacConstants initialize, and then restart the image) see if it will fix the issue.

oh wait. this won't work.. i really don't like to use signed values for arguments..

okay, this one should do the work: Name: NativeBoost-Core-IgorStasenko.78 Author: IgorStasenko Time: 18 November 2012, 5:11:19.289 pm UUID: 749eb374-06d6-480d-8aeb-6de80c89ce33 Ancestors: NativeBoost-Core-IgorStasenko.77 - use 32-bit complement for negative values in loadModule function. (oops.. comment is a bit wrong, it is not loadModule, but loadSymbol.., but i already commited the code ) There is no need for any changes in mac constants (it is better to keep them negative for future 64 bit compliance) -- Best regards, Igor Stasenko.

Your fix works like a charm. Thanks! Max On 18.11.2012, at 17:14, Igor Stasenko <siguctua@gmail.com> wrote:

On 18 November 2012 12:54, Igor Stasenko <siguctua@gmail.com> wrote:

...

On 18 November 2012 12:41, Igor Stasenko <siguctua@gmail.com> wrote:

...

Try loading NativeBoost-Mac-IgorStasenko.7 (and do NBMacConstants initialize, and then restart the image) see if it will fix the issue.

oh wait. this won't work.. i really don't like to use signed values for arguments..

okay, this one should do the work:

Name: NativeBoost-Core-IgorStasenko.78 Author: IgorStasenko Time: 18 November 2012, 5:11:19.289 pm UUID: 749eb374-06d6-480d-8aeb-6de80c89ce33 Ancestors: NativeBoost-Core-IgorStasenko.77

- use 32-bit complement for negative values in loadModule function.

(oops.. comment is a bit wrong, it is not loadModule, but loadSymbol.., but i already commited the code )

There is no need for any changes in mac constants (it is better to keep them negative for future 64 bit compliance)

-- Best regards, Igor Stasenko.