[squeak-dev] FFI: FFI-Tools-mt.38.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 17 10:29:49 UTC 2021


Marcel Taeumel uploaded a new version of FFI-Tools to project FFI:
http://source.squeak.org/FFI/FFI-Tools-mt.38.mcz

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

Name: FFI-Tools-mt.38
Author: mt
Time: 17 August 2021, 12:29:49.891505 pm
UUID: e69d0fbb-3d6a-1744-afe9-3ec385e7f45b
Ancestors: FFI-Tools-mt.37

Complements FFI-Kernel-mt.208

=============== Diff against FFI-Tools-mt.37 ===============

Item was changed:
  ----- Method: ExternalType>>explorerContents (in category '*FFI-Tools') -----
  explorerContents
  
  	| basicExplorerFields |
  	basicExplorerFields := super explorerContents.
  	basicExplorerFields do: [:explorerField |
  		explorerField itemName = 'compiledSpec' ifTrue: [
  			explorerField changeClassTo: CompiledSpecWrapper]].
  	
  	(self isTypeAlias or: [self isTypeAliasReferenced])
  		ifTrue: [
  			basicExplorerFields := 
  				{ObjectExplorerWrapper
  					with: self originalType
  					name: '~>'
+ 					model: self}, basicExplorerFields].
- 					model: self}, basicExplorerFields]
- 		ifFalse: [self isAtomic ifTrue: [
- 			basicExplorerFields := basicExplorerFields,
- 				{ObjectExplorerWrapper
- 					with: (AtomicSends at: self atomicType + 1) first
- 					name: '_reader'
- 					model: self.
- 				ObjectExplorerWrapper
- 					with: (AtomicSends at: self atomicType + 1) second
- 					name: '_writer'
- 					model: self}]].
  
  	^ basicExplorerFields!

Item was changed:
  ----- Method: ExternalType>>printAtomicType:on: (in category '*FFI-Tools-printing') -----
  printAtomicType: spec on: aStream
  
+ 	| atomicType |
+ 	atomicType := ExternalAtomicType code: ((spec bitAnd: FFIAtomicTypeMask) bitShift: FFIAtomicTypeShift negated).
+ 	
- 	| atomicTypeName atomicType |
- 	atomicTypeName := AtomicTypeNames at: ((spec bitAnd: FFIAtomicTypeMask) bitShift: FFIAtomicTypeShift negated).
- 	atomicType := AtomicTypes at: atomicTypeName.
  	(spec anyMask: FFIFlagPointer)
  		ifTrue: [atomicType := atomicType asPointerType].
  
  	aStream nextPutAll: (ExternalPoolReadWriter cTypeNameFor: atomicType).
  	atomicType isPointerType
  		ifFalse: [aStream space].!



More information about the Squeak-dev mailing list