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

human68k: try not to nuke immediately during argument parsing, if memory allocation fails

Browse Source
This commit is contained in:
Karoly Balogh 2023-12-05 09:52:52 +01:00
parent e867fce883
commit 93a257ab29
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/human68k/system.pp
View File

@ -157,6 +157,8 @@ begin
argl:=h68k_startup.comm^.len;
args:=getmem(argl+1);
if not assigned(args) then
exit;
fillchar(args^,argl+1,#0);
argsp:=args;
@ -194,6 +196,8 @@ begin
inc(argc);
argv:=GetMem(argc+1);
if not assigned(argv) then
exit;
argsp:=args;
argcc:=0;
inarg:=false;
@ -215,6 +219,8 @@ begin
namelen:=strlen(h68k_psp^.exe_name);
argl:=pathlen+namelen;
argv[0]:=GetMem(argl+1);
if not assigned(argv[0]) then
exit;
Move(h68k_psp^.exe_path[0],argv[0][0],pathlen);
Move(h68k_psp^.exe_name[0],argv[0][pathlen],namelen);
argv[0][argl]:=#0;