{-# LANGUAGE QuasiQuotes #-}
module Futhark.CodeGen.Backends.SequentialC.Boilerplate (generateBoilerplate) where
import Data.Text qualified as T
import Futhark.CodeGen.Backends.GenericC qualified as GC
import Futhark.CodeGen.RTS.C (backendsCH)
import Language.C.Quote.OpenCL qualified as C
generateBoilerplate :: GC.CompilerM op s ()
generateBoilerplate :: forall op s. CompilerM op s ()
generateBoilerplate = do
Definition -> CompilerM op s ()
forall op s. Definition -> CompilerM op s ()
GC.earlyDecl [C.cedecl|$esc:(T.unpack backendsCH)|]
CompilerM op s ()
forall op s. CompilerM op s ()
GC.generateProgramStruct
{-# NOINLINE generateBoilerplate #-}