#include <u.h>#include <libc.h>#include <bio.h>#include <ctype.h>#define Extern extern#include "parl.h"#include "globl.h" /* * Compile floating expressions */voidgenfexp(Node *rval, Node *lval){	Node *l, *r, nl; 	l = rval->left;	r = rval->right; 	switch(rval->type) {	case OADD:	case OSUB:	case ODIV:	case OMUL:		if(l->sun >= r->sun) {			genexp(l, F0);			if(isaddr(r))				codfop(rval, r, F0, FNONE);			else {				genexp(r, F0);				codfop(rval, F0, F1, FPOP);			}		}		else {			genexp(r, F0);			if(isaddr(l))				codfop(rval, l, F0, FREV);			else {				genexp(l, F0);				codfop(rval, F0, F1, FPOP|FREV);			}		}		assign(F0, lval);		break; 	case OADDEQ:	case OSUBEQ:	case ODIVEQ:	case OMULEQ:		while(l->type == OCONV)			l = l->left; 		if(l->sun >= r->sun) {			toaddr(l, &nl);			genexp(r, F0);		}		else {			genexp(r, F0);			toaddr(l, &nl);		} 		if(l->t->type != TFLOAT) {			assign(&nl, F0);			codfop(rval, F0, F1, FPOP|FREV);		}		else			codfop(rval, &nl, F0, FREV); 		if(lval != ZeroN)			instruction(AFMOVD, F0, F0); 		assign(F0, &nl);		if(lval != ZeroN)			assign(F0, lval); 		if(!isaddr(l))			regfree(&nl);		break;	}}