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

Correct computation of operatingsystem_parameter_envp, which wrongly pointed to the NIL pointer separating argv from environment variables

Browse Source 
git-svn-id: trunk@47552 -
This commit is contained in:
pierre 2020-11-24 09:39:55 +00:00
parent 6d900039c4
commit 233d883731
4 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/linux/riscv64/si_c.inc
View File

@ -39,7 +39,7 @@ procedure _FPC_rv_enter(at_exit: TProcedure; sp: pptruint);
initialstkptr:=sp;
operatingsystem_parameter_argc:=argc;
operatingsystem_parameter_argv:=argv;
operatingsystem_parameter_envp:=@sp[1+argc];
operatingsystem_parameter_envp:=@sp[argc+2];
libc_start_main(@PascalMain, argc, argv, libc_init_proc, libc_fini_proc, at_exit, sp);
end;

2
rtl/linux/riscv64/si_prc.inc
View File

@ -31,7 +31,7 @@ procedure _FPC_rv_enter(sp: pptruint);
initialstkptr:=sp;
operatingsystem_parameter_argc:=argc;
operatingsystem_parameter_argv:=@sp[1];
operatingsystem_parameter_envp:=@sp[1+argc];
operatingsystem_parameter_envp:=@sp[argc+2];
PascalMain;
end;

2
rtl/linux/xtensa/si_c.inc
View File

@ -39,7 +39,7 @@ procedure _FPC_xtensa_enter(at_exit: TProcedure; sp: pptruint);
initialstkptr:=sp;
operatingsystem_parameter_argc:=argc;
operatingsystem_parameter_argv:=argv;
operatingsystem_parameter_envp:=@sp[1+argc];
operatingsystem_parameter_envp:=@sp[argc+2];
libc_start_main(@PascalMain, argc, argv, libc_init_proc, libc_fini_proc, at_exit, sp);
end;

2
rtl/linux/xtensa/si_prc.inc
View File

@ -31,7 +31,7 @@ procedure _FPC_xtensa_enter(sp: pptruint);
initialstkptr:=sp;
operatingsystem_parameter_argc:=argc;
operatingsystem_parameter_argv:=@sp[1];
operatingsystem_parameter_envp:=@sp[1+argc];
operatingsystem_parameter_envp:=@sp[argc+2];
PascalMain;
end;