Ver Fonte

* constant string to widechar added

peter há 24 anos atrás
pai
commit
f7f398a59e
1 ficheiros alterados com 2 adições e 0 exclusões
  1. 2 0
      tests/tbs/tb0349.pp

+ 2 - 0
tests/tbs/tb0349.pp

@@ -8,4 +8,6 @@ begin
    p:=@c1;
    i:=0;
    c2:=p[i];
+   p:='';
+   p:='hello';
 end.