Commit 0e36d5e3 authored by panne's avatar panne
Browse files

[project @ 2000-04-14 16:47:43 by panne]

Reduce number of warnings and raise chances of successful compilation
when *not* building an interpreter :-)
parent f9554211
/* -----------------------------------------------------------------------------
* $Id: Exception.hc,v 1.11 2000/03/17 14:37:21 simonmar Exp $
* $Id: Exception.hc,v 1.12 2000/04/14 16:47:43 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -17,6 +17,9 @@
#if defined(PAR)
# include "FetchMe.h"
#endif
#if defined(PROFILING)
# include "Profiling.h"
#endif
/* -----------------------------------------------------------------------------
Exception Primitives
......
/* -----------------------------------------------------------------------------
* $Id: GC.c,v 1.79 2000/04/14 15:18:06 sewardj Exp $
* $Id: GC.c,v 1.80 2000/04/14 16:47:43 panne Exp $
*
* (c) The GHC Team 1998-1999
*
......@@ -142,7 +142,9 @@ lnat g0s0_pcnt_kept = 30; /* percentage of g0s0 live at last minor GC */
static StgClosure * evacuate ( StgClosure *q );
static void zero_static_object_list ( StgClosure* first_static );
static void zero_mutable_list ( StgMutClosure *first );
#if 0
static void revert_dead_CAFs ( void );
#endif
static rtsBool traverse_weak_ptr_list ( void );
static void cleanup_weak_ptr_list ( StgWeak **list );
......
/* -----------------------------------------------------------------------------
* $Id: Prelude.c,v 1.5 2000/04/03 17:27:10 sewardj Exp $
* $Id: Prelude.c,v 1.6 2000/04/14 16:47:43 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
......@@ -95,6 +95,7 @@ INFO_TABLE_CONSTR(hugs_standalone_StablePtr_static_info,Hugs_CONSTR_entry,
*/
void fixupRTStoPreludeRefs ( void*(*ask_hugs_dynamic_linker)(char*) )
{
(void)ask_hugs_dynamic_linker; /* keep gcc -Wall happy */
#if defined(INTERPRETER)
if (ask_hugs_dynamic_linker == NULL) {
......
/* ---------------------------------------------------------------------------
* $Id: Schedule.c,v 1.67 2000/04/14 15:18:07 sewardj Exp $
* $Id: Schedule.c,v 1.68 2000/04/14 16:47:43 panne Exp $
*
* (c) The GHC Team, 1998-2000
*
......@@ -1572,8 +1572,8 @@ initScheduler(void)
context_switch = 0;
interrupted = 0;
ecafList = END_ECAF_LIST;
#ifdef INTERPRETER
ecafList = END_ECAF_LIST;
clearECafTable();
#endif
......
/* -----------------------------------------------------------------------------
* $Id: Signals.c,v 1.16 2000/04/04 10:04:47 simonmar Exp $
* $Id: Signals.c,v 1.17 2000/04/14 16:47:43 panne Exp $
*
* (c) The GHC Team, 1998-1999
*
......@@ -19,6 +19,7 @@
#ifndef PAR
/* SUP: The type of handlers is a little bit, well, doubtful... */
static StgInt *handlers = NULL; /* Dynamically grown array of signal handlers */
static StgInt nHandlers = 0; /* Size of handlers array */
......@@ -97,7 +98,7 @@ generic_handler(int sig)
circumstances, depending on the signal.
*/
*next_pending_handler++ = deRefStablePtr(handlers[sig]);
*next_pending_handler++ = deRefStablePtr(stgCast(StgStablePtr,handlers[sig]));
/* stack full? */
if (next_pending_handler == &pending_handler_buf[N_PENDING_HANDLERS]) {
......@@ -196,7 +197,7 @@ sig_install(StgInt sig, StgInt spi, StgStablePtr handler, sigset_t *mask)
* by freeing the previous handler if there was one.
*/
if (previous_spi >= 0) {
freeStablePtr(handlers[sig]);
freeStablePtr(stgCast(StgStablePtr,handlers[sig]));
}
return STG_SIG_ERR;
}
......
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