[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
|