Home Research Papers Posters Manuals Talks Download People Help Internal

arch/util/machine.h

Go to the documentation of this file.

#ifndef MACHINE_H
#define MACHINE_H

/* Extra error checking for comm and immediate flag-locks */
#if 0 && CMK_SHARED_VARS_UNAVAILABLE
#  define MACHLOCK_DEBUG
#  define MACHLOCK_ASSERT(l,str) \
    if (!(l)) \
        CmiAbort("Lock assertation failed: " __FILE__ " " str);
#else /* no extra flag/lock checking, or SMP version */
#  define MACHLOCK_ASSERT(l,str) /* empty */
#endif

#define MACHINE_DEBUG 0
#if MACHINE_DEBUG

#define MACHINE_DEBUG_PRIO 3
#define MACHINE_DEBUG_LOG 1 
extern FILE *debugLog;
# define MACHSTATE_I(prio,args) if ((debugLog)&&(prio)>=MACHINE_DEBUG_PRIO) {\
    CmiMemLock(); fprintf args ; fflush(debugLog); CmiMemUnlock(); }
# define MACHSTATE(prio,str) \
    MACHSTATE_I(prio,(debugLog,"[%d %.6f]> "str"\n",CmiMyRank(),CmiWallTimer()))
# define MACHSTATE1(prio,str,a) \
    MACHSTATE_I(prio,(debugLog,"[%d %.6f]> "str"\n",CmiMyRank(),CmiWallTimer(),a))
# define MACHSTATE2(prio,str,a,b) \
    MACHSTATE_I(prio,(debugLog,"[%d %.6f]> "str"\n",CmiMyRank(),CmiWallTimer(),a,b))
# define MACHSTATE3(prio,str,a,b,c) \
    MACHSTATE_I(prio,(debugLog,"[%d %.6f]> "str"\n",CmiMyRank(),CmiWallTimer(),a,b,c))
# define MACHSTATE4(prio,str,a,b,c,d) \
    MACHSTATE_I(prio,(debugLog,"[%d %.6f]> "str"\n",CmiMyRank(),CmiWallTimer(),a,b,c,d))
# define MACHSTATE5(prio,str,a,b,c,d,e) \
    MACHSTATE_I(prio,(debugLog,"[%d %.6f]> "str"\n",CmiMyRank(),CmiWallTimer(),a,b,c,d,e))
#else
# define MACHINE_DEBUG_LOG 0
# define MACHSTATE(n,x) /*empty*/
# define MACHSTATE1(n,x,a) /*empty*/
# define MACHSTATE2(n,x,a,b) /*empty*/
# define MACHSTATE3(n,x,a,b,c) /*empty*/
# define MACHSTATE4(n,x,a,b,c,d) /*empty*/
# define MACHSTATE5(n,x,a,b,c,d,e) /*empty*/
#endif


#define COMM_SERVER_FROM_SMP             0
#define COMM_SERVER_FROM_INTERRUPT       1
#define COMM_SERVER_FROM_WORKER          2

#endif

---