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

* 64-bit I/O calls

Browse Source 
git-svn-id: trunk@3941 -
This commit is contained in:
Tomas Hajny 2006-06-25 15:10:14 +00:00
parent 61884ad5e0
commit 67bba60578
1 changed files with 0 additions and 56 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
rtl/os2/sysfile.inc
View File

@ -80,7 +80,6 @@ begin
{$endif}
end;
{$IFDEF FPC_FS64}
function Do_FilePos (Handle: THandle): int64;
var
PosActual: int64;
@ -127,53 +126,6 @@ begin
InOutRes := DosSetFileSizeL (Handle, Pos);
Do_SeekEnd (Handle);
end;
{$ELSE FPC_FS64}
function do_filepos(handle:thandle): longint;
var
PosActual: cardinal;
begin
InOutRes:=DosSetFilePtr(Handle, 0, 1, PosActual);
do_filepos:=longint (PosActual);
{$ifdef IODEBUG}
writeln('do_filepos: handle=', Handle, ', actual_pos=', PosActual, ', InOutRes=', InOutRes);
{$endif}
end;
procedure do_seek(handle:thandle;pos:longint);
var
PosActual: cardinal;
begin
InOutRes:=DosSetFilePtr(Handle, Pos, 0 {ZeroBased}, PosActual);
{$ifdef IODEBUG}
writeln('do_seek: handle=', Handle, ', pos=', pos, ', actual_pos=', PosActual, ', InOutRes=', InOutRes);
{$endif}
end;
function do_seekend(handle:thandle):longint;
var
PosActual: cardinal;
begin
InOutRes:=DosSetFilePtr(Handle, 0, 2 {EndBased}, PosActual);
do_seekend:=longint (PosActual);
{$ifdef IODEBUG}
writeln('do_seekend: handle=', Handle, ', actual_pos=', PosActual, ', InOutRes=', InOutRes);
{$endif}
end;
function do_filesize(handle:thandle):longint;
var aktfilepos: cardinal;
begin
aktfilepos:=do_filepos(handle);
do_filesize:=do_seekend(handle);
do_seek(handle,aktfilepos);
end;
procedure do_truncate(handle:thandle;pos:longint);
begin
InOutRes:=DosSetFileSize(Handle, Pos);
do_seekend(handle);
end;
{$ENDIF FPC_FS64}
const
@ -269,20 +221,12 @@ begin
Attrib:=32 {faArchive};
{$IFDEF FPC_FS64}
InOutRes:=DosOpenL(p, FileRec(F).Handle, Action, 0, Attrib, OpenFlags, FM, nil);
{$ELSE FPC_FS64}
InOutRes:=DosOpen(p, FileRec(F).Handle, Action, 0, Attrib, OpenFlags, FM, nil);
{$ENDIF FPC_FS64}
// If too many open files try to set more file handles and open again
if (InOutRes = 4) then
if Increase_File_Handle_Count then
{$IFDEF FPC_FS64}
InOutRes:=DosOpenL(p, FileRec(F).Handle, Action, 0, Attrib, OpenFlags, FM, nil);
{$ELSE FPC_FS64}
InOutRes:=DosOpen(p, FileRec(F).Handle, Action, 0, Attrib, OpenFlags, FM, nil);
{$ENDIF FPC_FS64}
If InOutRes<>0 then FileRec(F).Handle:=UnusedHandle;