@@ -281,8 +281,10 @@ Type TIParser
ApplyFunctionAttributes(class, DECL_EXTERN)
parsed = True
Case Asc("W")
- class.attrs :| DECL_API_STDCALL
- ApplyFunctionAttributes(class, DECL_API_STDCALL)
+ If opt_platform = "win32" Then
+ class.attrs :| DECL_API_STDCALL
+ ApplyFunctionAttributes(class, DECL_API_STDCALL)
+ End If
Case Asc("I")
class.attrs :| CLASS_INTERFACE
@@ -2959,7 +2959,12 @@ End Rem
Case "c", "blitz", "macos", "linux", "nx"
Return DECL_API_CDECL
Case "win32"
- Return DECL_API_STDCALL
+ ' only if we are compiling for win32
+ If opt_platform = "win32"
+ Return DECL_API_STDCALL
+ Else
+ Return DECL_API_CDECL
End Select
Err "Unrecognized calling convention '" + api+ "'"