paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-25 07:49:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix compilation under FPC version 1.0.x

Browse Source
This commit is contained in:
carl 2001-11-24 20:41:40 +00:00
parent dc4fd66a95
commit b244a94eb3
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
fcl/inc/streams.inc
View File

@ -71,6 +71,12 @@
TStreamSeek : TSeek64; TStreamSeek : TSeek64;
CurrClass : TClass; CurrClass : TClass;
begin begin
{$ifdef ver1_0}
if (Offset<Low(longint)) or
(Offset>High(longint)) then
raise ERangeError.Create(SRangeError);
raise EStreamError.CreateFmt(SSeekNotImplemented,[ClassName]);
{$else}
// Redirect calls to 64bit Seek, but we can't call the 64bit Seek // Redirect calls to 64bit Seek, but we can't call the 64bit Seek
// from TStream, because then we end up in an infinite loop // from TStream, because then we end up in an infinite loop
CurrSeek:=nil; CurrSeek:=nil;
@ -89,6 +95,7 @@
Result:=Seek(Int64(offset),TSeekOrigin(origin)) Result:=Seek(Int64(offset),TSeekOrigin(origin))
else else
raise EStreamError.CreateFmt(SSeekNotImplemented,[ClassName]); raise EStreamError.CreateFmt(SSeekNotImplemented,[ClassName]);
{$endif}
end; end;
function TStream.Seek(Offset: Int64; Origin: TSeekorigin): Int64; function TStream.Seek(Offset: Int64; Origin: TSeekorigin): Int64;
@ -733,7 +740,10 @@ end;
{ {
$Log$ $Log$
Revision 1.4 2001-10-28 17:16:44 peter Revision 1.5 2001-11-24 20:41:40 carl
* fix compilation under FPC version 1.0.x
Revision 1.4 2001/10/28 17:16:44 peter
* int64 file functions added * int64 file functions added
Revision 1.3 2001/03/08 19:38:32 michael Revision 1.3 2001/03/08 19:38:32 michael