b29d5ac7b1
this is the the initial sync of charles forsyths plan9 c compiler suite from http://bitbucket.org/plan9-from-bell-labs/9-cc at changeset version 54:65fb8bb56c59
82 lines
926 B
C
82 lines
926 B
C
#include "gc.h"
|
|
|
|
int
|
|
machcap(Node *n)
|
|
{
|
|
|
|
if(n == Z)
|
|
return 1; /* test */
|
|
|
|
switch(n->op) {
|
|
case OMUL:
|
|
case OLMUL:
|
|
case OASMUL:
|
|
case OASLMUL:
|
|
if(typechlv[n->type->etype])
|
|
return 1;
|
|
break;
|
|
|
|
case OADD:
|
|
case OAND:
|
|
case OOR:
|
|
case OSUB:
|
|
case OXOR:
|
|
case OASHL:
|
|
case OLSHR:
|
|
case OASHR:
|
|
if(typechlv[n->left->type->etype])
|
|
return 1;
|
|
break;
|
|
|
|
case OCAST:
|
|
return 1;
|
|
|
|
case OCOND:
|
|
case OCOMMA:
|
|
case OLIST:
|
|
case OANDAND:
|
|
case OOROR:
|
|
case ONOT:
|
|
return 1;
|
|
|
|
case OASADD:
|
|
case OASSUB:
|
|
case OASAND:
|
|
case OASOR:
|
|
case OASXOR:
|
|
return 1;
|
|
|
|
case OASASHL:
|
|
case OASASHR:
|
|
case OASLSHR:
|
|
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 ONEG:
|
|
if(typechlv[n->left->type->etype])
|
|
return 1;
|
|
break;
|
|
|
|
case OCOM:
|
|
break;
|
|
}
|
|
return 0;
|
|
}
|