procedure sneg(var x: scalar);
var
  r: hreal;
begin  { sneg }
  with x do begin
    r:=l;
    l:=u;
    u:=r;
    l.si:=-l.si;
    u.si:=-u.si;
  end;
end { sneg };

