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

* remove fixed limit for overall size of arguments for Dos.Exec and SysUtils.ExecuteProcess

Browse Source 
git-svn-id: trunk@28975 -
This commit is contained in:
Tomas Hajny 2014-11-03 17:00:55 +00:00
parent 1c74b752c5
commit 5d0bd53433
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
rtl/os2/dos.pas
View File

@ -211,9 +211,7 @@ var
Prio: byte;
DSS: boolean;
SR: SearchRec;
const
MaxArgsSize = 3072; (* Amount of memory reserved for arguments in bytes. *)
MaxArgsSize: word; (* Amount of memory reserved for arguments in bytes. *)
begin
{ LastDosExitCode := Exec (Path, ExecRunFlags (ExecFlags), efDefault, ComLine);}
@ -226,6 +224,7 @@ begin
else
QName := Path;
FindClose (SR);
MaxArgsSize := Length (ComLine) + Length (QName) + 256; (* More than enough *)
if ComLine = '' then
begin
Args0 := nil;

3
rtl/os2/sysutils.pp
View File

@ -750,9 +750,9 @@ var
ObjName: shortstring;
RC: cardinal;
ExecAppType: cardinal;
MaxArgsSize: word; (* Amount of memory reserved for arguments in bytes. *)
const
MaxArgsSize = 3072; (* Amount of memory reserved for arguments in bytes. *)
ObjBufSize = 512;
function StartSession: cardinal;
@ -845,6 +845,7 @@ begin
if (ApplicationType and 3 = ExecAppType and 3) then
(* DosExecPgm should work... *)
begin
MaxArgsSize := Length (ComLine) + Length (Path) + 256; (* More than enough *)
if ComLine = '' then
begin
Args0 := nil;