Browse Source

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

git-svn-id: trunk@41094 -
Károly Balogh 6 years ago
parent
commit
6d279fdbb9
1 changed files with 2 additions and 2 deletions
  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;