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

* fix for allocarg

Browse Source
This commit is contained in:
Tomas Hajny 2005-03-27 20:40:54 +00:00
parent 252fa84c62
commit a16db1bcf6
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/os2/system.pas
View File

@ -490,9 +490,11 @@ var
sysreallocmem(argv,argvlen*sizeof(pointer)); sysreallocmem(argv,argvlen*sizeof(pointer));
end; end;
{ use realloc to reuse already existing memory } { use realloc to reuse already existing memory }
(* TH: the previous sentence applies to argv, not *)
(* to argv[idx], which is never allocated before. *)
{ always allocate, even if length is zero, since } { always allocate, even if length is zero, since }
{ the arg. is still present! } { the arg. is still present! }
sysreallocmem(argv[idx],len+1); sysallocmem(argv[idx],len+1);
end; end;
begin begin
@ -505,7 +507,7 @@ begin
Arglen:=0; Arglen:=0;
repeat repeat
Inc(Arglen); Inc(Arglen);
until (pc[Arglen]=#0); until (pc[Arglen]^ = #0);
allocarg(count,arglen); allocarg(count,arglen);
move(pc^,argv[count]^,arglen); move(pc^,argv[count]^,arglen);
@ -769,7 +771,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.80 2005-03-01 21:59:14 hajny Revision 1.81 2005-03-27 20:40:54 hajny
* fix for allocarg
Revision 1.80 2005/03/01 21:59:14 hajny
* compilation fix * compilation fix
Revision 1.79 2005/02/14 17:13:31 peter Revision 1.79 2005/02/14 17:13:31 peter