[fpc-pascal] exceptions

[JoshyFun]

Hello FPC-Pascal,

Thursday, May 28, 2009, 9:58:23 PM, you wrote:

RS> Shrinked down example of the program.
RS> Rainer
[...]
RS> procedure memclr( p : pointer ; len : longint );
RS> var x : longint;
RS> begin
RS>  for x := 1 to len do begin
RS>   byte( p^ ) := 0;
RS>   inc( p );
RS>  end;
RS> end;

Aside from the socket problem, can somebody explain me this line:

RS>   byte( p^ ) := 0;

????????????? from my point of view it should be "PBYTE(P)^:=0;" am I
missing something ?

-- 
Best regards,
 JoshyFun