paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 10:19:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

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

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/human68k/h68kdos.inc
View File

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

4
rtl/human68k/system.pp
View File

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