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

git-svn-id: trunk@49192 -

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

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;

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

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