diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-05-14 15:11:09 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2014-05-14 15:11:09 +0000 |
commit | dda0437027870d3fa2dff651d6e3a5c86d1e77e3 (patch) | |
tree | ba189a0c2227784fb2ecddd2afe3a142b7d7663b | |
parent | e107bbaef70cc356a5e0dad8085114f23d387912 (diff) | |
download | fpc-fixes_2_6.tar.gz |
* fix for #26165, wrong ascii range.fixes_2_6
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_6@27788 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | compiler/cresstr.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/compiler/cresstr.pas b/compiler/cresstr.pas index 84fd58b584..714a230614 100644 --- a/compiler/cresstr.pas +++ b/compiler/cresstr.pas @@ -248,7 +248,7 @@ uses For I:=0 to R.Len-1 do begin C:=R.Value[i]; - If (ord(C)>31) and (Ord(c)<=128) and (c<>'''') then + If (ord(C)>31) and (Ord(c)<128) and (c<>'''') then begin If mode=Quoted then Add(c) |