ref: 12e226ac6798412271020d42645f69138715c519
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; }