|
@@ -3842,10 +3842,12 @@ End Rem
|
|
|
|
|
|
Next
|
|
Next
|
|
End Method
|
|
End Method
|
|
|
|
+
|
|
|
|
+ Method EmitExternClassProtoTypedef( classDecl:TClassDecl )
|
|
|
|
+ Emit "typedef struct " + classDecl.ident + " " + classDecl.ident + ";"
|
|
|
|
+ End Method
|
|
|
|
|
|
Method EmitExternClassProto( classDecl:TClassDecl )
|
|
Method EmitExternClassProto( classDecl:TClassDecl )
|
|
-
|
|
|
|
- Emit "typedef struct " + classDecl.ident + " " + classDecl.ident + ";"
|
|
|
|
|
|
|
|
' vtable
|
|
' vtable
|
|
Emit "struct " + classDecl.ident + "Vtbl {"
|
|
Emit "struct " + classDecl.ident + "Vtbl {"
|
|
@@ -6000,6 +6002,15 @@ End Rem
|
|
End If
|
|
End If
|
|
EndIf
|
|
EndIf
|
|
Next
|
|
Next
|
|
|
|
+
|
|
|
|
+ ' prototypes/header - typedefs
|
|
|
|
+ For Local cdecl:TClassDecl=EachIn app.Semanted()
|
|
|
|
+ If cdecl.declImported Continue
|
|
|
|
+
|
|
|
|
+ If Not cdecl.IsStruct() And cdecl.IsExtern() Then
|
|
|
|
+ EmitExternClassProtoTypedef(cdecl)
|
|
|
|
+ End If
|
|
|
|
+ Next
|
|
|
|
|
|
'prototypes/header!
|
|
'prototypes/header!
|
|
For Local decl:TDecl=EachIn app.Semanted()
|
|
For Local decl:TDecl=EachIn app.Semanted()
|