Forráskód Böngészése

+ initialize variables, so compilation with -O3 works

git-svn-id: trunk@45141 -
florian 5 éve
szülő
commit
e7f7927ca9
1 módosított fájl, 3 hozzáadás és 4 törlés
  1. 3 4
      compiler/pgenutil.pas

+ 3 - 4
compiler/pgenutil.pas

@@ -474,6 +474,8 @@ uses
         validparam : boolean;
         validparam : boolean;
       begin
       begin
         result:=true;
         result:=true;
+        prettyname:='';
+        prettynamepart:='';
         if paramlist=nil then
         if paramlist=nil then
           internalerror(2012061401);
           internalerror(2012061401);
         { set the block type to type, so that the parsed type are returned as
         { set the block type to type, so that the parsed type are returned as
@@ -501,10 +503,7 @@ uses
               end;
               end;
           end
           end
         else
         else
-          begin
-            specializename:='$';
-            prettyname:='';
-          end;
+          specializename:='$';
         while not (token in [_GT,_RSHARPBRACKET]) do
         while not (token in [_GT,_RSHARPBRACKET]) do
           begin
           begin
             { "first" is set to false at the end of the loop! }
             { "first" is set to false at the end of the loop! }