Procházet zdrojové kódy

Use setlow field of tsetdef class to generate new set typedef in set add node

Pierre Muller před 2 měsíci
rodič
revize
e1509e1c6d
1 změnil soubory, kde provedl 2 přidání a 2 odebrání
  1. 2 2
      compiler/nadd.pas

+ 2 - 2
compiler/nadd.pas

@@ -2768,13 +2768,13 @@ const
                   begin
                   begin
                     if assigned(tsetdef(ld).elementdef) then
                     if assigned(tsetdef(ld).elementdef) then
                       begin
                       begin
-                        llow:=tsetdef(ld).setbase;
+                        llow:=tsetdef(ld).setlow;
                         lhigh:=tsetdef(ld).setmax;
                         lhigh:=tsetdef(ld).setmax;
                       end;
                       end;
                     if (rd.typ=setdef) then
                     if (rd.typ=setdef) then
                       if assigned(tsetdef(rd).elementdef) then
                       if assigned(tsetdef(rd).elementdef) then
                         begin
                         begin
-                          rlow:=tsetdef(rd).setbase;
+                          rlow:=tsetdef(rd).setlow;
                           rhigh:=tsetdef(rd).setmax;
                           rhigh:=tsetdef(rd).setmax;
                         end
                         end
                       else
                       else