-- Hooks for primitives: -----------------------------------------------------
-- Do not mess with these!
+-- Anything named hugsprim needs to also be available in combined mode,
+-- so any such function is also present in ghc/lib/std/PrelHugs.lhs.
+
primCompAux :: Ord a => a -> a -> Ordering -> Ordering
primCompAux x y o = case compare x y of EQ -> o; LT -> LT; GT -> GT
primPmDouble :: Fractional a => Double -> a -> Bool
primPmDouble n x = fromDouble n == x
--- ToDo: make the message more informative.
-primPmFail :: a
-primPmFail = error "Pattern Match Failure"
-
--- used in desugaring Foreign functions
-hugsprimMkIO :: (RealWorld -> (a,RealWorld)) -> IO a
-hugsprimMkIO = ST
-
-hugsprimCreateAdjThunk :: (a -> b) -> String -> Char -> IO Addr
-hugsprimCreateAdjThunk fun typestr callconv
- = do sp <- makeStablePtr fun
- p <- copy_String_to_cstring typestr -- is never freed
- a <- primCreateAdjThunkARCH sp p callconv
- return a
-
-- The following primitives are only needed if (n+k) patterns are enabled:
hugsprimPmSub :: Integral a => Int -> a -> a
hugsprimPmSub n x = x - fromInt n
hugsprimPmLe :: Integral a => a -> a -> Bool
hugsprimPmLe x y = x <= y
+-- ToDo: make the message more informative.
+primPmFail :: a
+primPmFail = error "Pattern Match Failure"
+
+-- used in desugaring Foreign functions
+primMkIO :: (RealWorld -> (a,RealWorld)) -> IO a
+primMkIO = ST
+
+primCreateAdjThunk :: (a -> b) -> String -> Char -> IO Addr
+primCreateAdjThunk fun typestr callconv
+ = do sp <- makeStablePtr fun
+ p <- copy_String_to_cstring typestr -- is never freed
+ a <- primCreateAdjThunkARCH sp p callconv
+ return a
+
-- Unpack strings generated by the Hugs code generator.
-- Strings can contain \0 provided they're coded right.
--
* included in the distribution.
*
* $RCSfile: link.c,v $
- * $Revision: 1.29 $
- * $Date: 2000/01/10 16:27:04 $
+ * $Revision: 1.30 $
+ * $Date: 2000/01/10 17:06:41 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
setCurrModule(modulePrelude);
/* primops */
- nameMkIO = linkName("hugsprimMkIO");
+ nameMkIO = linkName("primMkIO");
for (i=0; asmPrimOps[i].name; ++i) {
Text t = findText(asmPrimOps[i].name);
Name n = findName(t);
# endif
/* translator */
nameEqChar = linkName("primEqChar");
- nameCreateAdjThunk = linkName("hugsprimCreateAdjThunk");
+ nameCreateAdjThunk = linkName("primCreateAdjThunk");
namePmInt = linkName("hugsprimPmInt");
namePmInteger = linkName("hugsprimPmInteger");
namePmDouble = linkName("primPmDouble");
* included in the distribution.
*
* $RCSfile: storage.c,v $
- * $Revision: 1.34 $
- * $Date: 2000/01/10 16:23:33 $
+ * $Revision: 1.35 $
+ * $Date: 2000/01/10 17:06:41 $
* ------------------------------------------------------------------------*/
#include "prelude.h"
-- Hooks for primitives: -----------------------------------------------------
-- Do not mess with these!
+-- Anything named hugsprim needs to also be available in combined mode,
+-- so any such function is also present in ghc/lib/std/PrelHugs.lhs.
+
primCompAux :: Ord a => a -> a -> Ordering -> Ordering
primCompAux x y o = case compare x y of EQ -> o; LT -> LT; GT -> GT
primPmDouble :: Fractional a => Double -> a -> Bool
primPmDouble n x = fromDouble n == x
--- ToDo: make the message more informative.
-primPmFail :: a
-primPmFail = error "Pattern Match Failure"
-
--- used in desugaring Foreign functions
-hugsprimMkIO :: (RealWorld -> (a,RealWorld)) -> IO a
-hugsprimMkIO = ST
-
-hugsprimCreateAdjThunk :: (a -> b) -> String -> Char -> IO Addr
-hugsprimCreateAdjThunk fun typestr callconv
- = do sp <- makeStablePtr fun
- p <- copy_String_to_cstring typestr -- is never freed
- a <- primCreateAdjThunkARCH sp p callconv
- return a
-
-- The following primitives are only needed if (n+k) patterns are enabled:
hugsprimPmSub :: Integral a => Int -> a -> a
hugsprimPmSub n x = x - fromInt n
hugsprimPmLe :: Integral a => a -> a -> Bool
hugsprimPmLe x y = x <= y
+-- ToDo: make the message more informative.
+primPmFail :: a
+primPmFail = error "Pattern Match Failure"
+
+-- used in desugaring Foreign functions
+primMkIO :: (RealWorld -> (a,RealWorld)) -> IO a
+primMkIO = ST
+
+primCreateAdjThunk :: (a -> b) -> String -> Char -> IO Addr
+primCreateAdjThunk fun typestr callconv
+ = do sp <- makeStablePtr fun
+ p <- copy_String_to_cstring typestr -- is never freed
+ a <- primCreateAdjThunkARCH sp p callconv
+ return a
+
-- Unpack strings generated by the Hugs code generator.
-- Strings can contain \0 provided they're coded right.
--