Browse Source

* adapted ppudump to the changes in r32031

git-svn-id: trunk@32056 -
Jonas Maebe 9 years ago
parent
commit
d80e318945
1 changed files with 3 additions and 3 deletions
  1. 3 3
      compiler/utils/ppuutils/ppudump.pp

+ 3 - 3
compiler/utils/ppuutils/ppudump.pp

@@ -1375,13 +1375,13 @@ var
   i: integer;
   i: integer;
   n: string;
   n: string;
 begin
 begin
+  n:=ppufile.getstring;
+  if Def <> nil then
+    Def.Name:=n;
   i:=ppufile.getlongint;
   i:=ppufile.getlongint;
   if Def <> nil then
   if Def <> nil then
     Def.SetSymId(i);
     Def.SetSymId(i);
   writeln([space,'** Symbol Id ',i,' **']);
   writeln([space,'** Symbol Id ',i,' **']);
-  n:=ppufile.getstring;
-  if Def <> nil then
-    Def.Name:=n;
   writeln([space,s,n]);
   writeln([space,s,n]);
   write  ([space,'     File Pos : ']);
   write  ([space,'     File Pos : ']);
   readposinfo(Def);
   readposinfo(Def);