[fpc-pascal] Label

[Rainer Stratmann]

Is it possible to get the adress of a label in a procedure?


label mark1;

procedure s;
begin
 mark1:
end;

var p : pointer;

begin
 p := @mark1;  // does not work;
end;