changes to make 3rd party libraries compile / work

in lazarus.

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

1 files changed, 11 insertions, 2 deletions

diff --git a/Game/Code/lib/ffmpeg/avformat.pas b/Game/Code/lib/ffmpeg/avformat.pas
index 0aa98905..6d13bcdf 100644
--- a/Game/Code/lib/ffmpeg/avformat.pas
+++ b/Game/Code/lib/ffmpeg/avformat.pas
@@ -19,6 +19,10 @@ unit avformat;
 

 interface

 

+{$IFDEF FPC}

+  {$MODE Delphi}

+{$ENDIF}

+

 uses

   windows, avcodec, avio, rational, avutil;

 

@@ -554,6 +558,7 @@ const
 const

   FFM_PACKET_SIZE = 4096;

 

+  {$IFNDEF FPC}

   function ffm_read_write_index (fd: integer): int64;

     cdecl; external av__format;

 

@@ -562,20 +567,23 @@ const
 

   procedure ffm_set_write_index (s: PAVFormatContext; pos: int64; file_size: int64);

     cdecl; external av__format;

-

+  {$ENDIF}

+  

   function find_info_tag (arg: pchar; arg_size: integer; tag1: pchar; info: pchar): integer;

     cdecl; external av__format;

 

+  {$IFNDEF FPC}

   function get_frame_filename(buf: pchar; buf_size: integer;

                        path: pchar; number: integer): integer;

     cdecl; external av__format;

+

   function filename_number_test (filename: pchar): integer;

     cdecl; external av__format;

 

-

 (* grab specific *)

   function video_grab_init (): integer;

     cdecl; external av__format;

+

   function audio_init (): integer;

     cdecl; external av__format;

 

@@ -584,6 +592,7 @@ const
     cdecl; external av__format;

   function dc1394_init (): integer;

     cdecl; external av__format;

+  {$ENDIF}

 

   function strstart(str: pchar; val: pchar; ptr: PPointer): integer;

     cdecl; external av__format;