* allow evaluation of upper ascii chars

git-svn-id: trunk@13812 -
This commit is contained in:
marc 2008-01-20 23:58:59 +00:00
parent b512ff2787
commit f5ec643614

View File

@ -1071,7 +1071,7 @@ function TGDBMIDebugger.GDBEvaluate(const AExpression: String;
for n := 1 to Length(AString) do
begin
case AString[n] of
' '..#127: begin
' '..#127, #128..#255: begin
if not InString
then begin
InString := True;