* Set __environ to envp in Setup_environment function

git-svn-id: branches/fixes_2_6_0@20580 -

rtl/go32v2/system.pp

@@ -159,6 +159,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';
@@ -476,6 +477,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