Przeglądaj źródła

- the freegenericparams variable is no longer required as it's always true whenever consume_proc_name is called anyway

git-svn-id: trunk@39562 -
svenbarth 7 lat temu
rodzic
commit
473a028523
1 zmienionych plików z 1 dodań i 4 usunięć
  1. 1 4
      compiler/pdecsub.pas

+ 1 - 4
compiler/pdecsub.pas

@@ -583,7 +583,6 @@ implementation
         index : longint;
         index : longint;
         hadspecialize,
         hadspecialize,
         firstpart,
         firstpart,
-        freegenericparams,
         found,
         found,
         searchagain : boolean;
         searchagain : boolean;
         st,
         st,
@@ -671,7 +670,7 @@ implementation
           begin
           begin
             lasttoken:=token;
             lasttoken:=token;
             lastidtoken:=idtoken;
             lastidtoken:=idtoken;
-            if assigned(genericparams) and freegenericparams then
+            if assigned(genericparams) then
               for i:=0 to genericparams.count-1 do
               for i:=0 to genericparams.count-1 do
                 begin
                 begin
                   sym:=ttypesym(genericparams[i]);
                   sym:=ttypesym(genericparams[i]);
@@ -873,7 +872,6 @@ implementation
         aprocsym:=nil;
         aprocsym:=nil;
         srsym:=nil;
         srsym:=nil;
         genericparams:=nil;
         genericparams:=nil;
-        freegenericparams:=true;
         hadspecialize:=false;
         hadspecialize:=false;
 
 
         if not assigned(genericdef) then
         if not assigned(genericdef) then
@@ -1129,7 +1127,6 @@ implementation
             genericparams.free;
             genericparams.free;
             genericparams:=nil;
             genericparams:=nil;
             symtablestack.pop(pd.parast);
             symtablestack.pop(pd.parast);
-            freegenericparams:=false;
             parse_generic:=true;
             parse_generic:=true;
             { also generate a dummy symbol if none exists already }
             { also generate a dummy symbol if none exists already }
             if assigned(astruct) then
             if assigned(astruct) then