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

git-svn-id: trunk@29381 -

rtl/amicommon/sysfile.inc

@@ -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;

rtl/aros/i386/doslibf.inc

@@ -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;