Ver Fonte

Fix failure in ppudump after 5462dd38

 + Handle new SetLow PPU field of TSetDef
Pierre Muller há 2 meses atrás
pai
commit
4ee4e9ae1e
2 ficheiros alterados com 3 adições e 1 exclusões
  1. 2 0
      compiler/utils/ppuutils/ppudump.pp
  2. 1 1
      compiler/utils/ppuutils/ppuout.pp

+ 2 - 0
compiler/utils/ppuutils/ppudump.pp

@@ -4811,6 +4811,8 @@ begin
              writeln([space,'             Size : ',setdef.Size]);
              setdef.SetBase:=getasizeint;
              writeln([space,'         Set Base : ',setdef.SetBase]);
+             setdef.SetLow:=getasizeint;
+             writeln([space,'          Set Low : ',setdef.SetLow]);
              setdef.SetMax:=getasizeint;
              writeln([space,'          Set Max : ',setdef.SetMax]);
            end;

+ 1 - 1
compiler/utils/ppuutils/ppuout.pp

@@ -361,7 +361,7 @@ type
     procedure WriteDef(Output: TPpuOutput); override;
   public
     ElType: TPpuRef;
-    SetBase, SetMax: integer;
+    SetBase, SetLow, SetMax: integer;
     Size: byte;
     constructor Create(AParent: TPpuContainerDef); override;
     destructor Destroy; override;