diff options
| author | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-12 13:23:03 +0000 |
|---|---|---|
| committer | karoly <karoly@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2021-04-12 13:23:03 +0000 |
| commit | 20115f97d8d11f6775e9bb17ac25af0ebfb853e9 (patch) | |
| tree | 06f0018d7e6452cf50bac36a6f663072d00371b4 | |
| parent | 4f4f4019df9c18aae3ff4aa21547ab3850c59204 (diff) | |
| download | fpc-20115f97d8d11f6775e9bb17ac25af0ebfb853e9.tar.gz | |
sinclairql: add right spelling for iof_mkdr, add the QDOS equivalent alias
git-svn-id: https://svn.freepascal.org/svn/fpc/trunk@49192 3ad0048d-3df7-0310-abae-a5850022a9f2
| -rw-r--r-- | rtl/sinclairql/qdosfuncs.inc | 1 | ||||
| -rw-r--r-- | rtl/sinclairql/sms.inc | 6 | ||||
| -rw-r--r-- | rtl/sinclairql/smsfuncs.inc | 2 | ||||
| -rw-r--r-- | rtl/sinclairql/sysdir.inc | 2 |
4 files changed, 6 insertions, 5 deletions
diff --git a/rtl/sinclairql/qdosfuncs.inc b/rtl/sinclairql/qdosfuncs.inc index 4c73a7a131..07d3b01a2c 100644 --- a/rtl/sinclairql/qdosfuncs.inc +++ b/rtl/sinclairql/qdosfuncs.inc @@ -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'; diff --git a/rtl/sinclairql/sms.inc b/rtl/sinclairql/sms.inc index b16a13bb69..d772f87cc0 100644 --- a/rtl/sinclairql/sms.inc +++ b/rtl/sinclairql/sms.inc @@ -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; diff --git a/rtl/sinclairql/smsfuncs.inc b/rtl/sinclairql/smsfuncs.inc index ff0bfd2f57..024a6ba3fe 100644 --- a/rtl/sinclairql/smsfuncs.inc +++ b/rtl/sinclairql/smsfuncs.inc @@ -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'; diff --git a/rtl/sinclairql/sysdir.inc b/rtl/sinclairql/sysdir.inc index ae02df8995..aaee2f8886 100644 --- a/rtl/sinclairql/sysdir.inc +++ b/rtl/sinclairql/sysdir.inc @@ -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); |