diff options
Diffstat (limited to 'avx512-0037785/compiler/pgenutil.pas')
| -rw-r--r-- | avx512-0037785/compiler/pgenutil.pas | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/avx512-0037785/compiler/pgenutil.pas b/avx512-0037785/compiler/pgenutil.pas index a4de4abf13..4804995dbb 100644 --- a/avx512-0037785/compiler/pgenutil.pas +++ b/avx512-0037785/compiler/pgenutil.pas @@ -990,7 +990,7 @@ uses paramdef2:=tconstsym(tstoreddef(def).genericparas[i]).constdef else paramdef2:=ttypesym(tstoreddef(def).genericparas[i]).typedef; - if not equal_defs(paramdef2,paramdef2) then + if not equal_defs(paramdef1,paramdef2) then begin allequal:=false; break; @@ -1379,8 +1379,6 @@ uses constraintdata : tgenericconstraintdata; old_block_type : tblock_type; fileinfo : tfileposinfo; - last_token : ttoken; - last_type_pos : tfileposinfo; begin result:=tfphashobjectlist.create(false); firstidx:=0; @@ -1389,8 +1387,6 @@ uses block_type:=bt_type; allowconst:=true; is_const:=false; - last_token:=NOTOKEN; - last_type_pos:=current_filepos; repeat if allowconst and try_to_consume(_CONST) then begin @@ -1605,8 +1601,6 @@ uses is_const:=false; allowconst:=true; end; - last_token:=token; - last_type_pos:=current_filepos; until not (try_to_consume(_COMMA) or try_to_consume(_SEMICOLON)); { if the constant parameter is not terminated then the type restriction was not specified and we need to give an error } |