Browse Source

* fix for #26165, wrong ascii range.

git-svn-id: branches/fixes_2_6@27788 -
marco 11 years ago
parent
commit
a73af561ea
1 changed files with 1 additions and 1 deletions
  1. 1 1
      compiler/cresstr.pas

+ 1 - 1
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)