2
0
Эх сурвалжийг харах

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

git-svn-id: trunk@26270 -
yury 11 жил өмнө
parent
commit
bc14407ffe

+ 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));