| [d1e0979] | 1 | //
 | 
|---|
 | 2 | // Cforall Version 1.0.0 Copyright (C) 2015 University of Waterloo
 | 
|---|
 | 3 | //
 | 
|---|
 | 4 | // The contents of this file are covered under the licence agreement in the
 | 
|---|
 | 5 | // file "LICENCE" distributed with Cforall.
 | 
|---|
 | 6 | //
 | 
|---|
 | 7 | // Mangler.h --
 | 
|---|
 | 8 | //
 | 
|---|
 | 9 | // Author           : Richard C. Bilson
 | 
|---|
 | 10 | // Created On       : Sun May 17 21:44:03 2015
 | 
|---|
 | 11 | // Last Modified By : Peter A. Buhr
 | 
|---|
| [07de76b] | 12 | // Last Modified On : Fri Dec 13 14:54:38 2019
 | 
|---|
 | 13 | // Update Count     : 28
 | 
|---|
| [d1e0979] | 14 | //
 | 
|---|
 | 15 | 
 | 
|---|
 | 16 | #include "Mangler.h"
 | 
|---|
 | 17 | #include "SynTree/Type.h"
 | 
|---|
| [0e73845] | 18 | #include "SynTree/Declaration.h"
 | 
|---|
| [d1e0979] | 19 | 
 | 
|---|
 | 20 | namespace SymTab {
 | 
|---|
 | 21 |         namespace Mangler {
 | 
|---|
| [642bc83] | 22 |                 namespace Encoding {
 | 
|---|
 | 23 |                         const std::string manglePrefix = "_X";
 | 
|---|
| [ada4575] | 24 | 
 | 
|---|
| [e15853c] | 25 |                         // GENERATED START, DO NOT EDIT
 | 
|---|
| [6fd1955] | 26 |                         // GENERATED BY BasicTypes-gen.cc
 | 
|---|
| [cdcddfe1] | 27 |                         // NOTES ON MANGLING:
 | 
|---|
 | 28 |                         // * Itanium spec says that Float80 encodes to "e" (like LongDouble), but the distinct lengths cause resolution problems.
 | 
|---|
 | 29 |                         // * Float128 is supposed to encode to "g", but I wanted it to mangle equal to LongDouble.
 | 
|---|
 | 30 |                         // * Mangling for non-standard complex types is by best guess
 | 
|---|
 | 31 |                         // * _FloatN is supposed to encode as "DF"N"_"; modified for same reason as above.
 | 
|---|
 | 32 |                         // * unused mangling identifiers:
 | 
|---|
 | 33 |                         //   - "z" ellipsis
 | 
|---|
 | 34 |                         //   - "Dd" IEEE 754r 64-bit decimal floating point (borrowed for _Float32x)
 | 
|---|
 | 35 |                         //   - "De" IEEE 754r 128-bit decimal floating point
 | 
|---|
 | 36 |                         //   - "Df" IEEE 754r 32-bit decimal floating point
 | 
|---|
 | 37 |                         //   - "Dh" IEEE 754r 16-bit decimal floating point (borrowed for _Float16)
 | 
|---|
 | 38 |                         //   - "DF"N"_" ISO/IEC TS 18661 N-bit binary floating point (_FloatN)
 | 
|---|
 | 39 |                         //   - "Di" char32_t
 | 
|---|
 | 40 |                         //   - "Ds" char16_t
 | 
|---|
 | 41 |                         const std::string basicTypes[BasicType::NUMBER_OF_BASIC_TYPES] = {
 | 
|---|
 | 42 |                                 "b",        // _Bool
 | 
|---|
| [e15853c] | 43 |                                 "c",        // char
 | 
|---|
 | 44 |                                 "a",        // signed char
 | 
|---|
 | 45 |                                 "h",        // unsigned char
 | 
|---|
 | 46 |                                 "s",        // signed short int
 | 
|---|
 | 47 |                                 "t",        // unsigned short int
 | 
|---|
 | 48 |                                 "i",        // signed int
 | 
|---|
 | 49 |                                 "j",        // unsigned int
 | 
|---|
 | 50 |                                 "l",        // signed long int
 | 
|---|
 | 51 |                                 "m",        // unsigned long int
 | 
|---|
 | 52 |                                 "x",        // signed long long int
 | 
|---|
 | 53 |                                 "y",        // unsigned long long int
 | 
|---|
 | 54 |                                 "n",        // __int128
 | 
|---|
 | 55 |                                 "o",        // unsigned __int128
 | 
|---|
| [cdcddfe1] | 56 |                                 "DF16_",    // _Float16
 | 
|---|
| [e15853c] | 57 |                                 "CDF16_",   // _Float16 _Complex
 | 
|---|
| [cdcddfe1] | 58 |                                 "DF32_",    // _Float32
 | 
|---|
| [e15853c] | 59 |                                 "CDF32_",   // _Float32 _Complex
 | 
|---|
 | 60 |                                 "f",        // float
 | 
|---|
 | 61 |                                 "Cf",       // float _Complex
 | 
|---|
| [cdcddfe1] | 62 |                                 "DF32x_",   // _Float32x
 | 
|---|
| [e15853c] | 63 |                                 "CDF32x_",  // _Float32x _Complex
 | 
|---|
| [cdcddfe1] | 64 |                                 "DF64_",    // _Float64
 | 
|---|
| [e15853c] | 65 |                                 "CDF64_",   // _Float64 _Complex
 | 
|---|
 | 66 |                                 "d",        // double
 | 
|---|
 | 67 |                                 "Cd",       // double _Complex
 | 
|---|
| [cdcddfe1] | 68 |                                 "DF64x_",   // _Float64x
 | 
|---|
| [e15853c] | 69 |                                 "CDF64x_",  // _Float64x _Complex
 | 
|---|
| [cdcddfe1] | 70 |                                 "Dq",       // __float80
 | 
|---|
 | 71 |                                 "DF128_",   // _Float128
 | 
|---|
| [e15853c] | 72 |                                 "CDF128_",  // _Float128 _Complex
 | 
|---|
| [cdcddfe1] | 73 |                                 "g",        // __float128
 | 
|---|
| [e15853c] | 74 |                                 "e",        // long double
 | 
|---|
 | 75 |                                 "Ce",       // long double _Complex
 | 
|---|
| [cdcddfe1] | 76 |                                 "DF128x_",  // _Float128x
 | 
|---|
| [e15853c] | 77 |                                 "CDF128x_", // _Float128x _Complex
 | 
|---|
 | 78 |                         }; // basicTypes
 | 
|---|
 | 79 |                         // GENERATED END
 | 
|---|
| [ada4575] | 80 |                         static_assert(
 | 
|---|
 | 81 |                                 sizeof(basicTypes)/sizeof(basicTypes[0]) == BasicType::NUMBER_OF_BASIC_TYPES,
 | 
|---|
 | 82 |                                 "Each basic type kind should have a corresponding mangler letter"
 | 
|---|
 | 83 |                         );
 | 
|---|
| [d1e0979] | 84 | 
 | 
|---|
| [642bc83] | 85 |                         const std::map<int, std::string> qualifiers = {
 | 
|---|
| [7804e2a] | 86 |                                 { Type::Const, "K" },
 | 
|---|
| [642bc83] | 87 |                                 { Type::Volatile, "V" },
 | 
|---|
| [90ed538] | 88 |                                 { Type::Atomic, "DA" }, // A is array, so need something unique for atmoic. For now, go with multiletter DA
 | 
|---|
| [7804e2a] | 89 |                                 { Type::Mutex, "X" },
 | 
|---|
| [642bc83] | 90 |                         };
 | 
|---|
 | 91 | 
 | 
|---|
| [7804e2a] | 92 |                         const std::string void_t = "v";
 | 
|---|
| [642bc83] | 93 |                         const std::string zero = "Z";
 | 
|---|
 | 94 |                         const std::string one = "O";
 | 
|---|
 | 95 | 
 | 
|---|
 | 96 |                         const std::string function = "F";
 | 
|---|
 | 97 |                         const std::string tuple = "T";
 | 
|---|
 | 98 |                         const std::string pointer = "P";
 | 
|---|
 | 99 |                         const std::string array = "A";
 | 
|---|
 | 100 |                         const std::string qualifiedTypeStart = "N";
 | 
|---|
 | 101 |                         const std::string qualifiedTypeEnd = "E";
 | 
|---|
 | 102 | 
 | 
|---|
| [0e73845] | 103 |                         const std::string forall = "Q";
 | 
|---|
 | 104 |                         const std::string typeVariables[] = {
 | 
|---|
 | 105 |                                 "BD", // dtype
 | 
|---|
| [07de76b] | 106 |                                 "BO", // otype
 | 
|---|
| [0e73845] | 107 |                                 "BF", // ftype
 | 
|---|
 | 108 |                                 "BT", // ttype
 | 
|---|
 | 109 |                         };
 | 
|---|
 | 110 |                         static_assert(
 | 
|---|
 | 111 |                                 sizeof(typeVariables)/sizeof(typeVariables[0]) == TypeDecl::NUMBER_OF_KINDS,
 | 
|---|
 | 112 |                                 "Each type variable kind should have a corresponding mangler prefix"
 | 
|---|
 | 113 |                         );
 | 
|---|
 | 114 | 
 | 
|---|
| [7804e2a] | 115 |                         const std::string struct_t = "S";
 | 
|---|
 | 116 |                         const std::string union_t = "U";
 | 
|---|
 | 117 |                         const std::string enum_t = "M";
 | 
|---|
| [d8cb7df] | 118 |                         const std::string type = "Y";
 | 
|---|
| [7804e2a] | 119 | 
 | 
|---|
| [642bc83] | 120 |                         const std::string autogen = "autogen__";
 | 
|---|
 | 121 |                         const std::string intrinsic = "intrinsic__";
 | 
|---|
 | 122 |                 } // namespace Encoding
 | 
|---|
| [d1e0979] | 123 |         } // namespace Mangler
 | 
|---|
 | 124 | } // namespace SymTab
 | 
|---|