diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity
This repository has been archived on 2023-08-20. You can view files and clone it, but cannot push or open issues or pull requests.
yap-6.3/misc/GLOBALS

68 lines
2.0 KiB
Plaintext
Raw Normal View History

new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
//
// File defining fields in the Yap_GLOBAL global structure
//
// these fields used to spread all over the place, because they must be used in 3 ways:
// - they must be defined somewhere
// - they have an #ifdef to get a shorter name
// - they must be initialised somewhere
// - they may be of interest to restore
//
// The defs include 4+ components:
// Type
// name in structured
// global name
// init code (optional)
// restore code (optional)
//
// Stuff that must be shared by all threads or workers
change struct worker_share to global_data change struct global_data to optyap_global_data chnage field global in struct worker_share to optyap_global
2011-03-25 18:01:17 +00:00
START_GLOBAL_DATA
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
struct local_optyap_data is now part of struct worker_local (generated from the file LOCALS)
2011-05-09 19:36:51 +01:00
// initialization: tell whether the system has been initialised and by whom.
int initialised Yap_Initialised =FALSE
int initialised_from_pl Yap_InitialisedFromPL =FALSE
int pl_argc Yap_PL_Argc =0
char **pl_argv Yap_PL_Argv =NULL
// halt hooks
struct halt_hook *yap_halt_hook Yap_HaltHooks =NULL
// stack overflow expansion/gc control
int allow_local_expansion Yap_AllowLocalExpansion =TRUE
int allow_global_expansion Yap_AllowGlobalExpansion =TRUE
int allow_trail_expansion Yap_AllowTrailExpansion =TRUE
UInt size_of_overflow Yap_SizeOfOverflow =0
// amount of space recovered in all garbage collections
UInt agc_last_call Yap_AGcLastCall =0
// amount of space recovered in all garbage collections
UInt agc_threshold Yap_AGcThreshold =10000
Agc_hook agc_hook Yap_AGCHook =NULL
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
/* multi-thread support */
#if THREADS
/* number of threads and processes in system */
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
UInt n_of_threads Yap_NOfThreads =1
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
/* number of threads created since start */
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
UInt n_of_threads_created Yap_NOfThreadsCreated =1
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
/* total run time for dead threads */
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
UInt threads_total_time Yap_ThreadsTotalTime =0L
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
#endif
// multi-thread/ORP support
#if defined(YAPOR) || defined(THREADS)
// protect long critical regions
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
lockvar bgl Yap_BGL MkLock
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
#endif
// Threads Array
#ifdef THREADS
change macros GLOBAL to Yap
2011-03-29 18:19:18 +01:00
lockvar thread_handles_lock Yap_ThreadHandlesLock MkLock
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00
#endif
#if defined(YAPOR) || defined(TABLING)
change optyap_global_data to global_optyap_data
2011-04-07 16:30:56 +01:00
struct global_optyap_data optyap_data Yap_optyap_data void
struct local_optyap_data is now part of struct worker_local (generated from the file LOCALS)
2011-05-09 19:36:51 +01:00
#endif /* YAPOR || TABLING */
halt_hooks should not be in save/restore, this will cause trouble.
2010-11-29 18:08:29 +00:00
change struct worker_share to global_data change struct global_data to optyap_global_data chnage field global in struct worker_share to optyap_global
2011-03-25 18:01:17 +00:00
END_GLOBAL_DATA
new interface to access globals. They are not in a file called GLOBALS, from which we generate several files automatically.
2010-03-21 22:12:42 +00:00