From 3e1cd7e52609ab90ac2bbb6a8d9f498aaddb5297 Mon Sep 17 00:00:00 2001
From: joost <joost@lazarus-ide.org>
Date: Thu, 29 May 2014 19:59:27 +0000
Subject: [PATCH] FpDebug: Read FORM_strp string values

git-svn-id: trunk@45225 -
---
 components/fpdebug/fpdbgdwarfdataclasses.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/components/fpdebug/fpdbgdwarfdataclasses.pas b/components/fpdebug/fpdbgdwarfdataclasses.pas
index d2a67a1cd4..0e083f82f2 100644
--- a/components/fpdebug/fpdbgdwarfdataclasses.pas
+++ b/components/fpdebug/fpdbgdwarfdataclasses.pas
@@ -4066,7 +4066,7 @@ begin
       AValue := PChar(AAttribute);
     end;
     DW_FORM_strp:   begin
-      AValue := 'TODO';
+      AValue := pchar(PtrUInt(FOwner.Sections[dsStr].RawData)+PDWord(AAttribute)^);
     end;
   else
     Result := False;
@@ -4118,7 +4118,7 @@ begin
       AValue := PChar(AAttribute);
     end;
     DW_FORM_strp:   begin
-      AValue := 'TODO';
+      AValue := PChar(PtrUInt(FOwner.Sections[dsStr].RawData)+PDWord(AAttribute)^);
     end;
   else
     Result := False;