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

* fixed argument copying

Browse Source
This commit is contained in:
florian 2004-06-26 15:05:14 +00:00
parent a657c82a59
commit c435d32c97
1 changed files with 20 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

33
rtl/win32/system.pp
View File

@ -731,17 +731,21 @@ var
argvlen : longint;
procedure allocarg(idx,len:longint);
begin
if idx>=argvlen then
begin
argvlen:=(idx+8) and (not 7);
sysreallocmem(argv,argvlen*sizeof(pointer));
end;
{ 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);
end;
var
oldargvlen : longint;
begin
oldargvlen:=argvlen;
if idx>=argvlen then
begin
argvlen:=(idx+8) and (not 7);
sysreallocmem(argv,argvlen*sizeof(pointer));
fillchar(argv[oldargvlen],(argvlen-oldargvlen)*sizeof(pointer),0);
end;
{ 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);
end;
begin
{ create commandline, it starts with the executed filename which is argv[0] }
@ -1621,7 +1625,10 @@ end.
{
$Log$
Revision 1.58 2004-06-20 09:24:40 peter
Revision 1.59 2004-06-26 15:05:14 florian
* fixed argument copying
Revision 1.58 2004/06/20 09:24:40 peter
fixed go32v2 compile
Revision 1.57 2004/06/17 16:16:14 peter
@ -1732,4 +1739,4 @@ end.
Revision 1.23 2002/01/25 16:23:03 peter
* merged filesearch() fix
}
}