[fpc-devel] Passing consts to const

[Alexey Barkovoy]

> procedure TestBuf(const Buf; Size: Integer);
> begin
> end;
>
>
> It should work. AFAIR, typed constants are treated exactly as variables with 
> an initial value.

Actually untyped parameters accept anything except numeral or untyped numeric 
constant in Delphi. The meaning of const in this example is contract that 
function will not change passed value.