paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-04 19:10:18 +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. *) (* 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! }
sysallocmem(argv[idx],len+1); argv[idx] := sysallocmem(len+1);
end; end;
begin begin
@ -507,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);
@ -771,7 +771,10 @@ begin
end. end.
{ {
$Log$ $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 * fix for allocarg
Revision 1.80 2005/03/01 21:59:14 hajny Revision 1.80 2005/03/01 21:59:14 hajny