07.10.2014 Views

Complete issue 10:1 as one pdf - TUG

Complete issue 10:1 as one pdf - TUG

Complete issue 10:1 as one pdf - TUG

SHOW MORE
SHOW LESS

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

Page 17: Changes to the Programs and Fonts 20 February 1989<br />

335. Glitch in fixed-point multiplication of negatives (W.G. Sullivan, 17Nov87)<br />

Qx module 572<br />

begin alpha:=16*z; beta:=16;<br />

while z>=Q'40000000 do<br />

begin z:=z div 2; beta:=beta div 2;<br />

end;<br />

QY<br />

begin alpha:=l6;<br />

while z>=Q'40000000 do<br />

begin z:=z div 2; alpha:=alpha+alpha;<br />

end ;<br />

beta: =256 div alpha; alpha: =alpha*z ;<br />

Qz<br />

336. If there are no \patterns and some \lccode is I (Breitenlohner, 12Dec87)<br />

Qx module 952<br />

trie-link(0):=0; trie-char(0):=0; trie-op(0):=0;<br />

QY<br />

trie-link(0):=0; trie-char(0):=0; trie-op(O):=min-quarterword;<br />

Qz<br />

337. \csname might encounter undefined-cs in a group (Chris Thompson, 23~ec87)<br />

Qx module 372<br />

begin eqtb [cur-cs] : =eqtb [f rozen-relax] ;<br />

QY<br />

begin eq-def ine (cur-cs ,relax, 256) ;<br />

Qz<br />

338. \outer\def\aOmatch_token+127) or (inf o (r) match-token+127) or (inf o (r)

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!