Waldek Hebisch wrote:
I have put a new gpc snapshot at:
[p17:~/gpc/testgpc/adriaan] adriaan% cat cast.pas program Cast;
var theItem: PtrInt;
procedure DisposeP( var thePtr: Pointer); begin if thePtr <> nil then begin Dispose( thePtr); thePtr:= nil end end;
begin theItem:= 0; DisposeP( Pointer( theItem)) end.
[p17:~/gpc/testgpc/adriaan] adriaan% gp cast.pas /Users/adriaan/gnu/gpc/testgpc/adriaan/cast.pas: In main program: /Users/adriaan/gnu/gpc/testgpc/adriaan/cast.pas:17: error: reference expected, value given in argument 1 /Users/adriaan/gnu/gpc/testgpc/adriaan/cast.pas:6: error: routine declaration
This compiled previously without errors with the gpc-20051116 snapshot.
Regards,
Adriaan van Os