From 1fdd4f8c9028cb0a55fe0e4289faba89bdf6d821 Mon Sep 17 00:00:00 2001
From: Karoly Balogh <karoly@freepascal.org>
Date: Sun, 3 Dec 2023 12:14:03 +0100
Subject: [PATCH] human68k: actually, the comm field coming from the OS is in
 ph68kdos_comline format, so use it accordingly

---
 rtl/human68k/h68kdos.inc | 2 +-
 rtl/human68k/system.pp   | 4 ++--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/rtl/human68k/h68kdos.inc b/rtl/human68k/h68kdos.inc
index 4600f7cd9b..1163a38734 100644
--- a/rtl/human68k/h68kdos.inc
+++ b/rtl/human68k/h68kdos.inc
@@ -92,7 +92,7 @@ type
   Th68kdos_startup = record
     mcb: pbyte;
     bss_end: pbyte;
-    comm: pbyte;
+    comm: ph68kdos_comline;
     environ: pbyte;
     entry: pbyte;
     intr: pbyte;
diff --git a/rtl/human68k/system.pp b/rtl/human68k/system.pp
index a9be48483f..be6ca1c515 100644
--- a/rtl/human68k/system.pp
+++ b/rtl/human68k/system.pp
@@ -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;