소스 검색

human68k: fix zero termination of the last argument

Karoly Balogh 1 년 전
부모
커밋
d7812f6c05
1개의 변경된 파일1개의 추가작업 그리고 1개의 파일을 삭제
  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;