paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-01 18:39:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added 64 bit fileseek (currently only 32 bit supported)

Browse Source
This commit is contained in:
armin 2002-03-08 19:10:14 +00:00
parent 4a03070bcb
commit af552b4c35
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/netware/sysutils.pp
View File

@ -119,6 +119,13 @@ begin
end;
Function FileSeek (Handle : Longint; FOffset,Origin : Int64) : Int64;
begin
{$warning need to add 64bit call }
FileSeek:=FileSeek(Handle,Longint(FOffset),Longint(Origin));
end;
Procedure FileClose (Handle : Longint);
begin
@ -294,12 +301,12 @@ begin
RenameFile:=(_rename(pchar(OldName),pchar(NewName)) = 0);
end;
{ ad: 27 Feb 2002: now implemented globaly ??
Function FileSearch (Const Name, DirList : String) : String;
begin
FileSearch:=Dos.FSearch(Name,Dirlist);
end;
}
{****************************************************************************
Disk Functions
@ -480,7 +487,10 @@ end.
{
$Log$
Revision 1.4 2001-06-03 15:18:01 peter
Revision 1.5 2002-03-08 19:10:14 armin
* added 64 bit fileseek (currently only 32 bit supported)
Revision 1.4 2001/06/03 15:18:01 peter
* eoutofmemory and einvalidpointer fix
Revision 1.3 2001/04/16 18:39:50 florian