Browse Source

* removed rtllite define

peter 24 years ago
parent
commit
22db4256ce
3 changed files with 12 additions and 18 deletions
  1. 4 5
      rtl/inc/generic.inc
  2. 4 5
      rtl/inc/sstrings.inc
  3. 4 8
      rtl/inc/system.inc

+ 4 - 5
rtl/inc/generic.inc

@@ -66,8 +66,6 @@ end;
 {$endif ndef FPC_SYSTEM_HAS_FILLCHAR}
 
 
-{$ifndef RTLLITE}
-
 {$ifndef FPC_SYSTEM_HAS_FILLBYTE}
 procedure FillByte (var x;count : longint;value : byte );
 begin
@@ -314,8 +312,6 @@ begin
 end;
 {$endif ndef FPC_SYSTEM_HAS_COMPARECHAR0}
 
-{$endif ndef RTLLITE}
-
 
 {****************************************************************************
                               Object Helpers
@@ -777,7 +773,10 @@ end;
 
 {
   $Log$
-  Revision 1.7  2001-03-05 17:10:40  jonas
+  Revision 1.8  2001-04-13 18:06:28  peter
+    * removed rtllite define
+
+  Revision 1.7  2001/03/05 17:10:40  jonas
     * changed typecast in FPC_STR_TO_CHARARRAY so that no temp ansistring is
       generated anymore (merged)
 

+ 4 - 5
rtl/inc/sstrings.inc

@@ -208,8 +208,6 @@ begin
 end;
 
 
-{$ifndef RTLLITE}
-
 function lowercase(c : char) : char;
 {$IFDEF IBM_CHAR_SET}
 var
@@ -270,8 +268,6 @@ begin
    end;
 end;
 
-{$endif RTLLITE}
-
 
 function space (b : byte): shortstring;
 begin
@@ -550,7 +546,10 @@ end;
 
 {
   $Log$
-  Revision 1.9  2001-03-03 12:38:53  jonas
+  Revision 1.10  2001-04-13 18:06:28  peter
+    * removed rtllite define
+
+  Revision 1.9  2001/03/03 12:38:53  jonas
     * made val for longints a bit faster
 
   Revision 1.8  2000/12/09 20:52:41  florian

+ 4 - 8
rtl/inc/system.inc

@@ -110,8 +110,6 @@ Procedure Rewrite(var f : TypedFile); [INTERNPROC: In_Rewrite_TypedFile];
                                Math Routines
 ****************************************************************************}
 
-{$ifndef RTLLITE}
-
 function Hi(b : byte): byte;
 begin
    Hi := b shr 4
@@ -152,7 +150,6 @@ Begin
   Swap:=(X and $ffffffff) shl 32 + (X shr 32);
 End;
 
-{$endif RTLLITE}
 
 { Include processor specific routines }
 {$I math.inc}
@@ -278,8 +275,6 @@ end;
                             Memory Management
 ****************************************************************************}
 
-{$ifndef RTLLITE}
-
 Function Ptr(sel,off : Longint) : farpointer;[internconst:in_const_ptr];
 Begin
   ptr:=farpointer((sel shl 4)+off);
@@ -300,8 +295,6 @@ Begin
   Sseg:=0;
 End;
 
-{$endif RTLLITE}
-
 
 {*****************************************************************************
                              Directory support.
@@ -643,7 +636,10 @@ end;
 
 {
   $Log$
-  Revision 1.11  2000-12-16 15:56:19  jonas
+  Revision 1.12  2001-04-13 18:06:28  peter
+    * removed rtllite define
+
+  Revision 1.11  2000/12/16 15:56:19  jonas
     - removed all ifdef cardinalmulfix code
 
   Revision 1.10  2000/11/13 14:47:46  jonas