#FEATURE by cg
authorClaus Gittinger <cg@exept.de>
Tue, 08 May 2018 19:58:06 +0200
changeset 4244 efcb1f318eca
parent 4243 d6a332f7aa7d
child 4245 33e113863601
#FEATURE by cg class: Parser::PrimitiveSpecParser changed: #pointerTypeMappingFor:inEnvironment:
Parser.st
--- a/Parser.st	Mon May 07 08:51:17 2018 +0200
+++ b/Parser.st	Tue May 08 19:58:06 2018 +0200
@@ -12555,6 +12555,9 @@
         (cls isSubclassOf:ExternalStructure) ifTrue:[
             ^ #pointer
         ].
+        (cls = ExternalStructure) ifTrue:[
+            ^ #pointer
+        ].
     ].
 
     (aTypeSymbol endsWith:'Pointer') ifTrue:[