/* * ======== 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(); }