Intel XENIX 286 Programmers Guide (86) - Tenox.tc

yacc: Compiler-Compiler
10-36
vexp : dexp
{ $$.hi = $$.1o = $1; }
I '(' dexp ',' dexp ')'
{
$$.1o = $2;
$$.hi = $4;
if( $$.1o > $$.hi ){
printf("interval out of order\n");
YYERROR;
}
}
IVREG
{ $$ = vreg[$1 ]; }
I vexp ' + ' vexp
{$$.hi = $1.hi + $3.hi;
$$.1o = $1.1o + $3.1o; }
I dexp ' + ' vexp
{$$.hi = $1 + $3.hi;
$$.1o = $1 + $3.1o; }
I vexp '-' vexp
{ $$.hi = $1.hi -$3.1o;
$$.1o = $1.1o -$3.hi; }
I dexp '-' vexp
{$$.hi = $1 -$3.1o;
$$.1o = $1 -$3.hi;}
l vexp '*' vexp
{ $$ = vmul( $1.1o, $1.hi, $3 ); }
I dexp '*' vexp
{ $$ = vmul($1,$1 ,$3); }
I vexp '/' vexp
{ if ( dcheck( $3 )) YYERROR;
$$ = vdiv( $1.1o, $1.hi, $3 ); }
I dexp '/' vexp
{ if ( dcheck( $3 )) YYERROR;
$$ = vdiv( $1, $1,$3 ); }
I '-' vexp %prec UMI NUS
{ $$.hi = -$2.1o; $$.Ia = -$2.hi; }
I '(' vexp ')'
{ $$ = $2; }
%%
# define BSZ 50 /* buffer size for fp numbers */
XENIX Programming