[Vm-dev] VM Maker: VMMaker.oscog-tty.752.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Jun 2 20:19:25 UTC 2014


Timothy M uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-tty.752.mcz

==================== Summary ====================

Name: VMMaker.oscog-tty.752
Author: tty
Time: 2 June 2014, 4:15:47.09 pm
UUID: 0de7fb38-1e84-4773-8df5-d79afb9b032a
Ancestors: VMMaker.oscog-tty.751

Remove ObjectiveCPlugin from this repository upon learning that it lives at squeaksoruce.com/ObjectiveCBridge2

I am updating the BuildSqueakXYZCmakeImage*.st scripts to retrieve from that repository instead.

=============== Diff against VMMaker.oscog-tty.751 ===============

Item was removed:
- SmartSyntaxInterpreterPlugin subclass: #ObjectiveCPlugin
- 	instanceVariableNames: ''
- 	classVariableNames: ''
- 	poolDictionaries: ''
- 	category: 'VMMaker-Plugins'!
- 
- !ObjectiveCPlugin commentStamp: '<historical>' prior: 0!
- *  Created by John M McIntosh on 9/17/08.
- 
-  Some of this code was funded via a grant from the European Smalltalk User Group (ESUG)
-  Copyright (c) 2008 Corporate Smalltalk Consulting Ltd. All rights reserved.
-  MIT License
-  Permission is hereby granted, free of charge, to any person
-  obtaining a copy of this software and associated documentation
-  files (the "Software"), to deal in the Software without
-  restriction, including without limitation the rights to use,
-  copy, modify, merge, publish, distribute, sublicense, and/or sell
-  copies of the Software, and to permit persons to whom the
-  Software is furnished to do so, subject to the following
-  conditions:
-  
-  The above copyright notice and this permission notice shall be
-  included in all copies or substantial portions of the Software.
-  
-  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
-  EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES
-  OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
-  NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT
-  HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY,
-  WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
- FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR
- OTHER DEALINGS IN THE SOFTWARE.
- 
- The end-user documentation included with the redistribution, if any, must include the following acknowledgment: 
- "This product includes software developed by Corporate Smalltalk Consulting Ltd (http://www.smalltalkconsulting.com) 
- and its contributors", in the same place and form as other third-party acknowledgments. 
- Alternately, this acknowledgment may appear in the software itself, in the same form and location as other 
- such third-party acknowledgments.
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>initialiseModule (in category 'initialize-release') -----
- initialiseModule
- 	"Initialise the module"
- 	
- 	^ true
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveCallbackLeave: (in category 'system primitives') -----
- primitiveCallbackLeave: aNumber
- 
- 	self primitive: 'primitiveCallbackLeave'
- 		parameters: #(SmallInteger).
- 	aNumber = 0 ifTrue: [^self].
- 	interpreterProxy callbackLeave: aNumber.!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetAddressFromEntryPointString: (in category 'system primitives') -----
- primitiveGetAddressFromEntryPointString: aEntryPointName
- 	| entryPointNameLength fn entryPointName  |
- 	self primitive: 'primitiveGetAddressFromEntryPointString'
- 		parameters: #(String).
- 
- 	self var: 'entryPointName' declareC: 'char entryPointName[256]'.
- 	self var: 'fn' declareC: 'void * fn'.
- 	entryPointNameLength := interpreterProxy slotSizeOf: aEntryPointName cPtrAsOop.
- 	entryPointNameLength > 255 ifTrue: [^interpreterProxy positive64BitIntegerFor: 0].
- 	self str: entryPointName l: aEntryPointName cpy: entryPointNameLength+1.
- 	fn  := self dl: -2 sym: entryPointName.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: fn to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetAutoReleasePool (in category 'system primitives') -----
- primitiveGetAutoReleasePool
- 	|  pool |
- 	self primitive: 'primitiveGetAutoReleasePool'.
- 	self var: 'pool' declareC: 'NSAutoreleasePool * pool'.
- 	pool := nil.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'pool = [NSAutoreleasePool new]'.
- 	self cCode: '    NS_HANDLER 
- 		pool = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: pool to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetClass: (in category 'system primitives') -----
- primitiveGetClass: aClassOrInstanceOop
- 	|  classOrInstanceObject classObject |
- 	self primitive: 'primitiveGetClass'
- 		parameters: #(Oop).
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'classObject' declareC: 'Class classObject'.
- 
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	classObject := nil.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: classOrInstanceObject.
- 	self touch: classObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'classObject = [classOrInstanceObject class]'.
- 	self cCode: '    NS_HANDLER 
- 		classObject = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: classObject to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetDescription: (in category 'system primitives') -----
- primitiveGetDescription: aClassOrInstanceOop
- 	|  classOrInstanceObject utf8String utf8StringOop nsStringObject |
- 	self primitive: 'primitiveGetDescription'
- 		parameters: #(Oop).
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'nsStringObject' declareC: 'NSString* nsStringObject'.
- 	self var: 'utf8String' declareC: 'const char * utf8String'.
- 
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	utf8String := nil.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: nsStringObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'nsStringObject = [classOrInstanceObject description];
- 				utf8String = [nsStringObject UTF8String]'.
- 	self cCode: '    NS_HANDLER 
- 		utf8String = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	utf8String
- 		ifFalse: [interpreterProxy success: false.
- 		^nil].
- 	utf8StringOop := self stringFromCString: utf8String.
- 	^utf8StringOop
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetMethodSignatureForSelector:on: (in category 'system primitives') -----
- primitiveGetMethodSignatureForSelector: aSelectorOop on: aClassOrInstanceOop
- 	|  selectorObject classOrInstanceObject messageSignatureObject |
- 	self primitive: 'primitiveGetMethodSignatureForSelector'
- 		parameters: #(Oop Oop).
- 	self var: 'selectorObject' declareC: 'SEL selectorObject'.
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'messageSignatureObject' declareC: 'NSMethodSignature * messageSignatureObject'.
- 
- 	selectorObject := self cCoerce: (interpreterProxy positive64BitValueOf: aSelectorOop) to: 'SEL'.
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	messageSignatureObject := nil.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: classOrInstanceObject.
- 	self touch: selectorObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'messageSignatureObject = [classOrInstanceObject methodSignatureForSelector: selectorObject]'.
- 	self cCode: '    NS_HANDLER 
- 	messageSignatureObject = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: messageSignatureObject to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetNSStringForString:encoding: (in category 'system primitives') -----
- primitiveGetNSStringForString: aStringOop encoding: anEncoding
- 	| stringLength aStringAsNSString encoding aString |
- 	self primitive: 'primitiveGetNSStringForString'
- 		parameters: #(Oop Oop).
- 	self var: 'aStringAsNSString' declareC: 'NSString* aStringAsNSString'.
- 	self var: 'encoding' declareC: 'NSUInteger encoding'. 
- 	self var: 'aString' declareC: 'char* aString'. 
- 	encoding := self cCoerce: (interpreterProxy positive64BitValueOf: anEncoding) to: 'NSUInteger'.
- 	aString := interpreterProxy firstIndexableField: aStringOop.
- 	stringLength := interpreterProxy byteSizeOf: aStringOop.
- 	self touch: stringLength.
- 	aStringAsNSString := 0.
- 	self cCode: '    NS_DURING'. 
- 		aStringAsNSString := self cCode: '[[NSString alloc] initWithBytes: aString length: stringLength encoding: encoding]'.
- 	self cCode: '    NS_HANDLER 
- 				aStringAsNSString = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: aStringAsNSString to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetObjCClassForString: (in category 'system primitives') -----
- primitiveGetObjCClassForString: aClassName
- 	| classNameLength classNameNSString classObject |
- 	self primitive: 'primitiveGetObjCClassForString'
- 		parameters: #(Symbol).
- 	self var: 'classObject' declareC: 'Class classObject'.
- 	self var: 'classNameNSString' declareC: 'NSString* classNameNSString'.
- 
- 	classNameLength := interpreterProxy slotSizeOf: aClassName cPtrAsOop.
- 	self touch: classNameLength.
- 	classNameNSString := self cCode: '[[NSString alloc] initWithBytes: aClassName length: classNameLength encoding: NSUTF8StringEncoding]'.
- 	self cCode: '    NS_DURING'. 
- 	classObject := classNameNSString NSClassFromString.
- 	self cCode: '    NS_HANDLER 
- 	classObject = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	self cCode: '[classNameNSString release]'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: classObject to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetSelectorFromString: (in category 'system primitives') -----
- primitiveGetSelectorFromString: aSelectorName
- 	| selectorLength selectorNSString selectorObject |
- 	self primitive: 'primitiveGetSelectorForString'
- 		parameters: #(Symbol).
- 	self var: 'selectorObject' declareC: 'SEL selectorObject'.
- 	self var: 'selectorNSString' declareC: 'NSString * selectorNSString'.
- 
- 	selectorLength := interpreterProxy slotSizeOf: aSelectorName cPtrAsOop.
- 	self touch: selectorLength.
- 	selectorNSString := self cCode: '[[NSString alloc] initWithBytes: aSelectorName length: selectorLength encoding: NSUTF8StringEncoding]'.
- 	self cCode: '    NS_DURING'. 
- 	selectorObject := selectorNSString NSSelectorFromString.
- 	self cCode: '    NS_HANDLER 
- 	selectorObject = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	self cCode: '[selectorNSString release]'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: selectorObject to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveGetSuperClass: (in category 'system primitives') -----
- primitiveGetSuperClass: aClassOrInstanceOop
- 	|  classOrInstanceObject classObject |
- 	self primitive: 'primitiveGetSuperClass'
- 		parameters: #(Oop).
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'classObject' declareC: 'Class classObject'.
- 
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	classObject := nil.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: classOrInstanceObject.
- 	self touch: classObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'classObject = [classOrInstanceObject superclass]'.
- 	self cCode: '    NS_HANDLER 
- 		classObject = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: classObject to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveIsEqual:to: (in category 'system primitives') -----
- primitiveIsEqual: anOop1 to: anOop2
- 	|  oop1 oop2 result |
- 	self primitive: 'primitiveIsEqual'
- 		parameters: #(Oop Oop).
- 	self var: 'oop1' declareC: 'id oop1'.
- 	self var: 'oop2' declareC: 'id oop2'.
- 	self var: 'result' declareC: 'BOOL result'.
- 
- 	oop1 := self cCoerce: (interpreterProxy positive64BitValueOf: anOop1) to: 'id'.
- 	oop2 := self cCoerce: (interpreterProxy positive64BitValueOf: anOop2) to: 'id'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: oop1.
- 	self touch: oop2.
- 	result := 0.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'result = [oop1 isEqual: oop2]'.
- 	self cCode: '    NS_HANDLER'.
- 	interpreterProxy success: false.
- 	true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^(result = 1) asBooleanObj
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveMethodSignatureGetArgumentType:atIndex: (in category 'system primitives') -----
- primitiveMethodSignatureGetArgumentType: aMethodSignatureOop atIndex: aIndexNumber
- 	|  nsMethodSignatureObject string stringOop |
- 	self primitive: 'primitiveMethodSignatureGetArgumentType'
- 		parameters: #(Oop SmallInteger).
- 	self var: 'nsMethodSignatureObject' declareC: 'NSMethodSignature* nsMethodSignatureObject'.
- 	self var: 'string' declareC: 'const char * string'.
- 
- 	nsMethodSignatureObject := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSMethodSignature *'.
- 	string := nil.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: nsMethodSignatureObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'string = [nsMethodSignatureObject getArgumentTypeAtIndex: aIndexNumber]'.
- 	self cCode: '    NS_HANDLER 
- 		string = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	string
- 		ifFalse: [interpreterProxy success: false.
- 		^nil].
- 	stringOop := self stringFromCString: string.
- 	^stringOop
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveMethodSignatureGetMethodReturnLength: (in category 'system primitives') -----
- primitiveMethodSignatureGetMethodReturnLength: aMethodSignatureOop
- 	|  nsMethodSignatureObject methodReturnLength |
- 	self primitive: 'primitiveMethodSignatureGetMethodReturnLength'
- 		parameters: #(Oop).
- 	self var: 'nsMethodSignatureObject' declareC: 'NSMethodSignature* nsMethodSignatureObject'.
- 	self var: 'methodReturnLength' declareC: 'NSUInteger methodReturnLength'.
- 
- 	nsMethodSignatureObject := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSMethodSignature *'.
- 	methodReturnLength := 0.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: nsMethodSignatureObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode: 'methodReturnLength = [nsMethodSignatureObject methodReturnLength]'.
- 	self cCode: '    NS_HANDLER 
- 		methodReturnLength = 0xFFFFFFFF'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	methodReturnLength = 16rFFFFFFFF
- 		ifTrue: [interpreterProxy success: false.
- 		^nil].
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: methodReturnLength to: 'usqInt') 
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveMethodSignatureGetNumberOfArguments: (in category 'system primitives') -----
- primitiveMethodSignatureGetNumberOfArguments: aMethodSignatureOop
- 	|  nsMethodSignatureObject numberOfArguments |
- 	self primitive: 'primitiveMethodSignatureGetNumberOfArguments'
- 		parameters: #(Oop).
- 	self var: 'nsMethodSignatureObject' declareC: 'NSMethodSignature* nsMethodSignatureObject'.
- 	self var: 'numberOfArguments' declareC: 'NSUInteger numberOfArguments'.
- 
- 	nsMethodSignatureObject := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSMethodSignature *'.
- 	numberOfArguments := 9999999.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: nsMethodSignatureObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode: 'numberOfArguments = [nsMethodSignatureObject numberOfArguments]'.
- 	self cCode: '    NS_HANDLER 
- 		numberOfArguments = 9999999'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	numberOfArguments = 9999999
- 		ifTrue: [interpreterProxy success: false.
- 		^nil].
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: numberOfArguments to: 'usqInt') 
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveMethodSignatureGetReturnType: (in category 'system primitives') -----
- primitiveMethodSignatureGetReturnType: aMethodSignatureOop
- 	|  nsMethodSignatureObject string stringOop |
- 	self primitive: 'primitiveMethodSignatureGetReturnType'
- 		parameters: #(Oop).
- 	self var: 'nsMethodSignatureObject' declareC: 'NSMethodSignature* nsMethodSignatureObject'.
- 	self var: 'string' declareC: 'const char * string'.
- 
- 	nsMethodSignatureObject := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSMethodSignature *'.
- 	string := nil.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: nsMethodSignatureObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'string = [nsMethodSignatureObject methodReturnType]'.
- 	self cCode: '    NS_HANDLER 
- 		string = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	string
- 		ifFalse: [interpreterProxy success: false.
- 		^nil].
- 	stringOop := self stringFromCString: string.
- 	^stringOop
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationCalloc: (in category 'system primitives') -----
- primitiveNSInvocationCalloc: size
- 	|  pointer |
- 	self primitive: 'primitiveNSInvocationCalloc'
- 		parameters: #(SmallInteger).
- 	self var: 'pointer' declareC: 'void* pointer'.
- 	self cCode: 'pointer = calloc(size,1)'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: pointer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationFree: (in category 'system primitives') -----
- primitiveNSInvocationFree: pointer
- 	|  pointerToFree |
- 	self primitive: 'primitiveNSInvocationFree'
- 		parameters: #(Oop).
- 	self var: 'pointerToFree' declareC: 'void* pointerToFree'.
- 
- 	pointerToFree := self cCoerce: (interpreterProxy positive64BitValueOf: pointer) to: 'void *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self cCode: 'free((void*)pointerToFree)'.
- 	self touch: pointer.
- 	^self!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetArgument:buffer:atIndex: (in category 'system primitives') -----
- primitiveNSInvocationGetArgument: aMethodSignatureOop buffer: bufferOop atIndex: index
- 	|  nsInvocationInstance buffer |
- 	self primitive: 'primitiveNSInvocationGetArgument'
- 		parameters: #(Oop Oop SmallInteger).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferOop) to: 'void *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance getArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^self!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetCType:signed: (in category 'system primitives') -----
- primitiveNSInvocationGetCType: bufferAddressOop signed: signedBoolean
- 	|  buffer newCharacterOop targetOopData |
- 	self primitive: 'primitiveNSInvocationGetCType'
- 		parameters: #(Oop Boolean).
- 	self var: 'buffer' declareC: 'char * buffer'.
- 	self var: 'targetOopData' declareC: 'char targetOopData'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'char *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	newCharacterOop := interpreterProxy
- 		instantiateClass: interpreterProxy classCharacter
- 		indexableSize: 1.
- 	targetOopData := 0.
- 	self touch: targetOopData.
- 	signedBoolean 
- 			ifTrue: [self cCode: 'targetOopData = *(char*) buffer'. 
- 					interpreterProxy storeInteger: 0 ofObject: newCharacterOop withValue: 
- 					 (self cCoerce: targetOopData to: 'sqInt').]
- 			ifFalse: [self cCode: 'targetOopData = *(char*) buffer'.
- 					interpreterProxy storeInteger: 0 ofObject: newCharacterOop withValue: 
- 					 (self cCoerce: targetOopData to: 'usqInt').].
- 	
- 	^newCharacterOop!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetCharPointerType: (in category 'system primitives') -----
- primitiveNSInvocationGetCharPointerType: bufferAddressOop
- 	|  buffer stringOop bufferPointer |
- 	self primitive: 'primitiveNSInvocationGetCharPointerType'
- 		parameters: #(Oop).
- 	self var: 'bufferPointer' declareC: 'char ** bufferPointer'.
- 	self var: 'buffer' declareC: 'char * buffer'.
- 
- 	bufferPointer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'char **'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self cCode: 'buffer = *bufferPointer'.
- 	stringOop := self stringFromCString: buffer.
- 	^stringOop
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetClassType: (in category 'system primitives') -----
- primitiveNSInvocationGetClassType: bufferAddressOop
- 	|  buffer data |
- 	self primitive: 'primitiveNSInvocationGetClassType'
- 		parameters: #(Oop).
- 	self var: 'buffer' declareC: 'Class * buffer'.
- 	self var: 'data' declareC: 'Class data'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'Class *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	self cCode: 'data = *buffer'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: data to: 'usqInt') 
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetDoubleType: (in category 'system primitives') -----
- primitiveNSInvocationGetDoubleType: bufferAddressOop
- 	|  buffer data |
- 	self primitive: 'primitiveNSInvocationGetDoubleType'
- 		parameters: #(Oop).
- 	self var: 'buffer' declareC: 'double * buffer'.
- 	self var: 'data' declareC: 'double data'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'double *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	self cCode: 'data = *buffer'.
- 	^interpreterProxy floatObjectOf: data!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetFloatType: (in category 'system primitives') -----
- primitiveNSInvocationGetFloatType: bufferAddressOop
- 	|  buffer data |
- 	self primitive: 'primitiveNSInvocationGetFloatType'
- 		parameters: #(Oop).
- 	self var: 'buffer' declareC: 'float * buffer'.
- 	self var: 'data' declareC: 'float data'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'float *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	self cCode: 'data = *buffer'.
- 	^interpreterProxy floatObjectOf: data!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetIntType:signed: (in category 'system primitives') -----
- primitiveNSInvocationGetIntType: bufferAddressOop signed: signedBoolean
- 	|  buffer data unsignedData |
- 	self primitive: 'primitiveNSInvocationGetIntType'
- 		parameters: #(Oop Boolean).
- 	self var: 'buffer' declareC: 'int * buffer'.
- 	self var: 'data' declareC: 'int data'.
- 	self var: 'unsignedData' declareC: 'unsigned int unsignedData'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'int *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	unsignedData := data := 0.
- 	signedBoolean 
- 			ifTrue: [self cCode: 'data = *buffer'.
- 					^interpreterProxy signed32BitIntegerFor: (self cCoerce: data to: 'sqInt') ]
- 			ifFalse: [self cCode: 'unsignedData = *(unsigned int *)buffer'.
- 					^interpreterProxy positive32BitIntegerFor: (self cCoerce: unsignedData to: 'usqInt') ].
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetLongLongType:signed: (in category 'system primitives') -----
- primitiveNSInvocationGetLongLongType: bufferAddressOop signed: signedBoolean
- 	|  buffer data unsignedData |
- 	self primitive: 'primitiveNSInvocationGetLongLongType'
- 		parameters: #(Oop Boolean).
- 	self var: 'buffer' declareC: 'long long * buffer'.
- 	self var: 'data' declareC: 'long long data'.
- 	self var: 'unsignedData' declareC: 'unsigned long long unsignedData'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'long long *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	unsignedData := data := 0.
- 	signedBoolean 
- 			ifTrue: [self cCode: 'data = *buffer'.
- 					^interpreterProxy signed64BitIntegerFor: (self cCoerce: data to: 'long long') ]
- 			ifFalse: [self cCode: 'unsignedData = * (unsigned long long*) buffer'.
- 					^interpreterProxy positive64BitIntegerFor: (self cCoerce: unsignedData to: 'unsigned long long') ].
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetLongType:signed: (in category 'system primitives') -----
- primitiveNSInvocationGetLongType: bufferAddressOop signed: signedBoolean
- 	|  buffer data unsignedData |
- 	self primitive: 'primitiveNSInvocationGetLongType'
- 		parameters: #(Oop Boolean).
- 	self var: 'buffer' declareC: 'long * buffer'.
- 	self var: 'data' declareC: 'long data'.
- 	self var: 'unsignedData' declareC: 'unsigned long unsignedData'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'long *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	unsignedData := data := 0.
- 	signedBoolean 
- 			ifTrue: [self cCode: 'data = *buffer'.
- 					^interpreterProxy signed64BitIntegerFor: (self cCoerce: data to: 'sqInt') ]
- 			ifFalse: [self cCode: 'unsignedData = *(unsigned long *) buffer'.
- 					^interpreterProxy positive64BitIntegerFor: (self cCoerce: unsignedData to: 'usqInt') ].
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetObjectType: (in category 'system primitives') -----
- primitiveNSInvocationGetObjectType: bufferAddressOop
- 	|  buffer data |
- 	self primitive: 'primitiveNSInvocationGetObjectType'
- 		parameters: #(Oop).
- 	self var: 'buffer' declareC: 'id * buffer'.
- 	self var: 'data' declareC: 'id data'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'id *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	self cCode: 'data = *buffer'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: data to: 'usqInt') 
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetReturnValue:on: (in category 'system primitives') -----
- primitiveNSInvocationGetReturnValue: bufferAddressOop on: aNSinvokeOops
- 	|  buffer nsInvoke |
- 	self primitive: 'primitiveNSInvocationGetReturnValue'
- 		parameters: #(Oop Oop).
- 	self var: 'buffer' declareC: 'void * buffer'.
- 	self var: 'nsInvoke' declareC: 'NSInvocation *nsInvoke'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'void *'.
- 	nsInvoke := self cCoerce: (interpreterProxy positive64BitValueOf: aNSinvokeOops) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvoke getReturnValue: buffer]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^self!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetSelectorType: (in category 'system primitives') -----
- primitiveNSInvocationGetSelectorType: bufferAddressOop
- 	|  buffer data |
- 	self primitive: 'primitiveNSInvocationGetSelectorType'
- 		parameters: #(Oop).
- 	self var: 'buffer' declareC: 'SEL * buffer'.
- 	self var: 'data' declareC: 'SEL data'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'SEL *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	self cCode: 'data = *buffer'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: data to: 'usqInt') 
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetShortType:signed: (in category 'system primitives') -----
- primitiveNSInvocationGetShortType: bufferAddressOop signed: signedBoolean
- 	|  buffer data unsignedData |
- 	self primitive: 'primitiveNSInvocationGetShortType'
- 		parameters: #(Oop Boolean).
- 	self var: 'buffer' declareC: 'short * buffer'.
- 	self var: 'data' declareC: 'short data'.
- 	self var: 'unsignedData' declareC: 'unsigned short unsignedData'.
- 
- 	buffer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'short *'.
- 	unsignedData := data := 0.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: buffer.
- 	signedBoolean 
- 			ifTrue: [self cCode: 'data = *buffer'.
- 					^interpreterProxy signed32BitIntegerFor: (self cCoerce: data to: 'sqInt') ]
- 			ifFalse: [self cCode: 'unsignedData = *(unsigned short *)buffer'.
- 					^interpreterProxy positive32BitIntegerFor: (self cCoerce: unsignedData to: 'usqInt') ].
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationGetStructureType:length: (in category 'system primitives') -----
- primitiveNSInvocationGetStructureType: bufferAddressOop length: length
- 	|  bufferPointer newByteArray |
- 	self primitive: 'primitiveNSInvocationGetStructureType'
- 		parameters: #(Oop SmallInteger).
- 	self var: 'bufferPointer' declareC: 'char ** bufferPointer'.
- 	self var: 'buffer' declareC: 'char * buffer'.
- 
- 	bufferPointer := self cCoerce: (interpreterProxy positive64BitValueOf: bufferAddressOop) to: 'void *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	newByteArray := interpreterProxy
- 		instantiateClass: interpreterProxy classByteArray
- 		indexableSize: length.
- 	self me: (interpreterProxy arrayValueOf: newByteArray)
- 		m: bufferPointer
- 		cpy: length. "void * memcpy(void *restrict s1, const void *restrict s2, size_t n)"
- 	^newByteArray
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationMalloc: (in category 'system primitives') -----
- primitiveNSInvocationMalloc: size
- 	|  pointer |
- 	self primitive: 'primitiveNSInvocationMalloc'
- 		parameters: #(SmallInteger).
- 	self var: 'pointer' declareC: 'void* pointer'.
- 	self cCode: 'pointer = malloc(size)'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: pointer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetCType:signed:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetCType: aMethodSignatureOop signed: signedBoolean index: index value: newCharacterOop
- 	|  nsInvocationInstance buffer aValue aUnsignedValue |
- 	self primitive: 'primitiveNSInvocationSetCType'
- 		parameters: #(Oop Boolean SmallInteger Oop).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 	self var: 'aValue' declareC: 'char aValue'.
- 	self var: 'aUnsignedValue' declareC: 'unsigned char aUnsignedValue'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	aValue := interpreterProxy fetchInteger: 0 ofObject: newCharacterOop.
- 	aUnsignedValue := interpreterProxy fetchInteger: 0 ofObject: newCharacterOop.
- 	signedBoolean 
- 			ifTrue: [self cCode: 'buffer = malloc(sizeof(char));
- 					*(char*) buffer = (char) aValue']
- 			ifFalse: [self cCode: 'buffer = malloc(sizeof(unsigned char));
- 					*(unsigned char*)buffer = (unsigned char) aUnsignedValue'].
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetDoubleType:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetDoubleType: aMethodSignatureOop  index: index value: aValue
- 	|  nsInvocationInstance buffer |
- 	self primitive: 'primitiveNSInvocationSetDoubleType'
- 		parameters: #(Oop SmallInteger Float).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'double aValue'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self cCode: 'buffer = malloc(sizeof(double));
- 				*(double*) buffer = (double) aValue'.
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetFloatType:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetFloatType: aMethodSignatureOop  index: index value: aValue
- 	|  nsInvocationInstance buffer |
- 	self primitive: 'primitiveNSInvocationSetFloatType'
- 		parameters: #(Oop SmallInteger Float).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'float aValue'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self cCode: 'buffer = malloc(sizeof(float));
- 				*(float*) buffer = (float) aValue'.
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetIntType:signed:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetIntType: aMethodSignatureOop signed: signedBoolean index: index value: intValue
- 	|  nsInvocationInstance buffer aValue |
- 	self primitive: 'primitiveNSInvocationSetIntType'
- 		parameters: #(Oop Boolean SmallInteger Oop).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'int aValue'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	signedBoolean 
- 			ifTrue: [aValue := self cCoerce: (interpreterProxy signed64BitValueOf: intValue) to: 'int'.
- 					interpreterProxy failed ifTrue: [^nil].
- 				self cCode: 'buffer = malloc(sizeof(int));
- 						*(int*) buffer = (int) aValue']
- 			ifFalse: [aValue := self cCoerce: (interpreterProxy positive64BitValueOf: intValue) to: 'unsigned int'.
- 					interpreterProxy failed ifTrue: [^nil].
- 				self cCode: 'buffer = malloc(sizeof(unsigned int));
- 					*(unsigned int*)buffer = (unsigned int) aValue'].
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetLongLongType:signed:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetLongLongType: aMethodSignatureOop signed: signedBoolean index: index value: intValue
- 	|  nsInvocationInstance buffer aValue |
- 	self primitive: 'primitiveNSInvocationSetLongLongType'
- 		parameters: #(Oop Boolean SmallInteger Oop).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'long long aValue'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	signedBoolean 
- 			ifTrue: [aValue := self cCoerce: (interpreterProxy signed64BitValueOf: intValue) to: 'long long'.
- 				interpreterProxy failed ifTrue: [^nil].
- 					self cCode: 'buffer = malloc(sizeof(long long));
- 						*(long long*) buffer = (long long) aValue']
- 			ifFalse: [aValue := self cCoerce: (interpreterProxy positive64BitValueOf: intValue) to: 'unsigned long long'.
- 					interpreterProxy failed ifTrue: [^nil].
- 					self cCode: 'buffer = malloc(sizeof(unsigned long long));
- 					*(unsigned long long*)buffer = (unsigned long long) aValue'].
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetLongType:signed:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetLongType: aMethodSignatureOop signed: signedBoolean index: index value: intValue
- 	|  nsInvocationInstance buffer aValue |
- 	self primitive: 'primitiveNSInvocationSetLongType'
- 		parameters: #(Oop Boolean SmallInteger Oop).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'long aValue'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	signedBoolean 
- 			ifTrue: [aValue := self cCoerce: (interpreterProxy signed64BitValueOf: intValue) to: 'long'.
- 					interpreterProxy failed ifTrue: [^nil].
- 					self cCode: 'buffer = malloc(sizeof(long));
- 						*(long*) buffer = (long) aValue']
- 			ifFalse: [aValue := self cCoerce: (interpreterProxy positive64BitValueOf: intValue) to: 'unsigned long'.
- 					interpreterProxy failed ifTrue: [^nil].
- 					self cCode: 'buffer = malloc(sizeof(unsigned long));
- 					*(unsigned long*)buffer = (unsigned long) aValue'].
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetPointerType:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetPointerType: aMethodSignatureOop  index: index value: pointerValue
- 	|  nsInvocationInstance buffer aValue |
- 	self primitive: 'primitiveNSInvocationSetPointerType'
- 		parameters: #(Oop SmallInteger Oop).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'void * aValue'.
- 	self var: 'buffer' declareC: 'void ** buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	aValue := self cCoerce: (interpreterProxy positive64BitValueOf: pointerValue) to: 'char *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self cCode: 'buffer = malloc(sizeof(void*));
- 		*buffer = aValue'.
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetRetained: (in category 'system primitives') -----
- primitiveNSInvocationSetRetained: aMethodSignatureOop
- 	|  nsInvocationInstance |
- 	self primitive: 'primitiveNSInvocationSetRetained'
- 		parameters: #(Oop).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance retainArguments]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 	self cCode: '    NS_ENDHANDLER'.
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetSelector:target:on: (in category 'system primitives') -----
- primitiveNSInvocationSetSelector: aSelectorOop target: object1Oops on: aNSinvokeOops
- 	|  selectorObject object1 nsInvoke |
- 	self primitive: 'primitiveNSInvocationSetSelector'
- 		parameters: #(Oop Oop Oop).
- 
- 	self var: 'object1' declareC: 'id object1'.
- 	self var: 'selectorObject' declareC: 'SEL selectorObject'.
- 	self var: 'nsInvoke' declareC: 'NSInvocation *nsInvoke'.
- 
- 	selectorObject := self cCoerce: (interpreterProxy positive64BitValueOf: aSelectorOop) to: 'SEL'.
- 	object1 := self cCoerce: (interpreterProxy positive64BitValueOf: object1Oops) to: 'id'.
- 	nsInvoke := self cCoerce: (interpreterProxy positive64BitValueOf: aNSinvokeOops) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvoke setSelector: selectorObject]'.
- 	self cCode:  '[nsInvoke setTarget:  object1]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^self].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^self!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetShortType:signed:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetShortType: aMethodSignatureOop signed: signedBoolean index: index value: intValue
- 	|  nsInvocationInstance buffer aValue |
- 	self primitive: 'primitiveNSInvocationSetShortType'
- 		parameters: #(Oop Boolean SmallInteger Oop).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'short aValue'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	signedBoolean 
- 			ifTrue: [aValue := self cCoerce: (interpreterProxy signed64BitValueOf: intValue) to: 'short'.
- 					interpreterProxy failed ifTrue: [^nil].
- 					self cCode: 'buffer = malloc(sizeof(short));
- 						*(short*) buffer = (short) aValue']
- 			ifFalse: [aValue := self cCoerce: (interpreterProxy positive64BitValueOf: intValue) to: 'unsigned short'.
- 					interpreterProxy failed ifTrue: [^nil].
- 					self cCode: 'buffer = malloc(sizeof(unsigned short));
- 					*(unsigned short*)buffer = (unsigned short) aValue'].
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetStringType:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetStringType: aMethodSignatureOop  index: index value: aValue
- 	|  nsInvocationInstance buffer stringSize |
- 	self primitive: 'primitiveNSInvocationSetStringType'
- 		parameters: #(Oop SmallInteger String).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'aValue' declareC: 'char * aValue'.
- 	self var: 'buffer' declareC: 'char * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	stringSize := interpreterProxy slotSizeOf: aValue cPtrAsOop.
- 	self cCode: 'buffer = malloc(stringSize + 1);
- 		memcpy(buffer,aValue,stringSize);
- 		buffer[stringSize] = 0x00'.
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: &buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetStructureType:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetStructureType: aMethodSignatureOop  index: index value: aValue
- 	|  nsInvocationInstance buffer byteArraySize |
- 	self primitive: 'primitiveNSInvocationSetStructureType'
- 		parameters: #(Oop SmallInteger ByteArray).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	byteArraySize := interpreterProxy slotSizeOf: aValue cPtrAsOop.
- 	self cCode: 'buffer = malloc(byteArraySize);
- 		memcpy(buffer,aValue,byteArraySize)'.
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self touch: byteArraySize.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationSetVoidPointerType:index:value: (in category 'system primitives') -----
- primitiveNSInvocationSetVoidPointerType: aMethodSignatureOop  index: index value: aValue
- 	|  nsInvocationInstance buffer byteArraySize |
- 	self primitive: 'primitiveNSInvocationSetVoidPointerType'
- 		parameters: #(Oop SmallInteger ByteArray).
- 	self var: 'nsInvocationInstance' declareC: 'NSInvocation* nsInvocationInstance'.
- 	self var: 'buffer' declareC: 'void * buffer'.
- 
- 	nsInvocationInstance := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSInvocation *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	byteArraySize := interpreterProxy slotSizeOf: aValue cPtrAsOop.
- 	self cCode: 'buffer = malloc(byteArraySize);
- 		memcpy(buffer,aValue,byteArraySize)'.
- 	self touch: nsInvocationInstance.
- 	self touch: buffer.
- 	self touch: byteArraySize.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[nsInvocationInstance setArgument: &buffer atIndex: index]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: buffer to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSInvocationWithMethodSignature: (in category 'system primitives') -----
- primitiveNSInvocationWithMethodSignature: aMethodSignatureOop
- 	|  methodSignatureOop nsInvocationOops |
- 	self primitive: 'primitiveNSInvocationWithMethodSignature'
- 		parameters: #(Oop).
- 	self var: 'methodSignatureOop' declareC: 'NSMethodSignature * methodSignatureOop'.
- 	self var: 'nsInvocationOops' declareC: 'NSInvocation* nsInvocationOops'.
- 
- 	methodSignatureOop := self cCoerce: (interpreterProxy positive64BitValueOf: aMethodSignatureOop) to: 'NSMethodSignature *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	nsInvocationOops := 0.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'nsInvocationOops = [NSInvocation invocationWithMethodSignature: methodSignatureOop]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: nsInvocationOops to: 'usqInt') 
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSLog: (in category 'system primitives') -----
- primitiveNSLog: aNSStringOOP
- 	|  oop1 |
- 	self primitive: 'primitiveNSLog'
- 		parameters: #(Oop).
- 	self var: 'oop1' declareC: 'id oop1'.
- 	
- 	oop1 := self cCoerce: (interpreterProxy positive64BitValueOf: aNSStringOOP) to: 'id'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: oop1.
- 	self NSLog: oop1.
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveNSStringToUTF8: (in category 'system primitives') -----
- primitiveNSStringToUTF8: aNSStringOop
- 	|  nsStringObject utf8String utf8StringOop |
- 	self primitive: 'primitiveNSStringToUTF8'
- 		parameters: #(Oop).
- 	self var: 'nsStringObject' declareC: 'NSString* nsStringObject'.
- 	self var: 'utf8String' declareC: 'const char * utf8String'.
- 
- 	nsStringObject := self cCoerce: (interpreterProxy positive64BitValueOf: aNSStringOop) to: 'NSString *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	utf8String := nil.
- 	self touch: nsStringObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'utf8String = [nsStringObject UTF8String]'.
- 	self cCode: '    NS_HANDLER 
- 		utf8String = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	utf8String
- 		ifFalse: [interpreterProxy success: false.
- 		^nil].
- 	utf8StringOop := self stringFromCString: utf8String.
- 	^utf8StringOop
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitivePerformSelector:on: (in category 'system primitives') -----
- primitivePerformSelector: aSelectorOop on: aClassOrInstanceOop
- 	|  classOrInstanceObject  selectorObject returnValue |
- 	"- (id)performSelector:(SEL)aSelector"
- 
- 	self primitive: 'primitivePerformSelector'
- 		parameters: #(Oop Oop).
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'selectorObject' declareC: 'SEL selectorObject'.
- 	self var: 'returnValue' declareC: 'id returnValue'.
- 
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	selectorObject := self cCoerce: (interpreterProxy positive64BitValueOf: aSelectorOop) to: 'SEL'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	returnValue := nil.
- 	self touch: classOrInstanceObject.
- 	self touch: selectorObject.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'returnValue = [classOrInstanceObject performSelector: selectorObject]'.
- 	self cCode: '    NS_HANDLER 
- 		returnValue = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: returnValue to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitivePerformSelectorOnMainThreadWithWaitTilDone:on:with:returnValue:waitTilDone: (in category 'system primitives') -----
- primitivePerformSelectorOnMainThreadWithWaitTilDone: aSelectorOop on: aClassOrInstanceOop with: anObject1 returnValue: aReturnValueAddress waitTilDone: doneFlag
- 	|  classOrInstanceObject  selectorObject object1 returnAddress |
- 	"- (id)performSelector:(SEL)aSelector"
- 
- 	self primitive: 'primitivePerformSelectorOnMainThreadWithWaitTilDone'
- 		parameters: #(Oop Oop Oop Oop Boolean).
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'object1' declareC: 'id object1'.
- 	self var: 'selectorObject' declareC: 'SEL selectorObject'.
- 	self var: 'returnAddress' declareC: 'void *returnAddress'.
- 
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	selectorObject := self cCoerce: (interpreterProxy positive64BitValueOf: aSelectorOop) to: 'SEL'.
- 	object1 := self cCoerce: (interpreterProxy positive64BitValueOf: anObject1) to: 'id'.
- 	returnAddress := self cCoerce: (interpreterProxy positive64BitValueOf: aReturnValueAddress) to: 'void *'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	self touch: classOrInstanceObject.
- 	self touch: selectorObject.
- 	self touch: object1.
- 	self touch: returnAddress.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  '[classOrInstanceObject performSelectorOnMainThread: selectorObject withObject: object1 waitUntilDone: doneFlag  ]'.
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	self cCode: '    NS_DURING'. 
- 	returnAddress ~= 0 ifTrue:
- 		[self cCode: '[classOrInstanceObject getReturnValue: returnAddress]'].
- 	self cCode: '    NS_HANDLER'.
- 		interpreterProxy success: false.
- 		true ifTrue: [^nil].
- 	self cCode: '    NS_ENDHANDLER'.
- 	^self!

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitivePerformSelectorWith:on:with: (in category 'system primitives') -----
- primitivePerformSelectorWith: aSelectorOop on: aClassOrInstanceOop with: anObject1
- 	|  classOrInstanceObject  selectorObject returnValue object1 |
- 	"- (id)performSelector:(SEL)aSelector"
- 
- 	self primitive: 'primitivePerformSelectorWith'
- 		parameters: #(Oop Oop Oop).
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'object1' declareC: 'id object1'.
- 	self var: 'selectorObject' declareC: 'SEL selectorObject'.
- 	self var: 'returnValue' declareC: 'id returnValue'.
- 
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	selectorObject := self cCoerce: (interpreterProxy positive64BitValueOf: aSelectorOop) to: 'SEL'.
- 	object1 := self cCoerce: (interpreterProxy positive64BitValueOf: anObject1) to: 'id'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	returnValue := nil.
- 	self touch: classOrInstanceObject.
- 	self touch: selectorObject.
- 	self touch: object1.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'returnValue = [classOrInstanceObject performSelector: selectorObject withObject: object1]'.
- 	self cCode: '    NS_HANDLER 
- 		returnValue = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: returnValue to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitivePerformSelectorWithWith:on:with:with: (in category 'system primitives') -----
- primitivePerformSelectorWithWith: aSelectorOop on: aClassOrInstanceOop with: anObject1 with: anObject2
- 	|  classOrInstanceObject  selectorObject returnValue object1 object2 |
- 	"- (id)performSelector:(SEL)aSelector"
- 
- 	self primitive: 'primitivePerformSelectorWithWith'
- 		parameters: #(Oop Oop Oop Oop).
- 	self var: 'classOrInstanceObject' declareC: 'id classOrInstanceObject'.
- 	self var: 'object1' declareC: 'id object1'.
- 	self var: 'object2' declareC: 'id object2'.
- 	self var: 'selectorObject' declareC: 'SEL selectorObject'.
- 	self var: 'returnValue' declareC: 'id returnValue'.
- 
- 	classOrInstanceObject := self cCoerce: (interpreterProxy positive64BitValueOf: aClassOrInstanceOop) to: 'id'.
- 	selectorObject := self cCoerce: (interpreterProxy positive64BitValueOf: aSelectorOop) to: 'SEL'.
- 	object1 := self cCoerce: (interpreterProxy positive64BitValueOf: anObject1) to: 'id'.
- 	object2 := self cCoerce: (interpreterProxy positive64BitValueOf: anObject2) to: 'id'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	returnValue := nil.
- 	self touch: classOrInstanceObject.
- 	self touch: selectorObject.
- 	self touch: object1.
- 	self touch: object2.
- 	self cCode: '    NS_DURING'. 
- 	self cCode:  'returnValue = [classOrInstanceObject performSelector: selectorObject withObject: object1 withObject: object2 ]'.
- 	self cCode: '    NS_HANDLER 
- 		returnValue = nil;'.
- 	self cCode: '    NS_ENDHANDLER'.
- 	^interpreterProxy positive64BitIntegerFor: (self cCoerce: returnValue to: 'usqInt') !

Item was removed:
- ----- Method: ObjectiveCPlugin>>primitiveSELGetName: (in category 'system primitives') -----
- primitiveSELGetName: aSEL
- 	|  stringOop bufferPointer |
- 	self primitive: 'primitiveSELGetName'
- 		parameters: #(Oop).
- 	self var: 'bufferPointer' declareC: 'SEL bufferPointer'.
- 	self cCode: '#define selgetName sel_getName
- '.
- 	bufferPointer := self cCoerce: (interpreterProxy positive64BitValueOf: aSEL) to: 'SEL'.
- 	interpreterProxy failed ifTrue: [^nil].
- 	stringOop := self stringFromCString: (self selgetName: bufferPointer).
- 	^stringOop
- !

Item was removed:
- ----- Method: ObjectiveCPlugin>>shutdownModule (in category 'initialize-release') -----
- shutdownModule
- 	^true!

Item was removed:
- ----- Method: ObjectiveCPlugin>>stringFromCString: (in category 'system primitives') -----
- stringFromCString: aCString
- 	"Answer a new String copied from a null-terminated C string.
- 	Caution: This may invoke the garbage collector."
- 
- 	| len newString |
- 	self var: 'aCString' type: 'const char *'.
- 	len := self cCoerce: (self strlen: aCString) to: 'sqInt'. 
- 	newString := interpreterProxy
- 		instantiateClass: interpreterProxy classString
- 		indexableSize: len.
- 	self st: (interpreterProxy arrayValueOf: newString)
- 		rn: aCString
- 		cpy: len. "(char *)strncpy()"
- 	^ newString
- 
- !



More information about the Vm-dev mailing list