source: libcfa/src/startup.cfa@ 77adaee

//
// Cforall Version 1.0.0 Copyright (C) 2016 University of Waterloo
//
// The contents of this file are covered under the licence agreement in the
// file "LICENCE" distributed with Cforall.
//
// startup.c --
//
// Author           : Peter A. Buhr
// Created On       : Tue Jul 24 16:21:57 2018
// Last Modified By : Peter A. Buhr
// Last Modified On : Mon Jan 17 16:41:54 2022
// Update Count     : 55
//

#include <time.h>                                                                               // tzset
#include <locale.h>                                                                             // setlocale
#include <stdlib.h>                                                                             // getenv
#include "bits/defs.hfa"                                                                // rdtscl
#include "startup.hfa"

extern uint32_t __global_random_seed;                                   // sequential/concurrent
extern uint32_t __global_random_state;                                  // sequential

extern "C" {
        void __cfaabi_appready_startup( void ) __attribute__(( constructor( STARTUP_PRIORITY_APPREADY ) ));
        void __cfaabi_appready_startup( void ) {
                tzset();                                                                                // initialize time global variables
                #ifdef __CFA_DEBUG__
                extern void heapAppStart();
                heapAppStart();
                #endif // __CFA_DEBUG__
        } // __cfaabi_appready_startup

        void __cfaabi_appready_shutdown( void ) __attribute__(( destructor( STARTUP_PRIORITY_APPREADY ) ));
        void __cfaabi_appready_shutdown( void ) {
                #ifdef __CFA_DEBUG__
                extern void heapAppStop();
                heapAppStop();
                #endif // __CFA_DEBUG__
        } // __cfaabi_appready_shutdown

        void disable_interrupts() __attribute__(( weak )) {}
        void enable_interrupts() __attribute__(( weak )) {}


        extern void __cfaabi_interpose_startup( void );
        extern void __cfaabi_device_startup   ( void );
        extern void __cfaabi_device_shutdown  ( void );

        void __cfaabi_core_startup( void ) __attribute__(( constructor( STARTUP_PRIORITY_CORE ) ));
        void __cfaabi_core_startup( void ) {
                __global_random_state = __global_random_seed = rdtscl();
                __cfaabi_interpose_startup();
                __cfaabi_device_startup();
        } // __cfaabi_core_startup

        void __cfaabi_core_shutdown( void ) __attribute__(( destructor( STARTUP_PRIORITY_CORE ) ));
        void __cfaabi_core_shutdown( void ) {
                __cfaabi_device_shutdown();
        } // __cfaabi_core_shutdown
} // extern "C"

struct __spinlock_t;
extern "C" {
        void __cfaabi_dbg_record_lock(struct __spinlock_t & this, const char prev_name[]) __attribute__(( weak )) {}
}

// Local Variables: //
// mode: c //
// tab-width: 4 //
// End: //