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

* fixed parameter orderning

Browse Source
This commit is contained in:
peter 1999-12-10 10:03:54 +00:00
parent 23c127a58e
commit 768200b8d0
1 changed files with 25 additions and 22 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

47
compiler/options.pas
View File

@ -47,7 +47,7 @@ type
procedure IllegalPara(const opt:string);
function Unsetbool(const opts:string; pos: Longint):boolean;
procedure interpret_proc_specific_options(const opt:string);virtual;
procedure interpret_option(const opt :string);
procedure interpret_option(const opt :string;ispara:boolean);
procedure Interpret_envvar(const envname : string);
procedure Interpret_file(const filename : string);
procedure Read_Parameters;
@ -327,7 +327,7 @@ begin
end;
procedure TOption.interpret_option(const opt:string);
procedure TOption.interpret_option(const opt:string;ispara:boolean);
var
code : integer;
c : char;
@ -504,28 +504,28 @@ begin
'D' : utilsdirectory:=FixPath(More,true);
'e' : SetRedirectFile(More);
'E' : OutputExeDir:=FixPath(More,true);
'i' : if firstpass then
includesearchpath.AddPath(More,false)
'i' : if ispara then
ParaIncludePath.AddPath(More,false)
else
ParaIncludePath.AddPath(More,false);
includesearchpath.AddPath(More,false);
'g' : Message2(option_obsolete_switch_use_new,'-Fg','-Fl');
'l' : if firstpass then
LibrarySearchPath.AddPath(More,false)
'l' : if ispara then
ParaLibraryPath.AddPath(More,false)
else
ParaLibraryPath.AddPath(More,false);
LibrarySearchPath.AddPath(More,false);
'L' : if More<>'' then
ParaDynamicLinker:=More
else
IllegalPara(opt);
'o' : if firstpass then
ObjectSearchPath.AddPath(More,false)
'o' : if ispara then
ParaObjectPath.AddPath(More,false)
else
ParaObjectPath.AddPath(More,false);
ObjectSearchPath.AddPath(More,false);
'r' : Msgfilename:=More;
'u' : if firstpass then
unitsearchpath.AddPath(More,false)
'u' : if ispara then
ParaUnitPath.AddPath(More,false)
else
ParaUnitPath.AddPath(More,false);
unitsearchpath.AddPath(More,false);
'U' : OutputUnitDir:=FixPath(More,true);
else
IllegalPara(opt);
@ -593,10 +593,10 @@ begin
IllegalPara(Opt);
end;
end;
'I' : if firstpass then
includesearchpath.AddPath(More,false)
'I' : if ispara then
ParaIncludePath.AddPath(More,false)
else
ParaIncludePath.AddPath(More,false);
includesearchpath.AddPath(More,false);
'k' : if more<>'' then
ParaLinkOptions:=ParaLinkOptions+' '+More
else
@ -937,7 +937,7 @@ begin
else
begin
if (not skip[level]) and (opts[1]='-') then
interpret_option(opts)
interpret_option(opts,false)
end;
end;
end;
@ -984,7 +984,7 @@ begin
arglen:=pc-argstart;
hs[0]:=chr(arglen);
move(argstart^,hs[1],arglen);
interpret_option(hs);
interpret_option(hs,true);
{ skip quote }
if pc^ in quote then
inc(pc);
@ -1019,7 +1019,7 @@ begin
interpret_envvar(opts);
end;
else
interpret_option(opts);
interpret_option(opts,true);
end;
end;
end;
@ -1055,7 +1055,7 @@ begin
interpret_envvar(opts);
end;
else
interpret_option(opts);
interpret_option(opts,true);
end;
end;
end;
@ -1332,7 +1332,10 @@ end;
end.
{
$Log$
Revision 1.40 1999-12-08 10:40:01 pierre
Revision 1.41 1999-12-10 10:03:54 peter
* fixed parameter orderning
Revision 1.40 1999/12/08 10:40:01 pierre
+ allow use of unit var in exports of DLL for win32
by using direct export writing by default instead of use of DEFFILE
that does not allow assembler labels that do not