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

* correction of previous mistyping

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

9
rtl/os2/system.pas
View File

@ -494,7 +494,7 @@ var
(* to argv[idx], which is never allocated before. *)
{ always allocate, even if length is zero, since }
{ the arg. is still present! }
sysallocmem(argv[idx],len+1);
argv[idx] := sysallocmem(len+1);
end;
begin
@ -507,7 +507,7 @@ begin
Arglen:=0;
repeat
Inc(Arglen);
until (pc[Arglen]^ = #0);
until (pc[Arglen] = #0);
allocarg(count,arglen);
move(pc^,argv[count]^,arglen);
@ -771,7 +771,10 @@ begin
end.
{
$Log$
Revision 1.81 2005-03-27 20:40:54 hajny
Revision 1.82 2005-03-27 20:50:35 hajny
* correction of previous mistyping
Revision 1.81 2005/03/27 20:40:54 hajny
* fix for allocarg
Revision 1.80 2005/03/01 21:59:14 hajny