paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-25 06:01:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed writing of quickinfo when no ppc386.cfg is available

Browse Source
This commit is contained in:
peter 2001-01-12 19:21:09 +00:00
parent 5ea6603165
commit 9964f294bd
1 changed files with 17 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
compiler/options.pas
View File

@ -1341,19 +1341,26 @@ begin
if cmd<>'' then if cmd<>'' then
option.parsecmd(cmd) option.parsecmd(cmd)
else else
option.read_parameters; begin
option.firstpass:=false; option.read_parameters;
{ Write only quickinfo } { Write only quickinfo }
if option.quickinfo<>'' then if option.quickinfo<>'' then
option.writequickinfo; option.writequickinfo;
end;
{ Read the configfile } { Read the configfile }
option.firstpass:=false;
if read_configfile then if read_configfile then
option.interpret_file(ppccfg); option.interpret_file(ppccfg);
end; end;
if cmd<>'' then if cmd<>'' then
option.parsecmd(cmd) option.parsecmd(cmd)
else else
option.read_parameters; begin
option.read_parameters;
{ Write only quickinfo }
if option.quickinfo<>'' then
option.writequickinfo;
end;
{ Stop if errors in options } { Stop if errors in options }
if ErrorCount>0 then if ErrorCount>0 then
@ -1510,7 +1517,10 @@ finalization
end. end.
{ {
$Log$ $Log$
Revision 1.25 2001-01-05 17:36:57 florian Revision 1.26 2001-01-12 19:21:09 peter
* fixed writing of quickinfo when no ppc386.cfg is available
Revision 1.25 2001/01/05 17:36:57 florian
* the info about exception frames is stored now on the stack * the info about exception frames is stored now on the stack
instead on the heap instead on the heap