فهرست منبع

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;
       var
         dummypos : tfileposinfo;
+{$push}
+{$warn 5036 off}
       begin
-        {$push}
-        {$warn 5036 off}
         result:=generate_specialization_phase1(context,genericdef,nil,'',dummypos);
-        {$pop}
       end;
+{$pop}
 
 
     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 }
                   procvardef:
                     begin
+                      hintsprocessed:=false;
                       if replaydepth>current_scanner.replay_stack_depth then
                         begin
                           if not check_proc_directive(true) then