[project @ 1996-01-22 18:37:39 by partain]

[ghc-hetmet.git] / ghc / runtime / storage / SMstacks.lc

diff --git a/ghc/runtime/storage/SMstacks.lc b/ghc/runtime/storage/SMstacks.lc
index f00daa8..4428b9c 100644 (file)
--- a/ghc/runtime/storage/SMstacks.lc
+++ b/ghc/runtime/storage/SMstacks.lc
@@ -7,7 +7,9 @@ Routine that allocates the A and B stack (sequential only).
 # define NULL_REG_MAP
 # include "SMinternal.h"
 
+#ifndef CONCURRENT
 stackData stackInfo;
+#endif
 
 P_ stks_space = 0;
 
@@ -45,6 +47,7 @@ initStacks(smInfo *sm)
 # endif
 
     /* Initialise Stack Info and pointers */
+#ifndef CONCURRENT
     stackInfo.botA = STK_A_FRAME_BASE(stks_space, RTSflags.GcFlags.stksSize);
     stackInfo.botB = STK_B_FRAME_BASE(stks_space, RTSflags.GcFlags.stksSize);
 
@@ -54,6 +57,7 @@ initStacks(smInfo *sm)
     if (RTSflags.GcFlags.trace)
        fprintf(stderr, "STACK init: botA, spa: 0x%lx, 0x%lx\n            botB, spb: 0x%lx, 0x%lx\n",
          (W_) stackInfo.botA, (W_) MAIN_SpA, (W_) stackInfo.botB, (W_) MAIN_SpB);
+#endif /* !CONCURRENT */
 
     return rtsTrue;
 }