Explorar el Código

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

git-svn-id: trunk@26270 -
yury hace 11 años
padre
commit
bc14407ffe
Se han modificado 1 ficheros con 5 adiciones y 0 borrados
  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));