On 1/12/23 10:29 AM, Mattias Gaertner via fpc-devel wrote:
On Wed, 11 Jan 2023 23:58:34 +0100
Bart via fpc-devel <fpc-devel@lists.freepascal.org> wrote:
[...]
begin
   with WideStringManager do
   begin
     writeln(1);
     Wide2AnsiMoveProc(pwidechar(WSource),RawByteString(ADest),
CP_UTF8, Length(WSource));
     writeln(2);
     Ansi2WideMoveProc(PChar(ASource), CP_UTF8, UDest,
Length(ASource));   //<< test.lpr(24,53) Error: Can't take the address
of constant expressions (caret behind UDest)
end.

First of all, adding a 'end;" for the "with" compiles under Linux.
That's because widestring=unicodestring on Linux.

i'm a little surprised there is no "mismatched begin/end" error with the caret pointing to the 2nd begin...

--
 NOTE: No off-list assistance is given without prior approval.
       *Please keep mailing list traffic on the list where it belongs!*
_______________________________________________
fpc-devel maillist  -  fpc-devel@lists.freepascal.org
https://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel

Reply via email to