From 1ec8a3bde9a82ab7236b5a292dfcf024baf14a69 Mon Sep 17 00:00:00 2001
From: michael <michael@freepascal.org>
Date: Fri, 12 Jun 2015 07:17:37 +0000
Subject: [PATCH] * Small corrections to previous patch from Denis Kozlov (bug
 ID 13518)

git-svn-id: trunk@31026 -
---
 rtl/inc/lineinfo.pp | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/rtl/inc/lineinfo.pp b/rtl/inc/lineinfo.pp
index 99e458d0ad..f9e6cff266 100644
--- a/rtl/inc/lineinfo.pp
+++ b/rtl/inc/lineinfo.pp
@@ -22,8 +22,13 @@ interface
 {$S-}
 {$Q-}
 
+{$IF FPC_VERSION<3}
+Type 
+  CodePointer = Pointer;
+{$ENDIF}
+
 function GetLineInfo(addr:ptruint;var func,source:string;var line:longint) : boolean;
-function StabBackTraceStr(addr:{$IF FPC_VERSION>=3}CodePointer{$ELSE}Pointer{$ENDIF}):string;
+function StabBackTraceStr(addr:CodePointer):string;
 procedure CloseStabs;
 
 implementation
@@ -94,7 +99,7 @@ begin
   writeln(stderr,filename,' Baseaddr: ',hexstr(ptruint(baseaddr),sizeof(baseaddr)*2));
 {$endif DEBUG_LINEINFO}
 
-  // Check if GetModuleByAddr has work
+  // Check if GetModuleByAddr has worked
   if filename = '' then
     exit;
 
@@ -289,7 +294,7 @@ begin
 end;
 
 
-function StabBackTraceStr(addr:{$IF FPC_VERSION>=3}CodePointer{$ELSE}Pointer{$ENDIF}):string;
+function StabBackTraceStr(addr:CodePointer):string;
 var
   func,
   source : string;