Browse Source

human68k: fix zero termination of the last argument

Karoly Balogh 1 year ago
parent
commit
d7812f6c05
1 changed files with 1 additions and 1 deletions
  1. 1 1
      rtl/human68k/system.pp

+ 1 - 1
rtl/human68k/system.pp

@@ -158,7 +158,7 @@ begin
   if argl < 1 then
   if argl < 1 then
     argl:=1;
     argl:=1;
 
 
-  args:=getmem(argl);
+  args:=getmem(argl+1);
   fillchar(args^,argl,#0);
   fillchar(args^,argl,#0);
   argsp:=args;
   argsp:=args;