3 --------------------------------------------------------------------------
6 -- Copyright : (c) 2006-2007 Martin Grabmueller and Dirk Kleeblatt
9 -- Maintainer : {magr,klee}@cs.tu-berlin.de
10 -- Stability : provisional
11 -- Portability : non-portable
13 -- Predefined call stubs for run-time generated code.
14 --------------------------------------------------------------------------
16 module Harpy.Call where
18 import Harpy.CodeGenMonad
25 $(callDecl "callAsVoid" [t|()|])
26 $(callDecl "callAsWord32ToWord32" [t|Word32 -> Word32|])
27 $(callDecl "callAs7PtrToVoid" [t|forall a b c d e f g . Ptr a -> Ptr b -> Ptr c -> Ptr d -> Ptr e -> Ptr f -> Ptr g -> () |])
31 callAsVoid :: CodeGen e s ()
32 callAsWord32ToWord32 :: Word32 -> CodeGen e s Word32
33 callAs7PtrToVoid :: forall a b c d e f g e' s'. Ptr a -> Ptr b -> Ptr c -> Ptr d -> Ptr e -> Ptr f -> Ptr g -> CodeGen e' s' ()