Ver código fonte

amicommon/lineinfo: fixed copy-paste error in PowerPC codepath

git-svn-id: trunk@41094 -
Károly Balogh 6 anos atrás
pai
commit
6d279fdbb9
1 arquivos alterados com 2 adições e 2 exclusões
  1. 2 2
      rtl/amicommon/lineinfo.pp

+ 2 - 2
rtl/amicommon/lineinfo.pp

@@ -2,7 +2,7 @@
     This file is part of the Free Pascal run time library.
     This file is part of the Free Pascal run time library.
     Copyright (c) 2019 by the Free Pascal development team
     Copyright (c) 2019 by the Free Pascal development team
 
 
-    Stabs Line Info Retriever, MorphOS version
+    Stabs Line Info Retriever, Amiga-NG version
     can parse relocatable ELF executables
     can parse relocatable ELF executables
 
 
     See the file COPYING.FPC, included in this distribution,
     See the file COPYING.FPC, included in this distribution,
@@ -327,7 +327,7 @@ begin
           end;
           end;
 {$endif}
 {$endif}
 {$ifdef cpupowerpc}
 {$ifdef cpupowerpc}
-        inc(stab[j].nvalue,rela^.r_addend);
+        inc(stab[j].nvalue,rel^.r_addend);
 {$endif}
 {$endif}
       end;
       end;
   until not GetNextReloc;
   until not GetNextReloc;