github.com/akaros/go-akaros@v0.0.0-20181004170632-85005d477eab/src/cmd/6c/machcap.c (about)

     1  // Inferno utils/6c/machcap.c
     2  // http://code.google.com/p/inferno-os/source/browse/utils/6c/machcap.c
     3  //
     4  //	Copyright © 1994-1999 Lucent Technologies Inc.  All rights reserved.
     5  //	Portions Copyright © 1995-1997 C H Forsyth (forsyth@terzarima.net)
     6  //	Portions Copyright © 1997-1999 Vita Nuova Limited
     7  //	Portions Copyright © 2000-2007 Vita Nuova Holdings Limited (www.vitanuova.com)
     8  //	Portions Copyright © 2004,2006 Bruce Ellis
     9  //	Portions Copyright © 2005-2007 C H Forsyth (forsyth@terzarima.net)
    10  //	Revisions Copyright © 2000-2007 Lucent Technologies Inc. and others
    11  //	Portions Copyright © 2009 The Go Authors.  All rights reserved.
    12  //
    13  // Permission is hereby granted, free of charge, to any person obtaining a copy
    14  // of this software and associated documentation files (the "Software"), to deal
    15  // in the Software without restriction, including without limitation the rights
    16  // to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
    17  // copies of the Software, and to permit persons to whom the Software is
    18  // furnished to do so, subject to the following conditions:
    19  //
    20  // The above copyright notice and this permission notice shall be included in
    21  // all copies or substantial portions of the Software.
    22  //
    23  // THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
    24  // IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
    25  // FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
    26  // AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
    27  // LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
    28  // OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
    29  // THE SOFTWARE.
    30  
    31  #include "gc.h"
    32  
    33  int
    34  machcap(Node *n)
    35  {
    36  
    37  	if(n == Z)
    38  		return 1;	/* test */
    39  
    40  	switch(n->op) {
    41  	case OMUL:
    42  	case OLMUL:
    43  	case OASMUL:
    44  	case OASLMUL:
    45  		if(typechl[n->type->etype])
    46  			return 1;
    47  		if(typev[n->type->etype])
    48  			return 1;
    49  		break;
    50  
    51  	case OCOM:
    52  	case ONEG:
    53  	case OADD:
    54  	case OAND:
    55  	case OOR:
    56  	case OSUB:
    57  	case OXOR:
    58  	case OASHL:
    59  	case OLSHR:
    60  	case OASHR:
    61  		if(typechlv[n->left->type->etype])
    62  			return 1;
    63  		break;
    64  
    65  	case OCAST:
    66  		return 1;
    67  
    68  	case OCOND:
    69  	case OCOMMA:
    70  	case OLIST:
    71  	case OANDAND:
    72  	case OOROR:
    73  	case ONOT:
    74  		return 1;
    75  
    76  	case OASADD:
    77  	case OASSUB:
    78  	case OASAND:
    79  	case OASOR:
    80  	case OASXOR:
    81  		return 1;
    82  
    83  	case OASASHL:
    84  	case OASASHR:
    85  	case OASLSHR:
    86  		return 1;
    87  
    88  	case OPOSTINC:
    89  	case OPOSTDEC:
    90  	case OPREINC:
    91  	case OPREDEC:
    92  		return 1;
    93  
    94  	case OEQ:
    95  	case ONE:
    96  	case OLE:
    97  	case OGT:
    98  	case OLT:
    99  	case OGE:
   100  	case OHI:
   101  	case OHS:
   102  	case OLO:
   103  	case OLS:
   104  		return 1;
   105  	}
   106  	return 0;
   107  }