|
@@ -433,10 +433,9 @@ implementation
|
|
constructor trangenode.create(l,r : tnode);
|
|
constructor trangenode.create(l,r : tnode);
|
|
var
|
|
var
|
|
value: string;
|
|
value: string;
|
|
-
|
|
|
|
begin
|
|
begin
|
|
- { if right is char and left is string then }
|
|
|
|
- { right should be treated as one-symbol string }
|
|
|
|
|
|
+ { if right is char and left is string then
|
|
|
|
+ right should be treated as one-symbol string }
|
|
if is_conststringnode(l) and is_constcharnode(r) then
|
|
if is_conststringnode(l) and is_constcharnode(r) then
|
|
begin
|
|
begin
|
|
value := char(tordconstnode(r).value.uvalue) + ''#0;
|
|
value := char(tordconstnode(r).value.uvalue) + ''#0;
|