From 61e152cc7df4063ca2f5b39ceed99c92a63762db Mon Sep 17 00:00:00 2001 From: martin Date: Thu, 10 Oct 2019 21:30:14 +0000 Subject: [PATCH] FpDebug: accept PChar(nil) as string git-svn-id: trunk@62025 - --- components/fpdebug/fpdbgdwarf.pas | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/components/fpdebug/fpdbgdwarf.pas b/components/fpdebug/fpdbgdwarf.pas index be7ca06dda..3b2d1d30da 100644 --- a/components/fpdebug/fpdbgdwarf.pas +++ b/components/fpdebug/fpdbgdwarf.pas @@ -2008,7 +2008,7 @@ begin t := TypeInfo; if (t <> nil) then t := t.TypeInfo; - if (t <> nil) and (t.Kind = skChar) and IsReadableMem(GetDerefAddress) then begin // pchar + if (t <> nil) and (t.Kind = skChar) and IsValidLoc(GetDerefAddress) then begin // pchar if not t.ReadSize(nil, Size) then Size := ZeroSize; case Size.Size of