paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-26 05:11:37 +01:00
Code Issues Packages Projects Releases Wiki Activity

sinclairql: add right spelling for iof_mkdr, add the QDOS equivalent alias

Browse Source 
git-svn-id: trunk@49192 -
This commit is contained in:
Károly Balogh 2021-04-12 13:23:03 +00:00
parent 8128736233
commit 9e7a8f44aa
4 changed files with 6 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/sinclairql/qdosfuncs.inc
View File

@ -40,6 +40,7 @@ function fs_headr(chan: Tchanid; buf: pointer; buf_size: word): longint; externa
function fs_rename_qlstr(chan: Tchanid; new_name_as_qlstr: pointer): longint; external name '_fs_rename_qlstr';
function fs_rename(chan: Tchanid; new_name: pchar): longint; external name '_fs_rename';
function fs_truncate(chan: Tchanid): longint; external name '_fs_truncate';
function fs_mkdir(chan: Tchanid): longint; external name '_iof_mkdr'; { SMS }
function sd_wdef(chan: Tchanid; timeout: Ttimeout; border_colour: byte; border_width: word; window: PQLRect): longint; external name '_sd_wdef';
function sd_clear(chan: Tchanid; timeout: Ttimeout): longint; external name '_sd_clear';

6
rtl/sinclairql/sms.inc
View File

@ -14,15 +14,15 @@
**********************************************************************}
const
_IOF_MKDIR = $4d;
_IOF_MKDR = $4d;
function iof_mkdir(chan: Tchanid): longint; assembler; nostackframe; public name '_iof_mkdir';
function iof_mkdr(chan: Tchanid): longint; assembler; nostackframe; public name '_iof_mkdr';
asm
move.l d3,-(sp)
move.l chan,a0
moveq.l #-1,d3
moveq.l #0,d1
moveq.l #_IOF_MKDIR,d0
moveq.l #_IOF_MKDR,d0
trap #3
move.l (sp)+,d3
end;

2
rtl/sinclairql/smsfuncs.inc
View File

@ -13,4 +13,4 @@
**********************************************************************}
function iof_mkdir(chan: Tchanid): longint; assembler; nostackframe; external name '_iof_mkdir';
function iof_mkdr(chan: Tchanid): longint; external name '_iof_mkdr';

2
rtl/sinclairql/sysdir.inc
View File

@ -34,7 +34,7 @@ begin
end;
{ Convert the opened file to a directory. }
errCode := iof_mkdir(chanId);
errCode := iof_mkdr(chanId);
{ Close the file/directory. No errors occur. }
io_close(chanId);