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

This commit is contained in:
Karoly Balogh 2023-12-03 12:14:03 +01:00
parent a4c94c8b44
commit 1fdd4f8c90
2 changed files with 3 additions and 3 deletions

View File

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

View File

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