Selaa lähdekoodia

* ppudump: Deref index -1 is valid for absolute symbols. Handle this.

git-svn-id: trunk@26270 -
yury 11 vuotta sitten
vanhempi
commit
bc14407ffe
1 muutettua tiedostoa jossa 5 lisäystä ja 0 poistoa
  1. 5 0
      compiler/utils/ppuutils/ppudump.pp

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

@@ -936,6 +936,11 @@ begin
     exit;
   first:=true;
   idx:=ppufile.getlongint;
+  if idx = -1 then
+    begin
+      writeln('Nil');
+      exit;
+    end;
   if (idx>derefdatalen) then
     begin
       WriteError('!! Error: Deref idx '+IntToStr(idx)+' > '+IntToStr(derefdatalen));