[fpc-devel] Passing consts to const

[David Butler]

Hi

The following code snippet gives a compile error: "Error: Can't assign
values to const variable".

It should be legal, since we are passing a const to a const parameter.

It should only give that error if TestBuf was declared as "var Buf"
instead of "const Buf".

Regards
David


{$WRITEABLECONST OFF}

procedure TestBuf(const Buf; Size: Integer);
begin
end;

const A : Byte = 1;

begin
  TestBuf(A, 1);
end.