Browse Source

human68k: actually, the comm field coming from the OS is in ph68kdos_comline format, so use it accordingly

Karoly Balogh 1 year ago
parent
commit
1fdd4f8c90
2 changed files with 3 additions and 3 deletions
  1. 1 1
      rtl/human68k/h68kdos.inc
  2. 2 2
      rtl/human68k/system.pp

+ 1 - 1
rtl/human68k/h68kdos.inc

@@ -92,7 +92,7 @@ type
   Th68kdos_startup = record
   Th68kdos_startup = record
     mcb: pbyte;
     mcb: pbyte;
     bss_end: pbyte;
     bss_end: pbyte;
-    comm: pbyte;
+    comm: ph68kdos_comline;
     environ: pbyte;
     environ: pbyte;
     entry: pbyte;
     entry: pbyte;
     intr: pbyte;
     intr: pbyte;

+ 2 - 2
rtl/human68k/system.pp

@@ -150,11 +150,11 @@ begin
   inquotes:=false;
   inquotes:=false;
   inarg:=false;
   inarg:=false;
 
 
-  p:=pchar(h68k_startup.comm);
+  p:=@h68k_startup.comm^.buffer;
   if not assigned(p) then
   if not assigned(p) then
     exit;
     exit;
 
 
-  argl:=length(p);
+  argl:=h68k_startup.comm^.len;
   if argl < 1 then
   if argl < 1 then
     argl:=1;
     argl:=1;