Changeset da602aec for src

Timestamp:

Aug 3, 2021, 10:47:58 AM (3 years ago)

Author:

Henry Xue <y58xue@…>

Branches:

ADT, ast-experimental, enum, forall-pointer-decay, jacob/cs343-translation, master, new-ast-unique-expr, pthread-emulation, qualifiedEnum

Children:

df5b2c8

Parents:

42a02ce

git-author:

Henry Xue <y58xue@…> (08/03/21 10:43:53)

git-committer:

Henry Xue <y58xue@…> (08/03/21 10:47:58)

Message:

Fix forall variant extern vtable decls

File:

• src/ControlStruct/ExceptDecl.cc (modified) (3 diffs)

src/ControlStruct/ExceptDecl.cc

@@ -10 +10 @@
 // Created On       : Tue Jul 20 04:10:50 2021
 // Last Modified By : Henry Xue
-// Last Modified On : Mon Jul 26 12:55:28 2021
-// Update Count     : 3
+// Last Modified On : Tue Aug 03 10:42:26 2021
+// Update Count     : 4
 //
 
@@ -278 +278 @@
         cloneAll( forallClause, structDecl->parameters );
         return structDecl;
+}
+
+ObjectDecl * ehmTypeIdExtern(
+        const std::string & exceptionName,
+        const std::list< Expression *> & parameters
+) {
+        StructInstType * typeIdType = new StructInstType(
+                Type::Const,
+                Virtual::typeIdType( exceptionName )
+        );
+        cloneAll( parameters, typeIdType->parameters );
+        return new ObjectDecl(
+                Virtual::typeIdName( exceptionName ),
+                Type::Extern,
+                LinkageSpec::Cforall,
+                nullptr,
+                typeIdType,
+                nullptr,
+                { new Attribute( "cfa_linkonce" ) }
+        );
 }
 
@@ -421 +441 @@
 
                 if ( objectDecl->get_storageClasses().is_extern ) { // if extern
+                        if ( !parameters.empty() ) { // forall variant
+                                declsToAddBefore.push_back( ehmTypeIdExtern( exceptionName, parameters ) );
+                        }
                         return ehmExternVtable( exceptionName, parameters, tableName );
                 }