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

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

Browse Source
This commit is contained in:
Karoly Balogh 2023-12-03 23:46:56 +01:00
parent 3cd2cbcda8
commit 5c93f3e271
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/human68k/system.pp
View File

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