Browse Source

* fixed wrong commit

florian 21 years ago
parent
commit
fe8e9245f4
1 changed files with 7 additions and 5 deletions
  1. 7 5
      rtl/inc/systemh.inc

+ 7 - 5
rtl/inc/systemh.inc

@@ -166,8 +166,6 @@ Type
   {$define FPC_INCLUDE_SOFTWARE_SHIFT_INT64}
   {$define FPC_INCLUDE_SOFTWARE_INT64_TO_DOUBLE}
 
-  ValSInt = Longint;
-  ValUInt = Cardinal;
   ValReal = Real;
 
   { map comp to int64, but this doesn't mean we compile the comp support in! }
@@ -556,7 +554,7 @@ Type
   TWideStringManager = record
     Wide2AnsiMove : TWide2AnsiMove;
     Ansi2WideMove : TAnsi2WideMove;
-
+{
     UpperUTF8 : procedure(p:PUTF8String);
     UpperUCS2 : procedure(p:PUCS2Char);
     UpperUCS4 : procedure(p:PUCS4Char);
@@ -567,6 +565,7 @@ Type
     CompUTF8 : function(p1,p2:PUTF8String) : shortint;
     CompUCS2 : function(p1,p2:PUCS2Char) : shortint;
     CompUCS4 : function(p1,p2:PUC42Char) : shortint;
+}
   end;
 
 Procedure GetWideStringManager (Var Manager : TWideStringManager);
@@ -745,7 +744,10 @@ const
 
 {
   $Log$
-  Revision 1.94  2004-06-11 13:45:33  florian
+  Revision 1.95  2004-06-11 19:21:53  florian
+    * fixed wrong commit
+
+  Revision 1.94  2004/06/11 13:45:33  florian
     * fixed arm system unit compilation
 
   Revision 1.93  2004/05/30 16:51:38  peter
@@ -935,4 +937,4 @@ const
       instead of direct comparisons of low/high values of orddefs because
       qword is a special case
 
-}
+}