Explorar o código

human68k: fix zero termination of the last argument

Karoly Balogh hai 1 ano
pai
achega
d7812f6c05
Modificáronse 1 ficheiros con 1 adicións e 1 borrados
  1. 1 1
      rtl/human68k/system.pp

+ 1 - 1
rtl/human68k/system.pp

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