Преглед изворни кода

human68k: also fill the entire args buffer with zeros, for proper last argument termination

Karoly Balogh пре 1 година
родитељ
комит
5c93f3e271
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      rtl/human68k/system.pp

+ 1 - 1
rtl/human68k/system.pp

@@ -159,7 +159,7 @@ begin
     argl:=1;
 
   args:=getmem(argl+1);
-  fillchar(args^,argl,#0);
+  fillchar(args^,argl+1,#0);
   argsp:=args;
 
   while p^ <> #0 do