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

AROS: fixed the new do_filesize() code to build on AROS.

Browse Source 
git-svn-id: trunk@29381 -
This commit is contained in:
Károly Balogh 2015-01-04 01:55:49 +00:00
parent f2c7a3efbf
commit 3cdf2d0e53
2 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/amicommon/sysfile.inc
View File

@ -304,7 +304,7 @@ begin
{$IFDEF ASYS_FILESIZE_NO_DOUBLE_SEEK}
fib:=AllocDosObject(DOS_FIB,nil);
if fib <> nil then begin
if ExamineFH(handle, fib) then
if ExamineFH(BPTR(handle), fib) then
do_filesize:=fib^.fib_Size;
FreeDosObject(DOS_FIB,fib);
end;

2
rtl/aros/i386/doslibf.inc
View File

@ -35,6 +35,8 @@ procedure dosExit(ErrCode: longint); syscall AOS_DOSBase 24;
function SetProtection(const name: PChar; protect: longword): LongInt; syscall AOS_DOSBase 31;
function DateStamp(date: PDateStamp): PDateStamp; syscall AOS_DOSBase 32;
procedure Delay(ticks: LongWord); syscall AOS_DOSBase 33;
function AllocDosObject(Type_: LongWord; const Tags: PTagItem): Pointer; syscall AOS_DOSBase 38;
procedure FreeDosObject(Type_: LongWord; Ptr: Pointer); syscall AOS_DOSBase 39;
function SetFileDate(name: PChar; date: PDateStamp): LongBool; syscall AOS_DOSBase 66;
function NameFromLock(lock: longint; buffer: PChar; len: longint): LongBool; syscall AOS_DOSBase 67;
function SetFileSize(fh: longint; pos: longint; mode: longint): longint; syscall AOS_DOSBase 76;