Преглед изворни кода

Merged revisions 2337 via svnmerge from
http://[email protected]/svn/fpc/trunk

........
r2337 | hajny | 2006-01-25 21:26:38 +0000 (Wed, 25 Jan 2006) | 1 line

* fix for wrong pointer increment (causing crash/heap corruptions)
........

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

Tomas Hajny пре 19 година
родитељ
комит
782f5829b1
1 измењених фајлова са 1 додато и 1 уклоњено
  1. 1 1
      rtl/os2/dos.pas

+ 1 - 1
rtl/os2/dos.pas

@@ -173,7 +173,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 (QName [1], Args^ [ArgSize], Length (QName));
     Inc (ArgSize, Length (QName));