/*
* ======== CERuntime_init ========
*/
Void CERuntime_init(Void)
{
GT_init();
/* allow user to over-ride via CE_TRACE. */
GT_set(Global_getenv("CE_TRACE"));
Global_init();
Sem_init();
SemMP_init();
Memory_init();
Queue_init();
Comm_init();
Thread_init();
Processor_init();
LockMP_init(); /* Must be called before DMAN3_init() */
Algorithm_init();
XdmUtils_init();
Lock_init();
Engine_init();
Server_init();
}
/*
* ======== CERuntime_init ========
*/
Void CERuntime_init(Void)
{
CESettings_init();
/* if CE_DEBUG is set, turn on tracing and DSP auto trace collection */
if (Global_getenv("CE_DEBUG") != NULL) {
extern Bool Engine_alwaysCollectDspTrace;
extern String Engine_ceDebugDspTraceMask;
Engine_alwaysCollectDspTrace = TRUE;
/*
* Note the strategy for setting trace masks below...
* For any mods not yet registered, we set the
* [FC|CE]SETTINGS_MODNAME mask. For any mods already
* registered, we Diags_setMask() them.
*/
if (Global_getenv("CE_DEBUG")[0] == '1') {
/* Turn on CE/FC levels 6 and 7 */
xdc_runtime_Diags_setMask("ti.sdo.ce.%+67");
xdc_runtime_Diags_setMask("ti.sdo.fc.%+67");
/* Same for any Servers */
Engine_ceDebugDspTraceMask = "ti.sdo.ce.%+67;ti.sdo.fc.%+67";
}
else if (Global_getenv("CE_DEBUG")[0] == '2') {
//GT_set(
// "*+01234567,CE-3,ti.sdo.ce.osal.SemMP=67,OG=467,OM=4567,OC=67,GT_time=0,GT_prefix=1235");
// * -> ti.sdo.ce.%, ti.sdo.fc.%
xdc_runtime_Diags_setMask(CESETTINGS_MODNAME"+EX1234567");
xdc_runtime_Diags_setMask("ti.sdo.ce.%+EX1234567");
xdc_runtime_Diags_setMask("ti.sdo.fc.%+EX1234567");
// CE-3 -> ti.sdo.ce.Engine-3
xdc_runtime_Diags_setMask("ti.sdo.ce.Engine-3");
// OG, OM, SemMP -> ti.sdo.xdcruntime.linux
//xdc_runtime_Diags_setMask("ti.sdo.xdcruntime.linux.%+EX1234567");
Engine_ceDebugDspTraceMask =
// Former GT mask:
//"*+01234567,CR=67,ti.sdo.fc.dman3-2,ti.sdo.fc.dskt2-2,GT_prefix=1235,GT_time=3";
// Current Diags mask: (time=2 ==> display time in delta usec
"ti.sdo.ce.%+EX1234567;ti.sdo.fc.%+EX12345678;ti.sdo.ce.rms=67;ti.sdo.fc.dman3-2;ti.sdo.fc.dskt2-2;time=2";
}
else if (Global_getenv("CE_DEBUG")[0] == '0') {
/* Don't set anything if someone tries to turn CE_DEBUG off */
} else {
//GT_set("*+01234567,CE-3,GT_time=0,GT_prefix=12345");
xdc_runtime_Diags_setMask("ti.sdo.ce.%+EX1234567");
xdc_runtime_Diags_setMask("ti.sdo.fc.%+EX1234567");
//TEMP (jeh) xdc_runtime_Diags_setMask("ti.sdo.ce.Engine-3");
//xdc_runtime_Diags_setMask("ti.sdo.xdcruntime.linux.%+EX1234567");
//Engine_ceDebugDspTraceMask = "*+01234567,GT_prefix=12345,GT_time=3";
Engine_ceDebugDspTraceMask =
"time=2;ti.sdo.fc.%+EX1234567;ti.sdo.ce.%+EX1234567;ti.sdo.fc.dskt2-2";
}
}
else {
//xdc_runtime_Diags_setMask("ti.sdo.ce.Engine-EX1234567");
//xdc_runtime_Diags_setMask("ti.sdo.ce.VISA-EX1234567");
}
if (Global_getenv("CE_CHECK") != NULL) {
extern Bool VISA_checked;
/*
* Currently just change _this_ processor's value... perhaps we should
* enable remote processors as well?
*/
if (Global_getenv("CE_CHECK")[0] == '1') {
VISA_checked = TRUE;
xdc_runtime_Diags_setMask("ti.sdo.ce.%+7");
} else if (Global_getenv("CE_CHECK")[0] == '0') {
VISA_checked = FALSE;
} else {
/* leave it whatever it was... maybe we should drop a warning? */
}
}
/* allow user to over-ride via CE_TRACE. */
if (Global_getenv("CE_TRACE") != NULL) {
xdc_runtime_Diags_setMask(Global_getenv("CE_TRACE"));
}
Global_init();
ti_sdo_ce_osal_Memory_init();
Comm_init();
Processor_init();
Algorithm_init();
XdmUtils_init();
Engine_init();
_VISA_init();
Loader_init();
Server_init();
if ((Global_getenv("CE_DEBUG") != NULL) &&
(Global_getenv("CE_DEBUG")[0] == '2')) {
/* set up masks that must be deferred until the modules have been init'd */
// "*+01234567,CE-3,ti.sdo.ce.osal.SemMP=67,OG=467,OM=4567,OC=67,GT_time=0,GT_prefix=1235");
//xdc_runtime_Diags_setMask(Comm_MODNAME"-EX12345");
xdc_runtime_Diags_setMask("ti.sdo.ce.osal.%-EX123");
//xdc_runtime_Diags_setMask(Algorithm_MODNAME"-EX12345");
// CE-3 -> ti.sdo.ce.Engine-3
xdc_runtime_Diags_setMask("ti.sdo.ce.Engine-3");
// OC=67 -> ti.sdo.ce.ipc.Comm=67
xdc_runtime_Diags_setMask("ti.sdo.ce.ipc.Comm=67");
}
RtCfg_init();
/*
* Allow user to over-ride via CE_TRACE. Putting this after module
* initialization, since it will have no effect may have no effect
* if called before. Only wildcard settings seem to work when placed
* before module initialization.
*/
if (Global_getenv("CE_TRACE") != NULL) {
xdc_runtime_Diags_setMask(Global_getenv("CE_TRACE"));
}
}
/*
* ======== CERuntime_init ========
*/
Void CERuntime_init(Void)
{
if (ceInit++ == 0) {
CESettings_init();
FCSettings_init();
/* if CE_DEBUG is set, turn on tracing and DSP auto trace collection */
if (Global_getenv("CE_DEBUG") != NULL) {
extern Bool Engine_alwaysCollectDspTrace;
extern String Engine_ceDebugDspTraceMask;
Engine_alwaysCollectDspTrace = TRUE;
/*
* Note the strategy for setting trace masks below...
* For any mods not yet registered, we set the
* [FC|CE]SETTINGS_MODNAME mask. For any mods already
* registered, we Diags_setMask() them.
*/
if (Global_getenv("CE_DEBUG")[0] == '1') {
/* Turn on CE/FC levels 6 and 7 */
xdc_runtime_Diags_setMask(CESETTINGS_MODNAME"+67");
xdc_runtime_Diags_setMask(FCSETTINGS_MODNAME"+67");
xdc_runtime_Diags_setMask("ti.sdo.ce.%+67");
xdc_runtime_Diags_setMask("ti.sdo.fc.%+67");
/* Same for any Servers */
Engine_ceDebugDspTraceMask = "ti.sdo.ce.%+67;ti.sdo.fc.%+67";
}
else if (Global_getenv("CE_DEBUG")[0] == '2') {
xdc_runtime_Diags_setMask(CESETTINGS_MODNAME"+EX1234567");
xdc_runtime_Diags_setMask(FCSETTINGS_MODNAME"+EX1234567");
xdc_runtime_Diags_setMask("ti.sdo.ce.%+EX1234567");
xdc_runtime_Diags_setMask("ti.sdo.fc.%+EX1234567");
Engine_ceDebugDspTraceMask =
// Current Diags mask: (time=2 ==> display time in delta usec
"ti.sdo.ce.%+EX1234567;ti.sdo.fc.%+EX12345678;ti.sdo.ce.rms=67;ti.sdo.fc.dman3-2;ti.sdo.fc.dskt2-2;time=2";
}
else if (Global_getenv("CE_DEBUG")[0] == '0') {
/* Don't set anything if someone tries to turn CE_DEBUG off */
} else {
xdc_runtime_Diags_setMask("ti.sdo.ce.%+EX1234567");
xdc_runtime_Diags_setMask("ti.sdo.fc.%+EX1234567");
Engine_ceDebugDspTraceMask =
"time=2;ti.sdo.fc.%+EX1234567;ti.sdo.ce.%+EX1234567;ti.sdo.fc.dskt2-2";
}
}
else {
//xdc_runtime_Diags_setMask("ti.sdo.ce.Engine-EX1234567");
//xdc_runtime_Diags_setMask("ti.sdo.ce.VISA-EX1234567");
}
if (Global_getenv("CE_CHECK") != NULL) {
extern Bool VISA_checked;
/*
* Currently just change _this_ processor's value... perhaps we
* should enable remote processors as well?
*/
if (Global_getenv("CE_CHECK")[0] == '1') {
VISA_checked = TRUE;
xdc_runtime_Diags_setMask("ti.sdo.ce.%+7");
} else if (Global_getenv("CE_CHECK")[0] == '0') {
VISA_checked = FALSE;
} else {
/* leave it whatever it was. maybe we should drop a warning? */
}
}
/* allow user to over-ride via CE_TRACE. */
if (Global_getenv("CE_TRACE") != NULL) {
xdc_runtime_Diags_setMask(Global_getenv("CE_TRACE"));
}
Global_init();
ti_sdo_ce_osal_Memory_init();
Comm_init();
Processor_init();
Algorithm_init();
XdmUtils_init();
Trace_init();
RMS_init();
Global_atexit((Fxn)RMS_exit);
Engine_init();
_VISA_init();
Loader_init();
Server_init();
if ((Global_getenv("CE_DEBUG") != NULL) &&
(Global_getenv("CE_DEBUG")[0] == '2')) {
/*
* set up masks that must be deferred until the modules have been
* initialized.
*/
//xdc_runtime_Diags_setMask(Comm_MODNAME"-EX12345");
xdc_runtime_Diags_setMask("ti.sdo.ce.osal.%-EX123");
//xdc_runtime_Diags_setMask(Algorithm_MODNAME"-EX12345");
xdc_runtime_Diags_setMask("ti.sdo.ce.Engine-3");
xdc_runtime_Diags_setMask("ti.sdo.ce.ipc.Comm=67");
}
/*
* Allow user to over-ride via CE_TRACE. Putting this after module
* initialization, since it will have no effect if called before.
* Only wildcard settings seem to work when placed before module
* initialization.
*/
if (Global_getenv("CE_TRACE") != NULL) {
xdc_runtime_Diags_setMask(Global_getenv("CE_TRACE"));
}
}
}
/* ---------------------------------------------------- *\
DDI_Init(argc,argv)
===================
[IN] int argc -- number of arguments
[IN] char **argv -- list of arguments
Initialize message-passing library and DDI variables
\* ---------------------------------------------------- */
void DDI_Init(int argc,char **argv) {
char *header = NULL;
# if defined DDI_SOC || defined DDI_MPI
int np,me;
/* ---------------------------------- *\
Initialize Message Passing Library
\* ---------------------------------- */
#if defined DDI_ARMCI
DDI_ARMCI_Init(argc,argv);
#else
# if defined DDI_SHMEM
shmem_init();
# endif
# if defined DDI_MPI
Init_mpi(argc,argv);
# endif
# if defined DDI_SOC
Init_soc(argc,argv);
# endif
# if defined DDI_LAPI
Init_lapi();
# endif
# if defined USE_SYSV
Init_smp();
# endif
# endif
/* --------------------------------- *\
Determine Rank and Number of CPUs
\* --------------------------------- */
DDI_NProc(&np,&me);
/* --------------------------- *\
Initialize Profile Counters
\* --------------------------- */
# if defined DDI_COUNTERS
Init_counters();
# endif
/* ------------------------ *\
* Initialize communicators
\* ------------------------ */
Comm_init();
/* ----------------------- *\
Initialize Data Servers
\* ----------------------- */
if(me >= np) DDI_Server();
#if defined DDI_BGL || defined DDI_BGP
/* Print runtime header if requested.
This works on any POSIX system. */
header = getenv("DDI_HEADER");
if(me == 0 && header != NULL) {
if (strcmp(header,"RUNTIME") == 0) {
DDI_Runtime_print(stdout);
fprintf(stdout,"\n");
}
fflush(stdout);
}
#endif
# if defined CRAY_MPI
/*
DDI_SMP_NProc(&np,&me);
if(me == 1) DS_Thread_init();
*/
# endif
/* ----------------------------- *\
Synchronize Compute Processes
\* ----------------------------- */
DDI_Sync(3061);
# endif
}
/*
* ======== CERuntime_init ========
*/
Void CERuntime_init(Void)
{
extern Void IPC_generatedInit();
GT_init();
/* if CE_DEBUG is set, turn on tracing and DSP auto trace collection */
if (Global_getenv("CE_DEBUG") != NULL) {
extern Bool Engine_alwaysCollectDspTrace;
extern String Engine_ceDebugDspTraceMask;
Engine_alwaysCollectDspTrace = TRUE;
if (Global_getenv("CE_DEBUG")[0] == '1') {
GT_set("*+67,CE-3,GT_time=0,GT_prefix=1235");
Engine_ceDebugDspTraceMask = "*+67,GT_prefix=1235,GT_time=3";
}
else if (Global_getenv("CE_DEBUG")[0] == '2') {
GT_set(
"*+01234567,CE-3,ti.sdo.ce.osal.SemMP=67,OG=467,OM=4567,OC=67,GT_time=0,GT_prefix=1235");
Engine_ceDebugDspTraceMask =
"*+01234567,CR=67,ti.sdo.fc.dman3-2,ti.sdo.fc.dskt2-2,GT_prefix=1235,GT_time=3";
} else {
GT_set("*+01234567,CE-3,GT_time=0,GT_prefix=12345");
Engine_ceDebugDspTraceMask = "*+01234567,GT_prefix=12345,GT_time=3";
}
}
if (Global_getenv("CE_CHECK") != NULL) {
extern Bool VISA_checked;
/*
* Currently just change _this_ processor's value... perhaps we should
* enable remote processors as well?
*/
if (Global_getenv("CE_CHECK")[0] == '1') {
VISA_checked = TRUE;
/* turn on all GT_7CLASS trace (errors) */
GT_set("*+7");
} else if (Global_getenv("CE_CHECK")[0] == '0') {
VISA_checked = FALSE;
} else {
/* leave it whatever it was... maybe we should drop a warning? */
}
}
/* allow user to over-ride via CE_TRACE. */
GT_set(Global_getenv("CE_TRACE"));
IPC_generatedInit();
Global_init();
Sem_init();
SemMP_init();
Memory_init();
Queue_init();
Comm_init();
Thread_init();
Processor_init();
LockMP_init(); /* Must be called before DMAN3_init() */
Algorithm_init();
XdmUtils_init();
Lock_init();
Engine_init();
Server_init();
}
