paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-16 08:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* -P to -ap

Browse Source 
* -V to -vv
This commit is contained in:
peter 2003-10-08 19:17:43 +00:00
parent fcd16aff24
commit f187323816
2 changed files with 26 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
compiler/options.pas
View File

@ -380,7 +380,7 @@ begin
{ only parse define,undef,target,verbosity and link options the firsttime }
if firstpass and
not((opt[1]='-') and (opt[2] in ['i','d','v','V','T','u','n','X'])) then
not((opt[1]='-') and (opt[2] in ['i','d','v','T','u','n','X'])) then
exit;
Message1(option_handling_option,opt);
@ -411,9 +411,18 @@ begin
include(initglobalswitches,cs_asm_tempalloc);
'n' :
include(initglobalswitches,cs_asm_nodes);
'p' :
begin
exclude(initglobalswitches,cs_asm_leave);
if UnsetBool(More, 0) then
exclude(initglobalswitches,cs_asm_pipe)
else
include(initglobalswitches,cs_asm_pipe);
end;
'-' :
initglobalswitches:=initglobalswitches -
[cs_asm_leave, cs_asm_source,cs_asm_regalloc, cs_asm_tempalloc, cs_asm_nodes];
[cs_asm_leave, cs_asm_source,cs_asm_regalloc, cs_asm_tempalloc,
cs_asm_nodes, cs_asm_pipe];
else
IllegalPara(opt);
end;
@ -854,13 +863,7 @@ begin
end;
{$ifdef Unix}
'P' :
begin
if UnsetBool(More, 0) then
exclude(initglobalswitches,cs_asm_pipe)
else
include(initglobalswitches,cs_asm_pipe);
end;
'P' : ; { Ignore used by fpc.pp }
{$endif Unix}
's' :
@ -1024,8 +1027,7 @@ begin
IllegalPara(opt);
end;
'V' :
PrepareReport;
'V' : ; { Ignore used by fpc }
'W' :
begin
@ -1117,8 +1119,8 @@ begin
LinkTypeSetExplicitly:=true;
end;
'P' : Begin
utilsprefix:=Copy(more,2,length(More)-1);
More:='';
utilsprefix:=Copy(more,2,length(More)-1);
More:='';
End;
'S' :
begin
@ -1978,7 +1980,11 @@ finalization
end.
{
$Log$
Revision 1.107 2003-10-03 14:16:48 marco
Revision 1.108 2003-10-08 19:17:43 peter
* -P to -ap
* -V to -vv
Revision 1.107 2003/10/03 14:16:48 marco
* -XP<prefix> support
Revision 1.106 2003/09/17 21:37:07 olle

7
compiler/verbose.pas
View File

@ -271,6 +271,7 @@ var
status.verbosity:=status.verbosity and (not V_Executable)
else
status.verbosity:=status.verbosity or V_Executable;
'v' : PrepareReport;
end;
inc(i);
end;
@ -821,7 +822,11 @@ finalization
end.
{
$Log$
Revision 1.27 2003-10-01 20:34:49 peter
Revision 1.28 2003-10-08 19:17:43 peter
* -P to -ap
* -V to -vv
Revision 1.27 2003/10/01 20:34:49 peter
* procinfo unit contains tprocinfo
* cginfo renamed to cgbase
* moved cgmessage to verbose