From dda0437027870d3fa2dff651d6e3a5c86d1e77e3 Mon Sep 17 00:00:00 2001
From: marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2>
Date: Wed, 14 May 2014 15:11:09 +0000
Subject:  * fix for #26165, wrong ascii range.

git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_2_6@27788 3ad0048d-3df7-0310-abae-a5850022a9f2
---
 compiler/cresstr.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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)
-- 
cgit v1.2.1