Changeset ba01b14 for src/Parser/TypeData.cc

Timestamp:

Feb 11, 2019, 6:46:56 PM (5 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, persistent-indexer, pthread-emulation, qualifiedEnum

Children:

cdcddfe1

Parents:

0e66857

Message:

update constant parsing add _FloatNN

File:

• src/Parser/TypeData.cc (modified) (4 diffs)

src/Parser/TypeData.cc

@@ -10 +10 @@
 // Created On       : Sat May 16 15:12:51 2015
 // Last Modified By : Peter A. Buhr
-// Last Modified On : Fri Nov  2 07:54:26 2018
-// Update Count     : 624
+// Last Modified On : Fri Feb  8 09:36:26 2019
+// Update Count     : 645
 //
 
@@ -629 +629 @@
                 } // if
 
-                ret = BasicType::Bool;
+                ret = BasicType::_Bool;
                 break;
 
@@ -666 +666 @@
 
           case DeclarationNode::Float:
+          case DeclarationNode::Double:
+          case DeclarationNode::LongDouble:                                     // not set until below
           case DeclarationNode::Float80:
           case DeclarationNode::Float128:
-          case DeclarationNode::Double:
-          case DeclarationNode::LongDouble:                                     // not set until below
-                static BasicType::Kind floattype[3][3] = {
-                        { BasicType::FloatComplex, BasicType::DoubleComplex, BasicType::LongDoubleComplex },
-                        { BasicType::FloatImaginary, BasicType::DoubleImaginary, BasicType::LongDoubleImaginary },
-                        { BasicType::Float, BasicType::Double, BasicType::LongDouble },
+          case DeclarationNode::_Float16:
+          case DeclarationNode::_Float32:
+          case DeclarationNode::_Float32x:
+          case DeclarationNode::_Float64:
+          case DeclarationNode::_Float64x:
+          case DeclarationNode::_Float128:
+          case DeclarationNode::_Float128x:
+                static BasicType::Kind floattype[2][12] = {
+                        { BasicType::FloatComplex, BasicType::DoubleComplex, BasicType::LongDoubleComplex, (BasicType::Kind)-1, (BasicType::Kind)-1, BasicType::_Float16Complex, BasicType::_Float32Complex, BasicType::_Float32xComplex, BasicType::_Float64Complex, BasicType::_Float64xComplex, BasicType::_Float128Complex, BasicType::_Float128xComplex, },
+                        { BasicType::Float, BasicType::Double, BasicType::LongDouble, BasicType::__float80, BasicType::__float128, BasicType::_Float16, BasicType::_Float32, BasicType::_Float32x, BasicType::_Float64, BasicType::_Float64x, BasicType::_Float128, BasicType::_Float128x, },
                 };
 
@@ -686 +692 @@
                         genTSError( DeclarationNode::lengthNames[ td->length ], td->basictype );
                 } // if
+                if ( td->complextype == DeclarationNode::Imaginary ) {
+                        genTSError( DeclarationNode::complexTypeNames[ td->complextype ], td->basictype );
+                } // if
+                if ( (td->basictype == DeclarationNode::Float80 || td->basictype == DeclarationNode::Float128) && td->complextype == DeclarationNode::Complex ) { // gcc unsupported
+                        genTSError( DeclarationNode::complexTypeNames[ td->complextype ], td->basictype );
+                } // if
                 if ( td->length == DeclarationNode::Long ) {
                         const_cast<TypeData *>(td)->basictype = DeclarationNode::LongDouble;
                 } // if
 
-                if ( td->basictype == DeclarationNode::Float80 || td->basictype == DeclarationNode::Float128 ) {
-                        // if ( td->complextype != DeclarationNode::NoComplexType ) {
-                        //      genTSError( DeclarationNode::complexTypeNames[ td->complextype ], td->basictype );
-                        // }
-                        if ( td->basictype == DeclarationNode::Float80 ) ret = BasicType::Float80;
-                        else ret = BasicType::Float128;
-                        break;
-                }
-
                 ret = floattype[ td->complextype ][ td->basictype - DeclarationNode::Float ];
+                //printf( "XXXX %d %d %d %d\n", td->complextype, td->basictype, DeclarationNode::Float, ret );
                 break;