{ Old file: tbs0022.pp } { tests getting the address of a method OK 0.9.3 } type tobject = object procedure x; constructor c; end; procedure a; begin end; procedure tobject.x; begin end; constructor tobject.c; begin end; var p : codepointer; begin p:=@a; p:=@tobject.x; p:=@tobject.c; end.