{ %fail }
var
  p1, p2: pointer;
begin
  dec(p1,p2);
end.