paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-05 23:07:14 +01:00
Code Issues Packages Projects Releases Wiki Activity

* SysAllocMem used for ArgV [Idx] allocation again

Browse Source
This commit is contained in:
Tomas Hajny 2005-05-03 22:17:26 +00:00
parent ae23483e60
commit 2b7afcc4d8
1 changed files with 10 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
rtl/os2/system.pas
View File

@ -475,15 +475,15 @@ end;
procedure InitArguments;
var
arglen,
count : longint;
count : PtrInt;
argstart,
pc,arg : pchar;
quote : char;
argvlen : longint;
argvlen : PtrInt;
procedure allocarg(idx,len:longint);
procedure allocarg(idx,len: PtrInt);
var
oldargvlen : longint;
oldargvlen : PtrInt;
begin
if idx>=argvlen then
begin
@ -495,7 +495,8 @@ var
{ use realloc to reuse already existing memory }
{ always allocate, even if length is zero, since }
{ the arg. is still present! }
sysreallocmem(argv[idx],len+1);
{ sysreallocmem(argv[idx],len+1);}
ArgV [Idx] := SysAllocMem (Succ (Len));
end;
begin
@ -772,7 +773,10 @@ begin
end.
{
$Log$
Revision 1.84 2005-05-01 13:01:03 peter
Revision 1.85 2005-05-03 22:17:26 hajny
* SysAllocMem used for ArgV [Idx] allocation again
Revision 1.84 2005/05/01 13:01:03 peter
use fillchar after reallocmem, fix taken from win32
Revision 1.83 2005/04/03 21:10:59 hajny