paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-26 20:51:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 3178 via svnmerge from

Browse Source 
http://hajny@svn.freepascal.org/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 -
This commit is contained in:
Tomas Hajny 2006-04-09 08:14:22 +00:00
parent 6fd308faa1
commit 6d2f1a6e68
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
rtl/os2/sysutils.pp
View File

@ -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));