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

AROS: 64-bit filehandle compatibility/consistency fixes for ASYS_FileList related routines

Browse Source
This commit is contained in:
magorium 2022-03-27 07:10:32 +02:00 committed by Charlie Balogh
parent 8512d7ac8f
commit ff576fad0f
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/amicommon/sysutils.pp
View File

@ -88,9 +88,9 @@ uses
{ * Followings are implemented in the system unit! * } { * Followings are implemented in the system unit! * }
function PathConv(path: shortstring): shortstring; external name 'PATHCONV'; function PathConv(path: shortstring): shortstring; external name 'PATHCONV';
function PathConv(path: RawByteString): RawByteString; external name 'PATHCONVRBS'; function PathConv(path: RawByteString): RawByteString; external name 'PATHCONVRBS';
procedure AddToList(var l: Pointer; h: LongInt); external name 'ADDTOLIST'; procedure AddToList(var l: Pointer; h: THandle); external name 'ADDTOLIST';
function RemoveFromList(var l: Pointer; h: LongInt): boolean; external name 'REMOVEFROMLIST'; function RemoveFromList(var l: Pointer; h: THandle): boolean; external name 'REMOVEFROMLIST';
function CheckInList(var l: Pointer; h: LongInt): pointer; external name 'CHECKINLIST'; function CheckInList(var l: Pointer; h: THandle): pointer; external name 'CHECKINLIST';
var var
ASYS_FileList: Pointer; external name 'ASYS_FILELIST'; ASYS_FileList: Pointer; external name 'ASYS_FILELIST';
@ -176,7 +176,7 @@ end;
function FileOpen(const FileName: rawbytestring; Mode: Integer): THandle; function FileOpen(const FileName: rawbytestring; Mode: Integer): THandle;
var var
SystemFileName: RawByteString; SystemFileName: RawByteString;
dosResult: LongInt; dosResult: THandle;
begin begin
SystemFileName:=PathConv(ToSingleByteFileSystemEncodedFileName(FileName)); SystemFileName:=PathConv(ToSingleByteFileSystemEncodedFileName(FileName));
{$WARNING FIX ME! To do: FileOpen Access Modes} {$WARNING FIX ME! To do: FileOpen Access Modes}