Commit 63ae274a authored by sof's avatar sof

[project @ 2001-05-28 07:13:54 by sof]

get rid of some more cpp warnings
parent d08fd403
/* ----------------------------------------------------------------------------
* Time-stamp: <Wed Mar 21 2001 16:34:41 Stardate: [-30]6363.45 hwloidl>
* $Id: HLComms.c,v 1.4 2001/03/22 03:51:11 hwloidl Exp $
* $Id: HLComms.c,v 1.5 2001/05/28 07:13:54 sof Exp $
*
* High Level Communications Routines (HLComms.lc)
*
......@@ -56,7 +56,7 @@
#ifdef DIST
#include "SchedAPI.h" //for createIOThread
extern unsigned int context_switch;
#endif DIST
#endif /* DIST */
//@node GUM Message Sending and Unpacking Functions, Message-Processing Functions, Includes, High Level Communications Routines
//@subsection GUM Message Sending and Unpacking Functions
......@@ -510,7 +510,7 @@ void FinishReval(StgTSO *t)
belch("@;~) Reval Finished"));
}
#endif DIST
#endif /* DIST */
//@node Message-Processing Functions, GUM Message Processor, GUM Message Sending and Unpacking Functions, High Level Communications Routines
//@subsection Message-Processing Functions
......
/*
Time-stamp: <Wed Mar 21 2001 16:32:47 Stardate: [-30]6363.44 hwloidl>
$Id: Pack.c,v 1.6 2001/03/22 03:51:11 hwloidl Exp $
$Id: Pack.c,v 1.7 2001/05/28 07:13:54 sof Exp $
Graph packing and unpacking code for sending it to another processor
and retrieving the original graph structure from the packet.
......@@ -822,7 +822,7 @@ PackRemoteRef(StgClosure *closure)
unpacked_size += PACK_FETCHME_SIZE;
}
#endif DIST
#endif /* DIST */
//@node Packing Closures, , Packing Sections of Nearby Graph, Packing Functions
//@subsubsection Packing Closures
......@@ -2230,7 +2230,7 @@ SetGAandCommonUp(globalAddr *ga, StgClosure *closure, rtsBool hasGA)
ga->weight=0;
// ***************************************************************************
// ***************************************************************************
#endif DIST
#endif /* DIST */
/* Two closures, one global name. Someone loses */
oldip = get_itbl(existing);
......
......@@ -1002,7 +1002,7 @@ get_closure_info(StgClosure* node, nat *size, nat *ptrs, nat *nonptrs,
strcpy(info_hdr_ty, "REMOTE_REF");
#endif
return info;
#endif DIST
#endif /* DIST */
case FETCH_ME_BQ:
*size = sizeofW(StgFetchMeBlockingQueue);
......
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment