X-Git-Url: http://deadsoftware.ru/gitweb?p=d2df-sdl.git;a=blobdiff_plain;f=src%2Flib%2Fvampimg%2FJpegLib%2Fimjmorecfg.pas;h=fddf3f5b8a399a1445ea804e932caab5de8da43e;hp=316a9a7a00606e3714d43fc8b73c13eb4b3cadbd;hb=48fffe15692e9dcd2bdc2ed64f6e998af13211cf;hpb=ecfa6c6b626717711a8ae93cc455f69f0048498a

diff --git a/src/lib/vampimg/JpegLib/imjmorecfg.pas b/src/lib/vampimg/JpegLib/imjmorecfg.pas
index 316a9a7..fddf3f5 100644
--- a/src/lib/vampimg/JpegLib/imjmorecfg.pas
+++ b/src/lib/vampimg/JpegLib/imjmorecfg.pas
@@ -10,40 +10,13 @@ interface
 
 {$I imjconfig.inc}
 
-{$IFDEF FPC}  { Free Pascal Compiler }
-    type
-      int = longint;
-      uInt = Cardinal; { unsigned int }
-      short = Integer;
-      ushort = Word;
-      long = longint;
-{$ELSE}
-{$IFDEF WIN32}
-  { Delphi 2.0 }
-  type
-    int = Integer;
-    uInt = Cardinal;
-    short = SmallInt;
-    ushort = Word;
-    long = longint;
-  {$ELSE}
-    {$IFDEF VIRTUALPASCAL}
-    type
-      int = longint;
-      uInt = longint; { unsigned int }
-      short = system.Integer;
-      ushort = system.Word;
-      long = longint;
-    {$ELSE}
-    type
-      int = Integer;
-      uInt = Word; { unsigned int }
-      short = Integer;
-      ushort = Word;
-      long = longint;
-    {$ENDIF}
-{$ENDIF}
-{$ENDIF}
+type
+  int = Integer;
+  uInt = Cardinal;
+  short = SmallInt;
+  ushort = Word;
+  long = LongInt;
+
 type
   voidp = pointer;
 
@@ -58,6 +31,7 @@ type
   JPEG standard, and the IJG code does not support anything else!
   We do not support run-time selection of data precision, sorry. }
 
+
 {$ifdef BITS_IN_JSAMPLE_IS_8}   { use 8 or 12 }
 const
   BITS_IN_JSAMPLE = 8;
@@ -67,8 +41,6 @@ const
 {$endif}
 
 
-
-
 { Maximum number of components (color channels) allowed in JPEG image.
   To meet the letter of the JPEG spec, set this to 255.  However, darn
   few applications need more than 4 channels (maybe 5 for CMYK + alpha
@@ -159,7 +131,7 @@ type
 { UINT8 must hold at least the values 0..255. }
 
 type
-  UINT8 = byte;
+  UINT8 = Byte;
 
 { UINT16 must hold at least the values 0..65535. }
 
@@ -167,11 +139,11 @@ type
 
 { INT16 must hold at least the values -32768..32767. }
 
-  INT16 = int;
+  INT16 = SmallInt;
 
 { INT32 must hold at least signed 32-bit values. }
 
-  INT32 = longint;
+  INT32 = LongInt;
 type
   INT32PTR = ^INT32;