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

* initialize current_settings as early as possible so cs_debugswitch is set correctly if needed

Browse Source 
git-svn-id: trunk@48676 -
This commit is contained in:
florian 2021-02-14 21:25:01 +00:00
parent 0316a7697f
commit c3fb1e3a65
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/parser.pas
View File

@ -354,6 +354,10 @@ implementation
exceptblockcounter:=0;
current_settings.maxfpuregisters:=-1;
current_settings.pmessage:=nil;
{ Load current state from the init values }
current_settings:=init_settings;
{ reset the unit or create a new program }
{ a unit compiled at command line must be inside the loaded_unit list }
if (compile_level=1) then
@ -369,9 +373,6 @@ implementation
(current_module.state in [ms_compile,ms_second_compile])) then
internalerror(200212281);
{ Load current state from the init values }
current_settings:=init_settings;
{ load current asmdata from current_module }
current_asmdata:=TAsmData(current_module.asmdata);