[Vm-dev] VM Maker: VMMaker.oscog-eem.3276.mcz

[commits at source.squeak.org]

Eliot Miranda uploaded a new version of VMMaker to project VM Maker:
http://source.squeak.org/VMMaker/VMMaker.oscog-eem.3276.mcz

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

Name: VMMaker.oscog-eem.3276
Author: eem
Time: 20 November 2022, 6:58:06.490539 pm
UUID: ddcf50fe-7d04-4ef1-9f2e-cb12e4e533f9
Ancestors: VMMaker.oscog-eem.3275

Allow ClipboardExtendedPlugin ioAddClipboardData to accept any bits data, not just bytes.

=============== Diff against VMMaker.oscog-eem.3275 ===============

Item was changed:
  ----- Method: ClipboardExtendedPlugin>>ioAddClipboardData:data:dataFormat: (in category 'io') -----
  ioAddClipboardData: clipboard data: data dataFormat: format
  	| dataLength |
+ 	self primitive: 'ioAddClipboardData' parameters: #(Unsigned WordsOrBytes Oop).
- 	self primitive: 'ioAddClipboardData' parameters: #(Unsigned ByteArray Oop).
  
  	dataLength := interpreterProxy byteSizeOf: data cPtrAsOop.
  	(interpreterProxy isIntegerObject: format)
  		ifTrue:
  			[self
  				sqPasteboardPutItemFlavor: clipboard asVoidPointer
  				data: data length: dataLength
  				formatType: (interpreterProxy integerValueOf: format)]
  		ifFalse:
  			[(interpreterProxy isBytes: format)
  				ifTrue:
  					[self
  						sqPasteboardPutItemFlavor: clipboard asVoidPointer
  						data: data length: dataLength
  						formatType: (interpreterProxy firstIndexableField: format)
  						formatLength: (interpreterProxy byteSizeOf: format)]
  				ifFalse:
  					[interpreterProxy primitiveFailFor: PrimErrBadArgument]]!

Item was changed:
  ----- Method: ClipboardExtendedPlugin>>ioGetClipboardFormat:formatNumber: (in category 'io') -----
+ ioGetClipboardFormat: clipboard formatNumber: formatNumber
- ioGetClipboardFormat: clipboard formatNumber: formatNumber 
  	<var: #clipboardAddress type: #'usqIntptr_t'>
  	self primitive: 'ioGetClipboardFormat' parameters: #(Unsigned SmallInteger).
  	^(self sqPasteboardGetItemCount: clipboard asVoidPointer) > 0
  		ifTrue: [self sqPasteboardCopyItemFlavors: clipboard asVoidPointer itemNumber: formatNumber]
  		ifFalse: [interpreterProxy nilObject]!