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

* fix for pointer increase

Browse Source 
git-svn-id: trunk@3178 -
This commit is contained in:
Tomas Hajny 2006-04-08 19:36:05 +00:00
parent ad14231358
commit 7b9c5f5c50
1 changed files with 1 additions and 1 deletions

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