Преглед на файлове

o fix compilation of the compiler
* $warn x off does not work tokenwise yet
* -O2+ is more picky about uninitialized variables, FPC does not do dynamic DFA

git-svn-id: trunk@31546 -

florian преди 10 години
родител
ревизия
83a7fa2320
променени са 1 файла, в които са добавени 4 реда и са изтрити 3 реда
  1. 4 3
      compiler/pgenutil.pas

+ 4 - 3
compiler/pgenutil.pas

@@ -384,12 +384,12 @@ uses
     function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef):tdef;
     function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef):tdef;
       var
       var
         dummypos : tfileposinfo;
         dummypos : tfileposinfo;
+{$push}
+{$warn 5036 off}
       begin
       begin
-        {$push}
-        {$warn 5036 off}
         result:=generate_specialization_phase1(context,genericdef,nil,'',dummypos);
         result:=generate_specialization_phase1(context,genericdef,nil,'',dummypos);
-        {$pop}
       end;
       end;
+{$pop}
 
 
 
 
     function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef;parsedtype:tdef;symname:string;parsedpos:tfileposinfo):tdef;
     function generate_specialization_phase1(out context:tspecializationcontext;genericdef:tdef;parsedtype:tdef;symname:string;parsedpos:tfileposinfo):tdef;
@@ -908,6 +908,7 @@ uses
                   { handle params, calling convention, etc }
                   { handle params, calling convention, etc }
                   procvardef:
                   procvardef:
                     begin
                     begin
+                      hintsprocessed:=false;
                       if replaydepth>current_scanner.replay_stack_depth then
                       if replaydepth>current_scanner.replay_stack_depth then
                         begin
                         begin
                           if not check_proc_directive(true) then
                           if not check_proc_directive(true) then