~ubuntu-branches/ubuntu/trusty/haskell-llvm-base/trusty-proposed

« back to all changes in this revision

Viewing changes to LLVM/Target/Native.hs

Committer: Package Import Robot
Author(s): Joachim Breitner
Date: 2012-03-11 15:44:32 UTC
Revision ID: package-import@ubuntu.com-20120311154432-oewynu19bajz4ccb

Tags: upstream-3.0.0.0

Import upstream version 3.0.0.0

files added:

INSTALL.md

LICENSE

LLVM

LLVM/FFI

LLVM/FFI/Analysis.hsc

LLVM/FFI/BitReader.hsc

LLVM/FFI/BitWriter.hsc

LLVM/FFI/Core.hsc

LLVM/FFI/ExecutionEngine.hsc

LLVM/FFI/Support.hsc

LLVM/FFI/Target.hsc

LLVM/FFI/Transforms

LLVM/FFI/Transforms/IPO.hsc

LLVM/FFI/Transforms/Scalar.hsc

LLVM/Target

LLVM/Target/ARM.hs

LLVM/Target/Alpha.hs

LLVM/Target/Blackfin.hs

LLVM/Target/CBackend.hs

LLVM/Target/CellSPU.hs

LLVM/Target/CppBackend.hs

LLVM/Target/MSP430.hs

LLVM/Target/Mips.hs

LLVM/Target/Native.hs

LLVM/Target/PIC16.hs

LLVM/Target/PowerPC.hs

LLVM/Target/Sparc.hs

LLVM/Target/SystemZ.hs

LLVM/Target/X86.hs

LLVM/Target/XCore.hs

README.md

Setup.hs

cbits

cbits/extra.cpp

cbits/free.c

cbits/malloc.c

cbits/support.cpp

configure

configure.ac

include

include/extra.h

include/hs_llvm_config.h.in

include/support.h

llvm-base.buildinfo.in

llvm-base.buildinfo.windows.in

llvm-base.cabal

tools

tools/DiffFFI.hs

tools/FunctionMangler.hs

tools/FunctionMangulation.hs

tools/IntrinsicMangler.hs

tools/Makefile

Show diffs side-by-side

added added

removed removed

LLVM/Target/Native.hs

{-# LANGUAGE CPP #-}

module LLVM.Target.Native(initializeNativeTarget) where

import Control.Monad

import Control.Concurrent.MVar

import System.IO.Unsafe

-- TARGET is expanded by CPP to the native target architecture.

import LLVM.Target.TARGET

-- | Initialize jitter to the native target.

-- The operation is idempotent.

initializeNativeTarget :: IO ()

initializeNativeTarget = do

done <- takeMVar refDone

when (not done) initializeTarget

putMVar refDone True

-- UNSAFE: global variable to keep track of initialization state.

refDone :: MVar Bool

refDone = unsafePerformIO $ newMVar False

Older »