paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 05:09:31 +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 } { only parse define,undef,target,verbosity and link options the firsttime }
if firstpass and 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; exit;
Message1(option_handling_option,opt); Message1(option_handling_option,opt);
@ -411,9 +411,18 @@ begin
include(initglobalswitches,cs_asm_tempalloc); include(initglobalswitches,cs_asm_tempalloc);
'n' : 'n' :
include(initglobalswitches,cs_asm_nodes); 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 - 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 else
IllegalPara(opt); IllegalPara(opt);
end; end;
@ -854,13 +863,7 @@ begin
end; end;
{$ifdef Unix} {$ifdef Unix}
'P' : 'P' : ; { Ignore used by fpc.pp }
begin
if UnsetBool(More, 0) then
exclude(initglobalswitches,cs_asm_pipe)
else
include(initglobalswitches,cs_asm_pipe);
end;
{$endif Unix} {$endif Unix}
's' : 's' :
@ -1024,8 +1027,7 @@ begin
IllegalPara(opt); IllegalPara(opt);
end; end;
'V' : 'V' : ; { Ignore used by fpc }
PrepareReport;
'W' : 'W' :
begin begin
@ -1117,8 +1119,8 @@ begin
LinkTypeSetExplicitly:=true; LinkTypeSetExplicitly:=true;
end; end;
'P' : Begin 'P' : Begin
utilsprefix:=Copy(more,2,length(More)-1); utilsprefix:=Copy(more,2,length(More)-1);
More:=''; More:='';
End; End;
'S' : 'S' :
begin begin
@ -1978,7 +1980,11 @@ finalization
end. end.
{ {
$Log$ $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 * -XP<prefix> support
Revision 1.106 2003/09/17 21:37:07 olle 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) status.verbosity:=status.verbosity and (not V_Executable)
else else
status.verbosity:=status.verbosity or V_Executable; status.verbosity:=status.verbosity or V_Executable;
'v' : PrepareReport;
end; end;
inc(i); inc(i);
end; end;
@ -821,7 +822,11 @@ finalization
end. end.
{ {
$Log$ $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 * procinfo unit contains tprocinfo
* cginfo renamed to cgbase * cginfo renamed to cgbase
* moved cgmessage to verbose * moved cgmessage to verbose