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

* error handling for potential issues with memory allocation during setup_environment as suggested by borsa77 at libero.it

Browse Source 
git-svn-id: trunk@3931 -
This commit is contained in:
Tomas Hajny 2006-06-24 22:54:12 +00:00
parent 1ecf556685
commit c40e0d9b6f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/go32v2/system.pp
View File

@ -454,7 +454,7 @@ begin
inc(longint(cp)); { skip to next character } inc(longint(cp)); { skip to next character }
end; end;
envp := sysgetmem((env_count+1) * sizeof(pchar)); envp := sysgetmem((env_count+1) * sizeof(pchar));
if (envp = nil) then exit; if (envp = nil) then HandleError (203);
cp:=dos_env; cp:=dos_env;
env_count:=0; env_count:=0;
while cp^ <> #0 do while cp^ <> #0 do
@ -472,7 +472,7 @@ begin
envp[env_count]:=nil; envp[env_count]:=nil;
longint(cp):=longint(cp)+3; longint(cp):=longint(cp)+3;
dos_argv0 := sysgetmem(strlen(cp)+1); dos_argv0 := sysgetmem(strlen(cp)+1);
if (dos_argv0 = nil) then halt; if (dos_argv0 = nil) then HandleError (203);
strcopy(dos_argv0, cp); strcopy(dos_argv0, cp);
{ update ___dos_argv0 also } { update ___dos_argv0 also }
___dos_argv0:=dos_argv0 ___dos_argv0:=dos_argv0