X-Git-Url: http://git.megacz.com/?a=blobdiff_plain;f=ghc%2Fcompiler%2Fprelude%2Fprimops.txt.pp;fp=ghc%2Fcompiler%2Fprelude%2Fprimops.txt.pp;h=482f7f00b3ce127487b2a9976e58ed449ecdf831;hb=57f94a244471fe39148c298c835e61b9d21f2e63;hp=6d954ee4a3158262a7ea62f4b49ece381f328320;hpb=0c7c7de8c5bb8c60290605ef3ddb76f16111f095;p=ghc-hetmet.git

diff --git a/ghc/compiler/prelude/primops.txt.pp b/ghc/compiler/prelude/primops.txt.pp
index 6d954ee..482f7f0 100644
--- a/ghc/compiler/prelude/primops.txt.pp
+++ b/ghc/compiler/prelude/primops.txt.pp
@@ -1,5 +1,5 @@
 -----------------------------------------------------------------------
--- $Id: primops.txt.pp,v 1.34 2005/03/07 14:52:20 simonmar Exp $
+-- $Id: primops.txt.pp,v 1.35 2005/03/07 15:16:41 simonmar Exp $
 --
 -- Primitive Operations
 --
@@ -64,7 +64,11 @@ defaults
 -- matched pairs of embedded curly brackets.
 
 #include "MachDeps.h"
-#include "ghc_boot_platform.h"
+
+-- We need platform defines (tests for mingw32 below).  However, we only
+-- test the TARGET platform, which doesn't vary between stages, so the
+-- stage1 platform defines are fine:
+#include "../stage1/ghc_boot_platform.h"
 
 section "The word size story."
 	{Haskell98 specifies that signed integers (type {\tt Int})