| 1 | // |
|---|
| 2 | // Cforall Version 1.0.0 Copyright (C) 2016 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 | // startup.c -- |
|---|
| 8 | // |
|---|
| 9 | // Author : Peter A. Buhr |
|---|
| 10 | // Created On : Tue Jul 24 16:21:57 2018 |
|---|
| 11 | // Last Modified By : Peter A. Buhr |
|---|
| 12 | // Last Modified On : Mon Jan 17 16:41:54 2022 |
|---|
| 13 | // Update Count : 55 |
|---|
| 14 | // |
|---|
| 15 | |
|---|
| 16 | #include <time.h> // tzset |
|---|
| 17 | #include <locale.h> // setlocale |
|---|
| 18 | #include <stdlib.h> // getenv |
|---|
| 19 | #include "bits/defs.hfa" // rdtscl |
|---|
| 20 | #include "startup.hfa" |
|---|
| 21 | |
|---|
| 22 | extern uint32_t __global_random_seed; // sequential/concurrent |
|---|
| 23 | extern uint32_t __global_random_state; // sequential |
|---|
| 24 | |
|---|
| 25 | extern "C" { |
|---|
| 26 | void __cfaabi_appready_startup( void ) __attribute__(( constructor( STARTUP_PRIORITY_APPREADY ) )); |
|---|
| 27 | void __cfaabi_appready_startup( void ) { |
|---|
| 28 | tzset(); // initialize time global variables |
|---|
| 29 | #ifdef __CFA_DEBUG__ |
|---|
| 30 | extern void heapAppStart(); |
|---|
| 31 | heapAppStart(); |
|---|
| 32 | #endif // __CFA_DEBUG__ |
|---|
| 33 | } // __cfaabi_appready_startup |
|---|
| 34 | |
|---|
| 35 | void __cfaabi_appready_shutdown( void ) __attribute__(( destructor( STARTUP_PRIORITY_APPREADY ) )); |
|---|
| 36 | void __cfaabi_appready_shutdown( void ) { |
|---|
| 37 | #ifdef __CFA_DEBUG__ |
|---|
| 38 | extern void heapAppStop(); |
|---|
| 39 | heapAppStop(); |
|---|
| 40 | #endif // __CFA_DEBUG__ |
|---|
| 41 | } // __cfaabi_appready_shutdown |
|---|
| 42 | |
|---|
| 43 | void disable_interrupts() __attribute__(( weak )) libcfa_public {} |
|---|
| 44 | void enable_interrupts() __attribute__(( weak )) libcfa_public {} |
|---|
| 45 | bool poll_interrupts() __attribute__(( weak )) libcfa_public { return false; } |
|---|
| 46 | |
|---|
| 47 | |
|---|
| 48 | extern void __cfaabi_interpose_startup( void ); |
|---|
| 49 | extern void __cfaabi_device_startup ( void ); |
|---|
| 50 | extern void __cfaabi_device_shutdown ( void ); |
|---|
| 51 | |
|---|
| 52 | void __cfaabi_core_startup( void ) __attribute__(( constructor( STARTUP_PRIORITY_CORE ) )); |
|---|
| 53 | void __cfaabi_core_startup( void ) { |
|---|
| 54 | __global_random_state = __global_random_seed = rdtscl(); |
|---|
| 55 | __cfaabi_interpose_startup(); |
|---|
| 56 | __cfaabi_device_startup(); |
|---|
| 57 | } // __cfaabi_core_startup |
|---|
| 58 | |
|---|
| 59 | void __cfaabi_core_shutdown( void ) __attribute__(( destructor( STARTUP_PRIORITY_CORE ) )); |
|---|
| 60 | void __cfaabi_core_shutdown( void ) { |
|---|
| 61 | __cfaabi_device_shutdown(); |
|---|
| 62 | } // __cfaabi_core_shutdown |
|---|
| 63 | } // extern "C" |
|---|
| 64 | |
|---|
| 65 | struct __spinlock_t; |
|---|
| 66 | |
|---|
| 67 | // Local Variables: // |
|---|
| 68 | // mode: c // |
|---|
| 69 | // tab-width: 4 // |
|---|
| 70 | // End: // |
|---|
