ghc/includes/HLC.h

   1 /********************************************************************
   2 *                 High Level Communications Header (HLC.h)          *
   3 *                                                                   *
   4 *  Contains the high-level definitions (i.e. communication          *
   5 *  subsystem independent) used by GUM                               *
   6 *  Phil Trinder, Glasgow University, 12 December 1994               *
   7 *********************************************************************/
   8
   9 #ifndef __HLC_H
  10 #define __HLC_H
  11 #ifdef PAR
  12
  13 #include "LLC.h"
  14
  15 #define NEW_FISH_AGE        0
  16 #define NEW_FISH_HISTORY    0
  17 #define NEW_FISH_HUNGER     0
  18 #define FISH_LIFE_EXPECTANCY 10
  19
  20 void sendFetch PROTO((globalAddr *ga, globalAddr *bqga, int load));
  21 void sendResume PROTO((globalAddr *bqga, int nelem, P_ data));
  22 void sendAck PROTO((GLOBAL_TASK_ID task, int ngas, globalAddr *gagamap));
  23 void sendFish PROTO((GLOBAL_TASK_ID destPE, GLOBAL_TASK_ID origPE, int age, int history, int hunger));
  24 void sendFree PROTO((GLOBAL_TASK_ID destPE, int nelem, P_ data));
  25 void sendSchedule PROTO((GLOBAL_TASK_ID origPE, int nelem, P_ data));
  26 void processMessages(STG_NO_ARGS);
  27 void processFetches(STG_NO_ARGS);
  28
  29 void prepareFreeMsgBuffers(STG_NO_ARGS);
  30 void freeRemoteGA PROTO((int pe, globalAddr *ga));
  31 void sendFreeMessages(STG_NO_ARGS);
  32
  33 void Comms_Harness_Exception PROTO((PACKET packet));
  34 void STG_Exception PROTO((PACKET));
  35
  36 GLOBAL_TASK_ID choosePE(STG_NO_ARGS);
  37
  38 void WaitForTermination(STG_NO_ARGS);
  39
  40 void DebugPrintGAGAMap PROTO((globalAddr *gagamap, int nGAs));
  41
  42 void CommonUp PROTO((P_, P_));
  43
  44 #endif /* PAR */
  45 #endif /* __HLC_H */