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

Amiga: fixed RawByteString related typos in sysutils

Browse Source 
git-svn-id: trunk@27053 -
This commit is contained in:
Károly Balogh 2014-03-09 16:50:44 +00:00
parent 19a39cde4a
commit ad1cc67eb2
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/amiga/sysutils.pp
View File

@ -63,7 +63,7 @@ uses dos,sysconst;
{ * 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): shortstring; 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: LongInt); external name 'ADDTOLIST';
function RemoveFromList(var l: Pointer; h: LongInt): boolean; external name 'REMOVEFROMLIST'; function RemoveFromList(var l: Pointer; h: LongInt): boolean; external name 'REMOVEFROMLIST';
function CheckInList(var l: Pointer; h: LongInt): pointer; external name 'CHECKINLIST'; function CheckInList(var l: Pointer; h: LongInt): pointer; external name 'CHECKINLIST';
@ -470,7 +470,7 @@ Begin
DiskSize := dos.DiskSize(Drive); DiskSize := dos.DiskSize(Drive);
End; End;
function DirectoryExists(const Directory: RawBytetring): Boolean; function DirectoryExists(const Directory: RawByteString): Boolean;
var var
tmpStr : String; tmpStr : String;
tmpLock: LongInt; tmpLock: LongInt;