{-# LINE 1 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE TupleSections #-}
{-# LANGUAGE PatternSynonyms, ViewPatterns #-}
{-# OPTIONS_GHC -Wall -fno-warn-tabs #-}

module Gpu.Vulkan.PushConstant.Core (

	-- * RANGE

	Range, PtrRange, pattern Range, rangeStageFlags, rangeOffset, rangeSize

	) where

import Foreign.Ptr
import Foreign.Storable
import Foreign.C.Struct
import Data.Word



struct "Range" (12) 4 [
{-# LINE 22 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
	("stageFlags", ''Word32,
{-# LINE 23 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 0) |],
{-# LINE 24 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 0) |]),
{-# LINE 25 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
	("offset", ''Word32,
{-# LINE 26 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 4) |],
{-# LINE 27 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 4) |]),
{-# LINE 28 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
	("size", ''Word32,
{-# LINE 29 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
		[| (\hsc_ptr -> peekByteOff hsc_ptr 8) |],
{-# LINE 30 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
		[| (\hsc_ptr -> pokeByteOff hsc_ptr 8) |]) ]
{-# LINE 31 "src/Gpu/Vulkan/PushConstant/Core.hsc" #-}
	[''Show, ''Storable]

type PtrRange = Ptr Range