# Copyright 2011  Petter Urkedal
#
# This file is part of the Viz Standard Library <http://www.vizlang.org/>.
#
# The Viz Standard Library (VSL) is free software: you can redistribute it
# and/or modify it under the terms of the GNU Lesser General Public License as
# published by the Free Software Foundation, either version 3 of the License,
# or (at your option) any later version.
#
# The VSL is distributed in the hope that it will be useful, but WITHOUT ANY
# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public License for
# more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with the VSL.  If not, see <http://www.gnu.org/licenses/>.

open effect
open core
open:c "llvm-c/Target.h"

type:c target_data ψ := "LLVMTargetDataRef"
use cabi.type_c pass_manager "LLVMPassManagerRef"

val:c initialize_native_target : ψ /~ unit := "LLVMInitializeNativeTarget"

val:c add_target_data : target_data ψ → pass_manager μ ψ → ψ /~ unit
					:= "LLVMAddTargetData"