Browse Source

* 1.0.x fix

peter 20 years ago
parent
commit
be53661900
1 changed files with 6 additions and 1 deletions
  1. 6 1
      rtl/objpas/classes/streams.inc

+ 6 - 1
rtl/objpas/classes/streams.inc

@@ -513,11 +513,13 @@ begin
   FSize:=ASize;
   FSize:=ASize;
 end;
 end;
 
 
+{$ifdef seek64bit}
 function TCustomMemoryStream.GetSize: Int64;
 function TCustomMemoryStream.GetSize: Int64;
 
 
 begin
 begin
   Result:=FSize;
   Result:=FSize;
 end;
 end;
+{$endif seek64bit}
 
 
 
 
 
 
@@ -809,7 +811,10 @@ end;
 
 
 {
 {
   $Log$
   $Log$
-  Revision 1.6  2005-01-19 19:57:57  michael
+  Revision 1.7  2005-01-20 16:37:57  peter
+    * 1.0.x fix
+
+  Revision 1.6  2005/01/19 19:57:57  michael
   + CustomMemoryStream.getsize overridden
   + CustomMemoryStream.getsize overridden
 
 
   Revision 1.5  2005/01/19 09:09:50  michael
   Revision 1.5  2005/01/19 09:09:50  michael