mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-02 03:16:23 +02:00
* allow evaluation of upper ascii chars
git-svn-id: trunk@13812 -
This commit is contained in:
parent
b512ff2787
commit
f5ec643614
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user