Merged revisions 3178 via svnmerge from

http://[email protected]/svn/fpc/trunk

........
r3178 | hajny | 2006-04-08 19:36:05 +0000 (Sat, 08 Apr 2006) | 1 line

  * fix for pointer increase
........

git-svn-id: branches/fixes_2_0@3180 -

rtl/os2/sysutils.pp

@@ -939,7 +939,7 @@ begin
 (* Work around a bug in OS/2 - argument to DosExecPgm *)
 (* should not cross 64K boundary. *)
    if ((PtrUInt (Args) + 1024) and $FFFF) < 1024 then
-    Inc (Args, 1024);
+    Inc (pointer (Args), 1024);
    ArgSize := 0;
    Move (Path [1], Args^ [ArgSize], Length (Path));
    Inc (ArgSize, Length (Path));