FFI: FFI-Kernel-mt.158.mcz

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

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

Name: FFI-Kernel-mt.158
Author: mt
Time: 17 May 2021, 12:45:36.337555 pm
UUID: e43bcf87-27f2-f04b-82e6-f350dee91c3a
Ancestors: FFI-Kernel-mt.157

Further fixes for code loading. Sorry for the noise :-(

=============== Diff against FFI-Kernel-mt.157 ===============

Item was changed:
  ----- Method: ExternalStructure class>>doneCompiling (in category 'class management') -----
  doneCompiling
  "Base class changed to something that is an external structure now."
 
+ [self compileFields]
+ ifError: [ "Ignore unfinished field specs" ].
+ self externalType isUnknownType
+ ifTrue: [self externalType becomeKnownTypeSafely].!
- [self compileFields] ifError: [ "Ignore unfinished field specs" ].
- self externalType isUnknownType ifTrue: [self externalType becomeKnownType].!

Item was changed:
  ----- Method: ExternalStructureType class>>newTypeForStructureClass: (in category 'instance creation') -----
  newTypeForStructureClass: anExternalStructureClass
 
  | type pointerType referentClass |
  referentClass := anExternalStructureClass.
 
  self
  assert: [referentClass includesBehavior: ExternalStructure]
  description: 'Wrong base class for structure'.
 
  type := self newTypeForUnknownNamed: referentClass name.
  pointerType := type asPointerType.
 
  referentClass compiledSpec
  ifNil: [ "First time. The referent class' fields are probably just compiled for the first time."
  type setReferentClass: referentClass.
  pointerType setReferentClass: referentClass]
  ifNotNil: [
  type newReferentClass: referentClass.
  pointerType newReferentClass: referentClass].
 
+ ^ type becomeKnownTypeSafely!
- ^ [type becomeKnownType] ifError: [
- self assert: [type isUnknownType].
- type "still unkown"]!

Item was added:
+ ----- Method: ExternalUnknownType>>becomeKnownTypeSafely (in category 'construction') -----
+ becomeKnownTypeSafely
+ "Give me some purpose. :-)"
+
+ ^ [self becomeKnownType]
+ on: Error
+ do: [
+ self assert: [self isUnkownType].
+ self].!