Browse Source

Fix Absolute var symbol address (was failing for AVR cpu)

git-svn-id: trunk@37320 -
pierre 8 năm trước cách đây
mục cha
commit
1aa731df63

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

@@ -2746,7 +2746,7 @@ begin
                  Writeln(['Assembler name : ',getstring]);
                  Writeln(['Assembler name : ',getstring]);
                toaddr :
                toaddr :
                  begin
                  begin
-                   Write(['Address : ',getaword]);
+                   Write(['Address : ',getpuint]);
                    if tsystemcpu(ppufile.header.common.cpu)=cpu_i386 then
                    if tsystemcpu(ppufile.header.common.cpu)=cpu_i386 then
                      Write([' (Far: ',getbyte<>0,')']);
                      Write([' (Far: ',getbyte<>0,')']);
                    if tsystemcpu(ppufile.header.common.cpu)=cpu_i8086 then
                    if tsystemcpu(ppufile.header.common.cpu)=cpu_i8086 then