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

human68k: fixed argv[0] generation, after figuring out that length() is something very different to strlen()

Browse Source
This commit is contained in:
Karoly Balogh 2023-12-03 14:22:03 +01:00
parent d7812f6c05
commit a009cc5c35
1 changed files with 7 additions and 4 deletions

11
rtl/human68k/system.pp
View File

@ -140,7 +140,7 @@ end;
procedure GenerateArgs;
var
argcc: longint;
argl: longint;
argl,pathlen,namelen: longint;
p: pchar;
argsp: pchar;
inquotes: boolean;
@ -214,10 +214,13 @@ begin
inc(argsp);
end;
argl:=length(h68k_psp^.exe_path)+length(h68k_psp^.exe_name);
pathlen:=strlen(h68k_psp^.exe_path);
namelen:=strlen(h68k_psp^.exe_name);
argl:=pathlen+namelen;
argv[0]:=GetMem(argl+1);
MoveChar0(h68k_psp^.exe_path[0],argv[0][0],argl);
MoveChar0(h68k_psp^.exe_name[0],argv[0][length(argv[0])],argl);
Move(h68k_psp^.exe_path[0],argv[0][0],pathlen);
Move(h68k_psp^.exe_name[0],argv[0][pathlen],namelen);
argv[0][argl]:=#0;
end;
procedure SysInitParamsAndEnv;