major changes to FFMPEG Headers so they now support linux.

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

1 files changed, 12 insertions, 17 deletions

diff --git a/Game/Code/lib/ffmpeg/rational.pas b/Game/Code/lib/ffmpeg/rational.pas
index 40d1f093..bd2cc94f 100644
--- a/Game/Code/lib/ffmpeg/rational.pas
+++ b/Game/Code/lib/ffmpeg/rational.pas
@@ -16,23 +16,20 @@
  * License along with this library; if not, write to the Free Software
  * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
  *)
-unit rational;
+(* This is a part of Pascal porting of ffmpeg.  Originally by Victor Zinetz for Delphi and Free Pascal on Windows.
+For Mac OS X, some modifications were made by The Creative CAT, denoted as CAT
+in the source codes *)
 
-interface
+unit rational;
+{$MODE DELPHI}  (* CAT *)
+{$PACKENUM 4}    (* every enum type variables uses 4 bytes, CAT *)
+{$PACKRECORDS C}    (* GCC compatible, Record Packing, CAT *)
 
-{$IFDEF win32}
-uses
-  windows;
-{$endif}
+interface		(* unit windows is deleted by CAT *)
 
 const
-
-  {$IFDEF win32}
-    av__util = 'avutil-49.dll';
-  {$ELSE}
-    av__util = 'libavutil.so';  // .0d
-  {$ENDIF}
-
+(* version numbers are changed by The Creative CAT *)
+  av__util = 'libavutil.49';
 
 type
 
@@ -82,10 +79,8 @@ var
 begin
   tmp := a.num * b.den - b.num * a.den;
 
-  if tmp = 0 then
-    Result := (tmp shr 63) or 1
-  else
-    Result := 0;
+  if tmp <> 0 then Result := (tmp shr 63) or 1 (* fixed by CAT *)
+              else Result := 0
 end;
 
 function av_q2d(a: TAVRational): double;