mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-12 20:29:23 +02:00
human68k: actually, the comm field coming from the OS is in ph68kdos_comline format, so use it accordingly
This commit is contained in:
parent
a4c94c8b44
commit
1fdd4f8c90
@ -92,7 +92,7 @@ type
|
||||
Th68kdos_startup = record
|
||||
mcb: pbyte;
|
||||
bss_end: pbyte;
|
||||
comm: pbyte;
|
||||
comm: ph68kdos_comline;
|
||||
environ: pbyte;
|
||||
entry: pbyte;
|
||||
intr: pbyte;
|
||||
|
@ -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;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user