Просмотр исходного кода

* adapted ppudump to the changes in r32031

git-svn-id: trunk@32056 -
Jonas Maebe 10 лет назад
Родитель
Сommit
d80e318945
1 измененных файлов с 3 добавлено и 3 удалено
  1. 3 3
      compiler/utils/ppuutils/ppudump.pp

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

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