ref: 6b84c3a6548f1c577948763b0a09a7b6e2460e04
dir: /utils/qc/machcap.c/
#include "gc.h"
int
machcap(Node *n)
{
if(n == Z)
return 1; /* test */
switch(n->op){
case OADD:
case OAND:
case OOR:
case OSUB:
case OXOR:
if(typev[n->left->type->etype])
return 1;
break;
case OMUL:
case OLMUL:
case OASMUL:
case OASLMUL:
return 1;
case OLSHR:
case OASHR:
case OASHL:
case OASASHL:
case OASASHR:
case OASLSHR:
return 1;
case OCAST:
if(typev[n->type->etype]) {
if(!typefd[n->left->type->etype])
return 1;
} else if(!typefd[n->type->etype]) {
if(typev[n->left->type->etype])
return 1;
}
break;
case OCOMMA:
case OCOND:
case OLIST:
case OANDAND:
case OOROR:
case ONOT:
return 1;
case OCOM:
case ONEG:
if(typechl[n->left->type->etype])
return 1;
if(typev[n->left->type->etype])
return 1;
return 0;
case OASADD:
case OASSUB:
case OASAND:
case OASOR:
case OASXOR:
return 1;
case OPOSTINC:
case OPOSTDEC:
case OPREINC:
case OPREDEC:
return 1;
case OEQ:
case ONE:
case OLE:
case OGT:
case OLT:
case OGE:
case OHI:
case OHS:
case OLO:
case OLS:
return 1;
case ODIV:
case OLDIV:
case OLMOD:
case OMOD:
return 0;
case OASDIV:
case OASLDIV:
case OASLMOD:
case OASMOD:
return 0;
}
return 0;
}