pngimage is NOT ( yet ) lazarus compatible

It might compile, however the object files are in borland obj format
to use this, it will need to be in GCC object file format format
Or we can use the lazarus / freepascal png unit

if we decide that pngimage IS required ( and we cant use the lazarus unit )
then we should investigate how this developer went with the port.
http://www.lazarus.freepascal.org/index.php?name=PNphpBB2&file=viewtopic&t=3206

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@388 b956fd51-792f-4845-bead-9b4dfca2ff2c

1 files changed, 22 insertions, 19 deletions

diff --git a/Game/Code/lib/PngImage/pngzlib.pas b/Game/Code/lib/PngImage/pngzlib.pas
index 12324f2c..3155946a 100644
--- a/Game/Code/lib/PngImage/pngzlib.pas
+++ b/Game/Code/lib/PngImage/pngzlib.pas
@@ -6,6 +6,10 @@
 

 unit pngzlib;

 

+{$IFDEF FPC}

+  {$MODE DELPHI}

+{$ENDIF}

+

 interface

 

 type

@@ -35,14 +39,12 @@ type
     reserved: Integer;    // reserved for future use

   end;

 

-function inflateInit_(var strm: TZStreamRec; version: PChar;

-  recsize: Integer): Integer; forward;

-function inflate(var strm: TZStreamRec; flush: Integer): Integer; forward;

-function inflateEnd(var strm: TZStreamRec): Integer; forward;

-function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar;

-  recsize: Integer): Integer; forward;

-function deflate(var strm: TZStreamRec; flush: Integer): Integer; forward;

-function deflateEnd(var strm: TZStreamRec): Integer; forward;

+function inflateInit_(var strm: TZStreamRec; version: PChar; recsize: Integer): Integer; // forward;

+function inflate(var strm: TZStreamRec; flush: Integer): Integer; //forward;

+function inflateEnd(var strm: TZStreamRec): Integer; //forward;

+function deflateInit_(var strm: TZStreamRec; level: Integer; version: PChar; recsize: Integer): Integer; //forward;

+function deflate(var strm: TZStreamRec; flush: Integer): Integer; //forward;

+function deflateEnd(var strm: TZStreamRec): Integer; //forward;

 

 const

   zlib_version = '1.1.4';

@@ -97,15 +99,17 @@ const
 

 implementation

 

-{$L obj\deflate.obj}

-{$L obj\trees.obj}

-{$L obj\inflate.obj}

-{$L obj\inftrees.obj}

-{$L obj\adler32.obj}

-{$L obj\infblock.obj}

-{$L obj\infcodes.obj}

-{$L obj\infutil.obj}

-{$L obj\inffast.obj}

+{$IFNDef FPC}

+  {$L obj\deflate.obj}

+  {$L obj\trees.obj}

+  {$L obj\inflate.obj}

+  {$L obj\inftrees.obj}

+  {$L obj\adler32.obj}

+  {$L obj\infblock.obj}

+  {$L obj\infcodes.obj}

+  {$L obj\infutil.obj}

+  {$L obj\inffast.obj}

+{$ENDIF}

 

 procedure _tr_init; external;

 procedure _tr_tally; external;

@@ -146,8 +150,7 @@ function deflate(var strm: TZStreamRec; flush: Integer): Integer; external;
 function deflateEnd(var strm: TZStreamRec): Integer; external;

 

 // inflate decompresses data

-function inflateInit_(var strm: TZStreamRec; version: PChar;

-  recsize: Integer): Integer; external;

+function inflateInit_(var strm: TZStreamRec; version: PChar; recsize: Integer): Integer; external;

 function inflate(var strm: TZStreamRec; flush: Integer): Integer; external;

 function inflateEnd(var strm: TZStreamRec): Integer; external;

 function inflateReset(var strm: TZStreamRec): Integer; external;