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

* Memory allocation bug fixed

Browse Source
This commit is contained in:
yuri 2003-11-19 18:21:11 +00:00
parent c97a5d06eb
commit dbffba731e
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
rtl/os2/system.pas
View File

@ -31,7 +31,7 @@ interface
{$define SYSTEMEXCEPTIONDEBUG}
{.$define IODEBUG}
{.$define DEBUGENVIRONMENT}
{$define DEBUGARGUMENTS}
{.$define DEBUGARGUMENTS}
{$endif SYSTEMDEBUG}
{ $DEFINE OS2EXCEPTIONS}
@ -1174,6 +1174,7 @@ begin
repeat
Inc(Arglen);
until (pc[Arglen]=#0);
Inc(Arglen);
pc:=GetMem(ArgLen);
move(cmdline^, pc^, arglen);
Arglen:=0;
@ -1418,7 +1419,10 @@ begin
end.
{
$Log$
Revision 1.58 2003-11-19 16:50:21 yuri
Revision 1.59 2003-11-19 18:21:11 yuri
* Memory allocation bug fixed
Revision 1.58 2003/11/19 16:50:21 yuri
* Environment and arguments initialization now native
Revision 1.57 2003/11/06 17:20:44 yuri