paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 16:09:25 +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 SYSTEMEXCEPTIONDEBUG}
{.$define IODEBUG} {.$define IODEBUG}
{.$define DEBUGENVIRONMENT} {.$define DEBUGENVIRONMENT}
{$define DEBUGARGUMENTS} {.$define DEBUGARGUMENTS}
{$endif SYSTEMDEBUG} {$endif SYSTEMDEBUG}
{ $DEFINE OS2EXCEPTIONS} { $DEFINE OS2EXCEPTIONS}
@ -1174,6 +1174,7 @@ begin
repeat repeat
Inc(Arglen); Inc(Arglen);
until (pc[Arglen]=#0); until (pc[Arglen]=#0);
Inc(Arglen);
pc:=GetMem(ArgLen); pc:=GetMem(ArgLen);
move(cmdline^, pc^, arglen); move(cmdline^, pc^, arglen);
Arglen:=0; Arglen:=0;
@ -1418,7 +1419,10 @@ begin
end. end.
{ {
$Log$ $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 * Environment and arguments initialization now native
Revision 1.57 2003/11/06 17:20:44 yuri Revision 1.57 2003/11/06 17:20:44 yuri