diff --git a/compiler/aggas.pas b/compiler/aggas.pas index bce020e2eb..b06cb0696c 100644 --- a/compiler/aggas.pas +++ b/compiler/aggas.pas @@ -1303,11 +1303,12 @@ implementation end; ch:=tai_string(hp).str[i-1]; case ch of - #0, {This can't be done by range, because a bug in FPC} - #1..#31, - #128..#255 : s:='\'+tostr(ord(ch) shr 6)+tostr((ord(ch) and 63) shr 3)+tostr(ord(ch) and 7); - '"' : s:='\"'; - '\' : s:='\\'; + #0, {This can't be done by range, because a bug in FPC} + #1..#31, + '"',#128..#255: + s:='\'+tostr(ord(ch) shr 6)+tostr((ord(ch) and 63) shr 3)+tostr(ord(ch) and 7); + '\': + s:='\\'; else s:=ch; end;