source: src/ControlStruct/ExceptTranslate.cc @ ba3706f

ADTaaron-thesisarm-ehast-experimentalcleanup-dtorsdeferred_resndemanglerenumforall-pointer-decayjacob/cs343-translationjenkins-sandboxnew-astnew-ast-unique-exprnew-envno_listpersistent-indexerpthread-emulationqualifiedEnumresolv-newwith_gc
Last change on this file since ba3706f was ba3706f, checked in by Rob Schluntz <rschlunt@…>, 6 years ago

Remove label lists from various Statement constructors

  • Property mode set to 100644
File size: 21.5 KB
RevLine 
[ba912706]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// ExceptVisitor.cc --
8//
9// Author           : Andrew Beach
10// Created On       : Wed Jun 14 16:49:00 2017
11// Last Modified By : Andrew Beach
[8f6dfe7]12// Last Modified On : Thr Aug 17 17:19:00 2017
13// Update Count     : 9
[ba912706]14//
15
16#include "ExceptTranslate.h"
[d180746]17
18#include <stddef.h>                   // for NULL
19#include <cassert>                    // for assert, assertf
20#include <iterator>                   // for back_inserter, inserter
21#include <string>                     // for string, operator==
22
23#include "Common/PassVisitor.h"       // for PassVisitor, WithGuards
24#include "Common/SemanticError.h"     // for SemanticError
25#include "Common/utility.h"           // for CodeLocation
26#include "Parser/LinkageSpec.h"       // for Cforall
27#include "SynTree/Attribute.h"        // for Attribute
28#include "SynTree/Constant.h"         // for Constant
29#include "SynTree/Declaration.h"      // for ObjectDecl, FunctionDecl, Struc...
30#include "SynTree/Expression.h"       // for UntypedExpr, ConstantExpr, Name...
31#include "SynTree/Initializer.h"      // for SingleInit, ListInit
[ba3706f]32#include "SynTree/Label.h"            // for Label
[d180746]33#include "SynTree/Mutator.h"          // for mutateAll
34#include "SynTree/Statement.h"        // for CompoundStmt, CatchStmt, ThrowStmt
35#include "SynTree/Type.h"             // for FunctionType, Type, noQualifiers
36#include "SynTree/VarExprReplacer.h"  // for VarExprReplacer, VarExprReplace...
37#include "SynTree/Visitor.h"          // for acceptAll
[ba912706]38
[307a732]39namespace ControlStruct {
[ba912706]40
[948b0c8]41        // Buricratic Helpers (Not having to do with the paritular operation.)
42
43        typedef std::list<CatchStmt*> CatchList;
44
45        void split( CatchList& allHandlers, CatchList& terHandlers,
46                                CatchList& resHandlers ) {
47                while ( !allHandlers.empty() ) {
48                        CatchStmt * stmt = allHandlers.front();
49                        allHandlers.pop_front();
50                        if (CatchStmt::Terminate == stmt->get_kind()) {
51                                terHandlers.push_back(stmt);
52                        } else {
53                                resHandlers.push_back(stmt);
54                        }
55                }
56        }
57
58        void appendDeclStmt( CompoundStmt * block, Declaration * item ) {
[ba3706f]59                block->push_back(new DeclStmt(item));
[948b0c8]60        }
61
62        Expression * nameOf( DeclarationWithType * decl ) {
63                return new VariableExpr( decl );
64        }
65
66        class ExceptionMutatorCore : public WithGuards {
67                enum Context { NoHandler, TerHandler, ResHandler };
68
69                // Also need to handle goto, break & continue.
70                // They need to be cut off in a ResHandler, until we enter another
71                // loop, switch or the goto stays within the function.
72
73                Context cur_context;
74
75                // The current (innermost) termination handler exception declaration.
76                ObjectDecl * handler_except_decl;
77
78                // The built in types used in translation.
79                StructDecl * except_decl;
80                StructDecl * node_decl;
81                StructDecl * hook_decl;
82
83                // The many helper functions for code/syntree generation.
84                Statement * create_given_throw(
85                        const char * throwFunc, ThrowStmt * throwStmt );
86                Statement * create_terminate_throw( ThrowStmt * throwStmt );
87                Statement * create_terminate_rethrow( ThrowStmt * throwStmt );
88                Statement * create_resume_throw( ThrowStmt * throwStmt );
89                Statement * create_resume_rethrow( ThrowStmt * throwStmt );
90                CompoundStmt * take_try_block( TryStmt * tryStmt );
91                FunctionDecl * create_try_wrapper( CompoundStmt * body );
92                FunctionDecl * create_terminate_catch( CatchList &handlers );
93                CompoundStmt * create_single_matcher(
94                        DeclarationWithType * except_obj, CatchStmt * modded_handler );
95                FunctionDecl * create_terminate_match( CatchList &handlers );
96                CompoundStmt * create_terminate_caller( FunctionDecl * try_wrapper,
97                        FunctionDecl * terminate_catch, FunctionDecl * terminate_match );
98                FunctionDecl * create_resume_handler( CatchList &handlers );
99                CompoundStmt * create_resume_wrapper(
100                        Statement * wraps, FunctionDecl * resume_handler );
101                FunctionDecl * create_finally_wrapper( TryStmt * tryStmt );
102                ObjectDecl * create_finally_hook( FunctionDecl * finally_wrapper );
103
104                // Types used in translation, make sure to use clone.
105                // void (*function)();
106                FunctionType try_func_t;
107                // void (*function)(int, exception);
108                FunctionType catch_func_t;
109                // int (*function)(exception);
110                FunctionType match_func_t;
111                // bool (*function)(exception);
112                FunctionType handle_func_t;
113                // void (*function)(__attribute__((unused)) void *);
114                FunctionType finally_func_t;
115
116                StructInstType * create_except_type() {
117                        assert( except_decl );
118                        return new StructInstType( noQualifiers, except_decl );
119                }
120                void init_func_types();
121
122        public:
123                ExceptionMutatorCore() :
124                        cur_context( NoHandler ),
125                        handler_except_decl( nullptr ),
126                        except_decl( nullptr ), node_decl( nullptr ), hook_decl( nullptr ),
127                        try_func_t( noQualifiers, false ),
128                        catch_func_t( noQualifiers, false ),
129                        match_func_t( noQualifiers, false ),
130                        handle_func_t( noQualifiers, false ),
131                        finally_func_t( noQualifiers, false )
[cbce272]132                {}
[948b0c8]133
134                void premutate( CatchStmt *catchStmt );
135                void premutate( StructDecl *structDecl );
136                Statement * postmutate( ThrowStmt *throwStmt );
137                Statement * postmutate( TryStmt *tryStmt );
138        };
139
140        void ExceptionMutatorCore::init_func_types() {
[cbce272]141                assert( except_decl );
142
[ba912706]143                ObjectDecl index_obj(
[288eede]144                        "__handler_index",
[ba912706]145                        Type::StorageClasses(),
146                        LinkageSpec::Cforall,
147                        /*bitfieldWidth*/ NULL,
[ac10576]148                        new BasicType( noQualifiers, BasicType::SignedInt ),
[ba912706]149                        /*init*/ NULL
[307a732]150                        );
[ba912706]151                ObjectDecl exception_obj(
[288eede]152                        "__exception_inst",
[ba912706]153                        Type::StorageClasses(),
154                        LinkageSpec::Cforall,
155                        /*bitfieldWidth*/ NULL,
[307a732]156                        new PointerType(
[ac10576]157                                noQualifiers,
[cbce272]158                                new StructInstType( noQualifiers, except_decl )
[307a732]159                                ),
[ba912706]160                        /*init*/ NULL
[307a732]161                        );
[ba912706]162                ObjectDecl bool_obj(
[288eede]163                        "__ret_bool",
[ba912706]164                        Type::StorageClasses(),
165                        LinkageSpec::Cforall,
166                        /*bitfieldWidth*/ NULL,
[948b0c8]167                        new BasicType( noQualifiers, BasicType::Bool ),
[8f6dfe7]168                        /*init*/ NULL,
169                        std::list<Attribute *>{ new Attribute( "unused" ) }
[307a732]170                        );
171                ObjectDecl voidptr_obj(
172                        "__hook",
173                        Type::StorageClasses(),
174                        LinkageSpec::Cforall,
175                        NULL,
176                        new PointerType(
[ac10576]177                                noQualifiers,
[307a732]178                                new VoidType(
[ac10576]179                                        noQualifiers
[307a732]180                                        ),
[948b0c8]181                                std::list<Attribute *>{ new Attribute( "unused" ) }
[307a732]182                                ),
183                        NULL
184                        );
[ba912706]185
[8f6dfe7]186                ObjectDecl * unused_index_obj = index_obj.clone();
187                unused_index_obj->attributes.push_back( new Attribute( "unused" ) );
188
[307a732]189                catch_func_t.get_parameters().push_back( index_obj.clone() );
190                catch_func_t.get_parameters().push_back( exception_obj.clone() );
[8f6dfe7]191                match_func_t.get_returnVals().push_back( unused_index_obj );
[307a732]192                match_func_t.get_parameters().push_back( exception_obj.clone() );
193                handle_func_t.get_returnVals().push_back( bool_obj.clone() );
194                handle_func_t.get_parameters().push_back( exception_obj.clone() );
195                finally_func_t.get_parameters().push_back( voidptr_obj.clone() );
[ba912706]196        }
197
198        // ThrowStmt Mutation Helpers
199
[948b0c8]200        Statement * ExceptionMutatorCore::create_given_throw(
[307a732]201                        const char * throwFunc, ThrowStmt * throwStmt ) {
[cbce272]202                // `throwFunc`( `throwStmt->get_name` );
[307a732]203                UntypedExpr * call = new UntypedExpr( new NameExpr( throwFunc ) );
[cbce272]204                call->get_args().push_back( throwStmt->get_expr() );
[ba912706]205                throwStmt->set_expr( nullptr );
206                delete throwStmt;
[ba3706f]207                return new ExprStmt( call );
[ba912706]208        }
[307a732]209
[948b0c8]210        Statement * ExceptionMutatorCore::create_terminate_throw(
211                        ThrowStmt *throwStmt ) {
[cbce272]212                // __throw_terminate( `throwStmt->get_name()` ); }
[38ac6ec]213                return create_given_throw( "__cfaehm__throw_terminate", throwStmt );
[307a732]214        }
[86d5ba7c]215
[948b0c8]216        Statement * ExceptionMutatorCore::create_terminate_rethrow(
217                        ThrowStmt *throwStmt ) {
[86d5ba7c]218                // { `handler_except_decl` = NULL; __rethrow_terminate(); }
[288eede]219                assert( nullptr == throwStmt->get_expr() );
[86d5ba7c]220                assert( handler_except_decl );
221
[ba3706f]222                CompoundStmt * result = new CompoundStmt();
223                result->labels =  throwStmt->labels;
224                result->push_back( new ExprStmt( UntypedExpr::createAssign(
[86d5ba7c]225                        nameOf( handler_except_decl ),
226                        new ConstantExpr( Constant::null(
227                                new PointerType(
228                                        noQualifiers,
229                                        handler_except_decl->get_type()->clone()
230                                        )
231                                ) )
232                        ) ) );
233                result->push_back( new ExprStmt(
[38ac6ec]234                        new UntypedExpr( new NameExpr( "__cfaehm__rethrow_terminate" ) )
[86d5ba7c]235                        ) );
[ba912706]236                delete throwStmt;
237                return result;
238        }
[86d5ba7c]239
[948b0c8]240        Statement * ExceptionMutatorCore::create_resume_throw(
241                        ThrowStmt *throwStmt ) {
[cbce272]242                // __throw_resume( `throwStmt->get_name` );
[38ac6ec]243                return create_given_throw( "__cfaehm__throw_resume", throwStmt );
[ba912706]244        }
[86d5ba7c]245
[948b0c8]246        Statement * ExceptionMutatorCore::create_resume_rethrow(
247                        ThrowStmt *throwStmt ) {
[ba912706]248                // return false;
249                Statement * result = new ReturnStmt(
[288eede]250                        new ConstantExpr( Constant::from_bool( false ) )
[ba912706]251                        );
[ba3706f]252                result->labels = throwStmt->labels;
[ba912706]253                delete throwStmt;
254                return result;
255        }
256
257        // TryStmt Mutation Helpers
258
[948b0c8]259        CompoundStmt * ExceptionMutatorCore::take_try_block( TryStmt *tryStmt ) {
[ba912706]260                CompoundStmt * block = tryStmt->get_block();
261                tryStmt->set_block( nullptr );
262                return block;
263        }
[948b0c8]264
265        FunctionDecl * ExceptionMutatorCore::create_try_wrapper(
266                        CompoundStmt *body ) {
[ba912706]267
[288eede]268                return new FunctionDecl( "try", Type::StorageClasses(),
[307a732]269                        LinkageSpec::Cforall, try_func_t.clone(), body );
[ba912706]270        }
271
[948b0c8]272        FunctionDecl * ExceptionMutatorCore::create_terminate_catch(
273                        CatchList &handlers ) {
[ba912706]274                std::list<CaseStmt *> handler_wrappers;
275
[288eede]276                FunctionType *func_type = catch_func_t.clone();
277                DeclarationWithType * index_obj = func_type->get_parameters().front();
[86d5ba7c]278                DeclarationWithType * except_obj = func_type->get_parameters().back();
[288eede]279
[ba912706]280                // Index 1..{number of handlers}
281                int index = 0;
282                CatchList::iterator it = handlers.begin();
283                for ( ; it != handlers.end() ; ++it ) {
284                        ++index;
285                        CatchStmt * handler = *it;
286
[288eede]287                        // case `index`:
288                        // {
[cbce272]289                        //     `handler.decl` = { (virtual `decl.type`)`except` };
290                        //     `handler.body`;
[288eede]291                        // }
292                        // return;
[ba3706f]293                        CompoundStmt * block = new CompoundStmt();
[86d5ba7c]294
[03eedd5]295                        // Just copy the exception value. (Post Validation)
[86d5ba7c]296                        ObjectDecl * handler_decl =
[03eedd5]297                                static_cast<ObjectDecl *>( handler->get_decl() );
[86d5ba7c]298                        ObjectDecl * local_except = handler_decl->clone();
[03eedd5]299                        local_except->set_init(
[86d5ba7c]300                                new ListInit({ new SingleInit(
301                                        new VirtualCastExpr( nameOf( except_obj ),
302                                                local_except->get_type()
303                                                )
[03eedd5]304                                        ) })
305                                );
[ba3706f]306                        block->push_back( new DeclStmt( local_except ) );
[86d5ba7c]307
308                        // Add the cleanup attribute.
309                        local_except->get_attributes().push_back( new Attribute(
310                                "cleanup",
311                                { new NameExpr( "__cfaehm__cleanup_terminate" ) }
312                                ) );
313
314                        // Update variables in the body to point to this local copy.
315                        {
316                                VarExprReplacer::DeclMap mapping;
317                                mapping[ handler_decl ] = local_except;
318                                VarExprReplacer mapper( mapping );
319                                handler->get_body()->accept( mapper );
320                        }
321
322                        block->push_back( handler->get_body() );
[288eede]323                        handler->set_body( nullptr );
324
[86d5ba7c]325                        std::list<Statement *> caseBody
[ba3706f]326                                        { block, new ReturnStmt( nullptr ) };
[288eede]327                        handler_wrappers.push_back( new CaseStmt(
[ba912706]328                                new ConstantExpr( Constant::from_int( index ) ),
[288eede]329                                caseBody
330                                ) );
[ba912706]331                }
332                // TODO: Some sort of meaningful error on default perhaps?
333
[288eede]334                std::list<Statement*> stmt_handlers;
335                while ( !handler_wrappers.empty() ) {
336                        stmt_handlers.push_back( handler_wrappers.front() );
337                        handler_wrappers.pop_front();
338                }
339
[ba912706]340                SwitchStmt * handler_lookup = new SwitchStmt(
[288eede]341                        nameOf( index_obj ),
342                        stmt_handlers
[ba912706]343                        );
[ba3706f]344                CompoundStmt * body = new CompoundStmt();
[ba912706]345                body->push_back( handler_lookup );
346
347                return new FunctionDecl("catch", Type::StorageClasses(),
[288eede]348                        LinkageSpec::Cforall, func_type, body);
[ba912706]349        }
350
351        // Create a single check from a moddified handler.
[288eede]352        // except_obj is referenced, modded_handler will be freed.
[948b0c8]353        CompoundStmt * ExceptionMutatorCore::create_single_matcher(
[288eede]354                        DeclarationWithType * except_obj, CatchStmt * modded_handler ) {
[86d5ba7c]355                // {
356                //     `modded_handler.decl`
[cbce272]357                //     if ( `decl.name = (virtual `decl.type`)`except`
[86d5ba7c]358                //             [&& `modded_handler.cond`] ) {
359                //         `modded_handler.body`
360                //     }
361                // }
362
[ba3706f]363                CompoundStmt * block = new CompoundStmt();
[cbce272]364
365                // Local Declaration
366                ObjectDecl * local_except =
367                        dynamic_cast<ObjectDecl *>( modded_handler->get_decl() );
368                assert( local_except );
[ba3706f]369                block->push_back( new DeclStmt( local_except ) );
[cbce272]370
[86d5ba7c]371                // Check for type match.
372                Expression * cond = UntypedExpr::createAssign( nameOf( local_except ),
373                        new VirtualCastExpr( nameOf( except_obj ),
374                                local_except->get_type()->clone() ) );
[ba912706]375
[86d5ba7c]376                // Add the check on the conditional if it is provided.
[ba912706]377                if ( modded_handler->get_cond() ) {
[288eede]378                        cond = new LogicalExpr( cond, modded_handler->get_cond() );
[ba912706]379                }
[86d5ba7c]380                // Construct the match condition.
[ba3706f]381                block->push_back( new IfStmt(
[288eede]382                        cond, modded_handler->get_body(), nullptr ) );
[ba912706]383
384                modded_handler->set_decl( nullptr );
385                modded_handler->set_cond( nullptr );
386                modded_handler->set_body( nullptr );
387                delete modded_handler;
388                return block;
389        }
390
[948b0c8]391        FunctionDecl * ExceptionMutatorCore::create_terminate_match(
392                        CatchList &handlers ) {
[86d5ba7c]393                // int match(exception * except) {
394                //     HANDLER WRAPPERS { return `index`; }
395                // }
396
[ba3706f]397                CompoundStmt * body = new CompoundStmt();
[ba912706]398
[288eede]399                FunctionType * func_type = match_func_t.clone();
400                DeclarationWithType * except_obj = func_type->get_parameters().back();
401
[ba912706]402                // Index 1..{number of handlers}
403                int index = 0;
404                CatchList::iterator it;
405                for ( it = handlers.begin() ; it != handlers.end() ; ++it ) {
406                        ++index;
407                        CatchStmt * handler = *it;
408
[288eede]409                        // Body should have been taken by create_terminate_catch.
410                        assert( nullptr == handler->get_body() );
411
412                        // Create new body.
[ba3706f]413                        handler->set_body( new ReturnStmt(
[ba912706]414                                new ConstantExpr( Constant::from_int( index ) ) ) );
415
[288eede]416                        // Create the handler.
417                        body->push_back( create_single_matcher( except_obj, handler ) );
418                        *it = nullptr;
[ba912706]419                }
420
[ba3706f]421                body->push_back( new ReturnStmt(
[e9145a3]422                        new ConstantExpr( Constant::from_int( 0 ) ) ) );
[307a732]423
[ba912706]424                return new FunctionDecl("match", Type::StorageClasses(),
[288eede]425                        LinkageSpec::Cforall, func_type, body);
[ba912706]426        }
427
[948b0c8]428        CompoundStmt * ExceptionMutatorCore::create_terminate_caller(
[ba912706]429                        FunctionDecl * try_wrapper,
430                        FunctionDecl * terminate_catch,
[948b0c8]431                        FunctionDecl * terminate_match ) {
[86d5ba7c]432                // { __cfaehm__try_terminate(`try`, `catch`, `match`); }
[ba912706]433
[288eede]434                UntypedExpr * caller = new UntypedExpr( new NameExpr(
435                        "__cfaehm__try_terminate" ) );
436                std::list<Expression *>& args = caller->get_args();
[ba912706]437                args.push_back( nameOf( try_wrapper ) );
438                args.push_back( nameOf( terminate_catch ) );
439                args.push_back( nameOf( terminate_match ) );
440
[ba3706f]441                CompoundStmt * callStmt = new CompoundStmt();
442                callStmt->push_back( new ExprStmt( caller ) );
[288eede]443                return callStmt;
[ba912706]444        }
445
[948b0c8]446        FunctionDecl * ExceptionMutatorCore::create_resume_handler(
447                        CatchList &handlers ) {
[86d5ba7c]448                // bool handle(exception * except) {
449                //     HANDLER WRAPPERS { `hander->body`; return true; }
450                // }
[ba3706f]451                CompoundStmt * body = new CompoundStmt();
[288eede]452
[e9145a3]453                FunctionType * func_type = handle_func_t.clone();
[288eede]454                DeclarationWithType * except_obj = func_type->get_parameters().back();
[ba912706]455
456                CatchList::iterator it;
457                for ( it = handlers.begin() ; it != handlers.end() ; ++it ) {
458                        CatchStmt * handler = *it;
459
460                        // Modifiy body.
461                        CompoundStmt * handling_code =
462                                dynamic_cast<CompoundStmt*>( handler->get_body() );
463                        if ( ! handling_code ) {
[ba3706f]464                                handling_code = new CompoundStmt();
[ba912706]465                                handling_code->push_back( handler->get_body() );
466                        }
[ba3706f]467                        handling_code->push_back( new ReturnStmt(
[ad0be81]468                                new ConstantExpr( Constant::from_bool( true ) ) ) );
[ba912706]469                        handler->set_body( handling_code );
470
471                        // Create the handler.
[288eede]472                        body->push_back( create_single_matcher( except_obj, handler ) );
473                        *it = nullptr;
[ba912706]474                }
475
[ba3706f]476                body->push_back( new ReturnStmt(
[e9145a3]477                        new ConstantExpr( Constant::from_bool( false ) ) ) );
[ad0be81]478
[ba912706]479                return new FunctionDecl("handle", Type::StorageClasses(),
[288eede]480                        LinkageSpec::Cforall, func_type, body);
[ba912706]481        }
482
[948b0c8]483        CompoundStmt * ExceptionMutatorCore::create_resume_wrapper(
[ba912706]484                        Statement * wraps,
485                        FunctionDecl * resume_handler ) {
[ba3706f]486                CompoundStmt * body = new CompoundStmt();
[ba912706]487
[288eede]488                // struct __try_resume_node __resume_node
489                //      __attribute__((cleanup( __cfaehm__try_resume_cleanup )));
490                // ** unwinding of the stack here could cause problems **
491                // ** however I don't think that can happen currently **
492                // __cfaehm__try_resume_setup( &__resume_node, resume_handler );
[ba912706]493
494                std::list< Attribute * > attributes;
495                {
496                        std::list< Expression * > attr_params;
[288eede]497                        attr_params.push_back( new NameExpr(
498                                "__cfaehm__try_resume_cleanup" ) );
499                        attributes.push_back( new Attribute( "cleanup", attr_params ) );
[ba912706]500                }
501
[288eede]502                ObjectDecl * obj = new ObjectDecl(
503                        "__resume_node",
[ba912706]504                        Type::StorageClasses(),
505                        LinkageSpec::Cforall,
506                        nullptr,
[288eede]507                        new StructInstType(
508                                Type::Qualifiers(),
509                                node_decl
510                                ),
511                        nullptr,
[ba912706]512                        attributes
[288eede]513                        );
514                appendDeclStmt( body, obj );
515
516                UntypedExpr *setup = new UntypedExpr( new NameExpr(
517                        "__cfaehm__try_resume_setup" ) );
[307a732]518                setup->get_args().push_back( new AddressExpr( nameOf( obj ) ) );
[288eede]519                setup->get_args().push_back( nameOf( resume_handler ) );
520
[ba3706f]521                body->push_back( new ExprStmt( setup ) );
[288eede]522
[ba912706]523                body->push_back( wraps );
524                return body;
525        }
526
[948b0c8]527        FunctionDecl * ExceptionMutatorCore::create_finally_wrapper(
528                        TryStmt * tryStmt ) {
[86d5ba7c]529                // void finally() { <finally code> }
[288eede]530                FinallyStmt * finally = tryStmt->get_finally();
531                CompoundStmt * body = finally->get_block();
532                finally->set_block( nullptr );
533                delete finally;
[ba912706]534                tryStmt->set_finally( nullptr );
535
536                return new FunctionDecl("finally", Type::StorageClasses(),
[307a732]537                        LinkageSpec::Cforall, finally_func_t.clone(), body);
[ba912706]538        }
539
[948b0c8]540        ObjectDecl * ExceptionMutatorCore::create_finally_hook(
541                        FunctionDecl * finally_wrapper ) {
[288eede]542                // struct __cfaehm__cleanup_hook __finally_hook
543                //      __attribute__((cleanup( finally_wrapper )));
[ba912706]544
545                // Make Cleanup Attribute.
546                std::list< Attribute * > attributes;
547                {
548                        std::list< Expression * > attr_params;
549                        attr_params.push_back( nameOf( finally_wrapper ) );
[288eede]550                        attributes.push_back( new Attribute( "cleanup", attr_params ) );
[ba912706]551                }
552
[288eede]553                return new ObjectDecl(
554                        "__finally_hook",
[ba912706]555                        Type::StorageClasses(),
556                        LinkageSpec::Cforall,
557                        nullptr,
[288eede]558                        new StructInstType(
[ac10576]559                                noQualifiers,
[288eede]560                                hook_decl
561                                ),
[ba912706]562                        nullptr,
563                        attributes
564                        );
565        }
566
[948b0c8]567        // Visiting/Mutating Functions
[86d5ba7c]568        void ExceptionMutatorCore::premutate( CatchStmt *catchStmt ) {
[03eedd5]569                // Validate the Statement's form.
570                ObjectDecl * decl =
571                        dynamic_cast<ObjectDecl *>( catchStmt->get_decl() );
572                if ( decl && true /* check decl->get_type() */ ) {
573                        // Pass.
574                } else if ( CatchStmt::Terminate == catchStmt->get_kind() ) {
575                        throw SemanticError("catch must have exception type");
576                } else {
577                        throw SemanticError("catchResume must have exception type");
578                }
579
580                // Track the handler context.
[86d5ba7c]581                GuardValue( cur_context );
582                if ( CatchStmt::Terminate == catchStmt->get_kind() ) {
583                        cur_context = TerHandler;
584
585                        GuardValue( handler_except_decl );
[03eedd5]586                        handler_except_decl = decl;
[86d5ba7c]587                } else {
588                        cur_context = ResHandler;
589                }
590        }
591
592        void ExceptionMutatorCore::premutate( StructDecl *structDecl ) {
593                if ( !structDecl->has_body() ) {
594                        // Skip children?
595                        return;
[cbce272]596                } else if ( structDecl->get_name() == "__cfaehm__base_exception_t" ) {
597                        assert( nullptr == except_decl );
598                        except_decl = structDecl;
599                        init_func_types();
[86d5ba7c]600                } else if ( structDecl->get_name() == "__cfaehm__try_resume_node" ) {
601                        assert( nullptr == node_decl );
602                        node_decl = structDecl;
603                } else if ( structDecl->get_name() == "__cfaehm__cleanup_hook" ) {
604                        assert( nullptr == hook_decl );
605                        hook_decl = structDecl;
606                }
607                // Later we might get the exception type as well.
608        }
609
[ba912706]610        Statement * ExceptionMutatorCore::postmutate( ThrowStmt *throwStmt ) {
[cbce272]611                assert( except_decl );
612
[ba912706]613                // Ignoring throwStmt->get_target() for now.
614                if ( ThrowStmt::Terminate == throwStmt->get_kind() ) {
615                        if ( throwStmt->get_expr() ) {
616                                return create_terminate_throw( throwStmt );
[288eede]617                        } else if ( TerHandler == cur_context ) {
[948b0c8]618                                return create_terminate_rethrow( throwStmt );
[ba912706]619                        } else {
620                                assertf(false, "Invalid throw in %s at %i\n",
[288eede]621                                        throwStmt->location.filename.c_str(),
[d48e529]622                                        throwStmt->location.first_line);
[ba912706]623                                return nullptr;
624                        }
625                } else {
626                        if ( throwStmt->get_expr() ) {
627                                return create_resume_throw( throwStmt );
[288eede]628                        } else if ( ResHandler == cur_context ) {
[ba912706]629                                return create_resume_rethrow( throwStmt );
630                        } else {
631                                assertf(false, "Invalid throwResume in %s at %i\n",
[288eede]632                                        throwStmt->location.filename.c_str(),
[d48e529]633                                        throwStmt->location.first_line);
[ba912706]634                                return nullptr;
635                        }
636                }
637        }
638
639        Statement * ExceptionMutatorCore::postmutate( TryStmt *tryStmt ) {
[cbce272]640                assert( except_decl );
[288eede]641                assert( node_decl );
642                assert( hook_decl );
643
[ba912706]644                // Generate a prefix for the function names?
645
[ba3706f]646                CompoundStmt * block = new CompoundStmt();
[288eede]647                CompoundStmt * inner = take_try_block( tryStmt );
[ba912706]648
649                if ( tryStmt->get_finally() ) {
650                        // Define the helper function.
651                        FunctionDecl * finally_block =
652                                create_finally_wrapper( tryStmt );
653                        appendDeclStmt( block, finally_block );
654                        // Create and add the finally cleanup hook.
[948b0c8]655                        appendDeclStmt( block, create_finally_hook( finally_block ) );
[ba912706]656                }
657
[288eede]658                CatchList termination_handlers;
659                CatchList resumption_handlers;
660                split( tryStmt->get_catchers(),
[1abc5ab]661                           termination_handlers, resumption_handlers );
[ba912706]662
[288eede]663                if ( resumption_handlers.size() ) {
[ba912706]664                        // Define the helper function.
665                        FunctionDecl * resume_handler =
666                                create_resume_handler( resumption_handlers );
667                        appendDeclStmt( block, resume_handler );
668                        // Prepare hooks
[948b0c8]669                        inner = create_resume_wrapper( inner, resume_handler );
[ba912706]670                }
671
672                if ( termination_handlers.size() ) {
673                        // Define the three helper functions.
674                        FunctionDecl * try_wrapper = create_try_wrapper( inner );
675                        appendDeclStmt( block, try_wrapper );
676                        FunctionDecl * terminate_catch =
677                                create_terminate_catch( termination_handlers );
678                        appendDeclStmt( block, terminate_catch );
679                        FunctionDecl * terminate_match =
680                                create_terminate_match( termination_handlers );
681                        appendDeclStmt( block, terminate_match );
682                        // Build the call to the try wrapper.
683                        inner = create_terminate_caller(
684                                try_wrapper, terminate_catch, terminate_match );
685                }
686
687                // Embed the try block.
688                block->push_back( inner );
689
690                return block;
691        }
692
[1abc5ab]693        void translateEHM( std::list< Declaration *> & translationUnit ) {
[ba912706]694                PassVisitor<ExceptionMutatorCore> translator;
[6fca7ea]695                mutateAll( translationUnit, translator );
[ba912706]696        }
697}
Note: See TracBrowser for help on using the repository browser.