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

Merge forgotten go32v2 2.6.0 branch changes back into trunk.

Browse Source 
------------------------------------------------------------------------
r20580 | pierre | 2012-03-22 17:52:40 +0100 (Thu, 22 Mar 2012) | 1 line

 * Set __environ to envp in Setup_environment function
------------------------------------------------------------------------

git-svn-id: trunk@24230 -
This commit is contained in:
pierre 2013-04-12 10:28:40 +00:00
parent 8a6e057fca
commit 57c5821042
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/go32v2/system.pp
View File

@ -160,6 +160,7 @@ implementation
var
c_environ : ppchar;external name '__environ';
_args : ppchar;external name '_args';
__stubinfo : p_stub_info;external name '__stubinfo';
___dos_argv0 : pchar;external name '___dos_argv0';
@ -477,6 +478,7 @@ begin
end;
envp := sysgetmem((env_count+1) * sizeof(pchar));
if (envp = nil) then HandleError (203);
c_environ:=envp;
cp:=dos_env;
env_count:=0;
while cp^ <> #0 do