From e019e5ad2732d984337a440eb4829c8a768e61de Mon Sep 17 00:00:00 2001 From: Tomas Hajny Date: Sun, 27 Mar 2005 20:50:35 +0000 Subject: [PATCH] * correction of previous mistyping --- rtl/os2/system.pas | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/rtl/os2/system.pas b/rtl/os2/system.pas index 2098f07907..816865e490 100644 --- a/rtl/os2/system.pas +++ b/rtl/os2/system.pas @@ -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