Am 04.02.2016 05:46 schrieb "Martin" <f...@mfriebe.de>:
>
> just found some issues
>
> Neither syntax works in constant evaluation.
> Not sure if they should, so asking here (the 2nd syntax is operator like,
so kind of expected it would)
>
> both cause an internal error trying to take the address of the returned
candidate.
> Then again this might not be a valid operation, but instead of internal
error it should then give a more proper error.
>
> program Project1;
> {$mode objfpc}
> const a = 1 + 2;
> //const a = ifthen(true, 1,2);
> //const a = if true then 1 else 2;
> var b: integer;
> var x : pointer;
> begin
> //x := @( if false then b else b); // internal error
> //x := @( ifthen( false , b , b)); // internal error
> writeln(a);
> writeln(ptrint(x));
> readln;
> end.
>
>
> Another internal error when using with the in operator.
> program Project1;
> {$mode objfpc}
> var b: integer;
> begin
> b := 1;
> writeln(b in [1,2] );
> //writeln(b in ifthen( true , [1,2] , [3.4])); // internal error
> //writeln(b in if true then [1,2] else [3.4]); // internal error
> readln;
> end.
>
>
> And this compiles, but nothing get incremented.
> If it should not work, then should it give an error?
> (such as "variable identifier expected" which you get when you try to
pass other not incrementable expressions )
>
> program Project1;
> {$mode objfpc}
> var b: integer;
> begin
> b := 0;
> writeln(b);
> inc( if true then b else b );
> writeln(b);
> inc( ifthen( true ,b ,b ));
> writeln(b);
> readln;
> end.
>
> same with readln
> readln( if true then b else b );
> writeln(b);
> readln( ifthen( true ,b ,b ));
> writeln(b);
Would you please report all three of them? I don't necessarily know the
best solution for problems 1 and 3, but internal errors definitely aren't
the answer...
Regards,
Sven
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-devel
