From ea9d796ce5bfe7879d2b9b83eac5a4417d46568f Mon Sep 17 00:00:00 2001 From: martin Date: Mon, 20 Dec 2010 11:12:04 +0000 Subject: [PATCH] DBG: fix potential range check git-svn-id: trunk@28789 - --- debugger/gdbtypeinfo.pp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/debugger/gdbtypeinfo.pp b/debugger/gdbtypeinfo.pp index 1bb1d95526..bf176be160 100644 --- a/debugger/gdbtypeinfo.pp +++ b/debugger/gdbtypeinfo.pp @@ -564,7 +564,7 @@ begin end else - if (S[1] = '^') + if ((S <> '') and (S[1] = '^')) or ((ParsedWhatIsValue <> '') and (ParsedWhatIsValue[1] = '^')) or ((ParsedWhatIsType <> '') and (ParsedWhatIsType[1] = '^')) then begin