[fpc-pascal] const parameter writeable

[L505]

> 
> > did you mean this ? :
> >
> >    procedure ChangeRec1(const Rec: TSomeRec);
> >    begin
> >      Rec.a:= 'string A';
> >    end;
> >
> > Because I can't pass a PSomeRec to that function, only a TSomeRec
> 
> Then pass a PSomeRec^ to it if you don't intend to change the pointer  
> anyway.
> 

That works, I was getting sloppy with Delphi style code who doesn't always require the ^