Browse Source

Fix failure in ppudump after 5462dd38

 + Handle new SetLow PPU field of TSetDef
Pierre Muller 2 months ago
parent
commit
4ee4e9ae1e
2 changed files with 3 additions and 1 deletions
  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]);
              writeln([space,'             Size : ',setdef.Size]);
              setdef.SetBase:=getasizeint;
              setdef.SetBase:=getasizeint;
              writeln([space,'         Set Base : ',setdef.SetBase]);
              writeln([space,'         Set Base : ',setdef.SetBase]);
+             setdef.SetLow:=getasizeint;
+             writeln([space,'          Set Low : ',setdef.SetLow]);
              setdef.SetMax:=getasizeint;
              setdef.SetMax:=getasizeint;
              writeln([space,'          Set Max : ',setdef.SetMax]);
              writeln([space,'          Set Max : ',setdef.SetMax]);
            end;
            end;

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

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