Browse Source

* added a calling convention for libgd go32v2, but no idea if this is the right solution. I simply cant test it.

git-svn-id: trunk@12543 -
ivost 16 years ago
parent
commit
f05d9eb6d8
1 changed files with 6 additions and 0 deletions
  1. 6 0
      packages/libgd/src/libgd.pas

+ 6 - 0
packages/libgd/src/libgd.pas

@@ -15,6 +15,10 @@ interface
 uses
 uses
   ctypes;
   ctypes;
 
 
+//{$if defined(FPC_HAS_FEATURE_DYNLIBS) and (not defined(go32v2))}
+//  {$define DYNLINK}
+//{$endif}
+
 {$IFDEF WINDOWS}
 {$IFDEF WINDOWS}
   {$DEFINE DYNLINK}
   {$DEFINE DYNLINK}
 {$ENDIF}
 {$ENDIF}
@@ -42,6 +46,8 @@ const
   {$DEFINE GDCALL := stdcall}
   {$DEFINE GDCALL := stdcall}
 {$ELSEIF Defined(UNIX)}
 {$ELSEIF Defined(UNIX)}
   {$DEFINE GDCALL := cdecl}
   {$DEFINE GDCALL := cdecl}
+{$ELSEIF Defined(GO32V2)}
+  {$DEFINE GDCALL := oldfpccall}
 {$IFEND}
 {$IFEND}
 
 
 type
 type