- removed unused defines

rtl/go32v2/system.pp

@@ -928,11 +928,9 @@ begin
   syscopytodos(longint(p),strlen(p)+1);
   regs.realedx:=tb_offset;
   regs.realds:=tb_segment;
-{$ifndef RTLLITE}
   if LFNSupport then
    regs.realeax:=$7141
   else
-{$endif RTLLITE}
    regs.realeax:=$4100;
   regs.realesi:=0;
   regs.realecx:=0;
@@ -956,11 +954,9 @@ begin
   regs.realedx:=tb_offset + strlen(p2)+2;
   regs.realds:=tb_segment;
   regs.reales:=tb_segment;
-{$ifndef RTLLITE}
   if LFNSupport then
    regs.realeax:=$7156
   else
-{$endif RTLLITE}
    regs.realeax:=$5600;
   regs.realecx:=$ff;            { attribute problem here ! }
   sysrealintr($21,regs);
@@ -1119,7 +1115,6 @@ begin
    GetInOutRes(lo(regs.realeax));
 end;
 
-{$ifndef RTLLITE}
 const
   FileHandleCount : longint = 20;
 
@@ -1139,7 +1134,6 @@ begin
   else
     Increase_file_handle_count:=true;
 end;
-{$endif not RTLLITE}
 
 procedure do_open(var f;p:pchar;flags:longint);
 {
@@ -1197,11 +1191,9 @@ begin
    end;
 { real dos call }
   syscopytodos(longint(p),strlen(p)+1);
-{$ifndef RTLLITE}
   if LFNSupport then
    regs.realeax:=$716c
   else
-{$endif RTLLITE}
    regs.realeax:=$6c00;
   regs.realedx:=action;
   regs.realds:=tb_segment;
@@ -1209,7 +1201,6 @@ begin
   regs.realebx:=$2000+(flags and $ff);
   regs.realecx:=$20;
   sysrealintr($21,regs);
-{$ifndef RTLLITE}
   if (regs.realflags and carryflag) <> 0 then
     if lo(regs.realeax)=4 then
       if Increase_file_handle_count then
@@ -1226,7 +1217,6 @@ begin
           regs.realecx:=$20;
           sysrealintr($21,regs);
         end;
-{$endif RTLLITE}
   if (regs.realflags and carryflag) <> 0 then
     begin
       GetInOutRes(lo(regs.realeax));
@@ -1235,11 +1225,9 @@ begin
   else
     begin
       filerec(f).handle:=lo(regs.realeax);
-{$ifndef RTLLITE}
       { for systems that have more then 20 by default ! }
       if lo(regs.realeax)>FileHandleCount then
         FileHandleCount:=lo(regs.realeax);
-{$endif RTLLITE}
     end;
   if lo(regs.realeax)<max_files then
     begin
@@ -1329,11 +1317,9 @@ begin
   syscopytodos(longint(@buffer),length(s)+1);
   regs.realedx:=tb_offset;
   regs.realds:=tb_segment;
-{$ifndef RTLLITE}
   if LFNSupport then
    regs.realeax:=$7100+func
   else
-{$endif RTLLITE}
    regs.realeax:=func shl 8;
   sysrealintr($21,regs);
   if (regs.realflags and carryflag) <> 0 then
@@ -1397,11 +1383,9 @@ begin
   regs.realedx:=drivenr;
   regs.realesi:=tb_offset;
   regs.realds:=tb_segment;
-{$ifndef RTLLITE}
   if LFNSupport then
    regs.realeax:=$7147
   else
-{$endif RTLLITE}
    regs.realeax:=$4700;
   sysrealintr($21,regs);
   if (regs.realflags and carryflag) <> 0 then
@@ -1445,7 +1429,6 @@ end;
                          SystemUnit Initialization
 *****************************************************************************}
 
-{$ifndef RTLLITE}
 function CheckLFN:boolean;
 var
   regs     : TRealRegs;
@@ -1466,18 +1449,15 @@ begin
 { If carryflag=0 and LFN API bit in ebx is set then use Long file names }
   CheckLFN:=(regs.realflags and carryflag=0) and (regs.realebx and $4000=$4000);
 end;
-{$endif RTLLITE}
 
 {$ifdef MT}
 {$I thread.inc}
 {$endif MT}
 
-{$ifndef RTLLITE}
 {$ifdef  EXCEPTIONS_IN_SYSTEM}
 {$define IN_SYSTEM}
 {$i dpmiexcp.pp}
 {$endif  EXCEPTIONS_IN_SYSTEM}
-{$endif RTLLITE}
 
 var
   temp_int : tseginfo;
@@ -1520,16 +1500,17 @@ Begin
    FileNameCaseSensitive:=true;
 { Reset IO Error }
   InOutRes:=0;
-{$ifndef RTLLITE}
 {$ifdef  EXCEPTIONS_IN_SYSTEM}
   InitDPMIExcp;
   InstallDefaultHandlers;
 {$endif  EXCEPTIONS_IN_SYSTEM}
-{$endif RTLLITE}
 End.
 {
   $Log$
-  Revision 1.20  2002-09-07 16:01:19  peter
+  Revision 1.21  2002-09-07 21:32:08  carl
+    - removed unused defines
+
+  Revision 1.20  2002/09/07 16:01:19  peter
     * old logs removed and tabs fixed
 
   Revision 1.19  2002/07/01 16:29:05  peter

rtl/i386/i386.inc

@@ -1071,8 +1071,8 @@ begin
 end;
 
 
-{$define FPC_SYSTEM_HAS_INT_STR_CARDINAL}
-procedure int_str(c : cardinal;var s : string);
+{$define FPC_SYSTEM_HAS_INT_STR_LONGWORD}
+procedure int_str(c : longword;var s : string);
 var
   buffer : array[0..14] of byte;
 begin
@@ -1108,16 +1108,8 @@ end;
 
 {$ifndef NOBOUNDCHECK}
 
-{$define FPC_SYSTEM_HAS_FPC_BOUNDCHECK}
-
-{$ifdef SYSTEMDEBUG}
-{ we want the stack for debugging !! PM }
-procedure int_boundcheck;[public,alias: 'FPC_BOUNDCHECK'];
-begin
-{$else not SYSTEMDEBUG}
 procedure int_boundcheck;assembler;[public,alias: 'FPC_BOUNDCHECK'];
 var dummy_to_force_stackframe_generation_for_trace: Longint;
-{$endif not SYSTEMDEBUG}
 {
   called with:
     %ecx - value
@@ -1134,9 +1126,6 @@ asm
         call    HandleErrorFrame
 .Lbc_ok:
 end;
-{$ifdef SYSTEMDEBUG}
-end;
-{$endif def SYSTEMDEBUG}
 
 {$endif NOBOUNDCHECK}
 
@@ -1181,7 +1170,10 @@ procedure inclocked(var l : longint);assembler;
 
 {
   $Log$
-  Revision 1.29  2002-09-07 16:01:19  peter
+  Revision 1.30  2002-09-07 21:33:35  carl
+    - removed unused defines
+
+  Revision 1.29  2002/09/07 16:01:19  peter
     * old logs removed and tabs fixed
 
   Revision 1.28  2002/09/03 15:43:36  peter

rtl/i386/mmx.pp

@@ -22,9 +22,6 @@ unit mmx;
        tmmxbyte = array[0..7] of byte;
        tmmxword = array[0..3] of word;
        tmmxinteger = array[0..3] of integer;
-{$ifdef HASFIXED}
-       tmmxfixed = array[0..3] of fixed16;
-{$endif HASFIXED}
        tmmxlongint = array[0..1] of longint;
        tmmxcardinal = array[0..1] of cardinal;
        { for the AMD 3D }
@@ -252,7 +249,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.6  2002-09-07 16:01:19  peter
+  Revision 1.7  2002-09-07 21:33:05  carl
+    - removed unused defines
+
+  Revision 1.6  2002/09/07 16:01:19  peter
     * old logs removed and tabs fixed
 
   Revision 1.5  2002/03/16 12:01:24  peter