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

* properly (but silently) truncate parameters passed via environment

Browse Source 
variables

git-svn-id: trunk@5921 -
This commit is contained in:
Jonas Maebe 2007-01-12 16:50:39 +00:00
parent d1c351462d
commit cbba170e61
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/options.pas
View File

@ -1592,7 +1592,10 @@ begin
inc(pc);
{ create argument }
arglen:=pc-argstart;
hs[0]:=chr(arglen);
{$warning FIXME: silent truncation of environment parameters }
if (arglen > 255) then
arglen := 255;
setlength(hs,arglen);
move(argstart^,hs[1],arglen);
interpret_option(hs,true);
{ skip quote }