Skip to content

Commit

Permalink
Remove getConstantFwdRef function
Browse files Browse the repository at this point in the history
This function is unused and, as noted in
#266 (comment),
is almost certainly incorrect.
  • Loading branch information
RyanGlScott committed Jan 30, 2024
1 parent 39b4a5f commit 3d25190
Showing 1 changed file with 1 addition and 6 deletions.
7 changes: 1 addition & 6 deletions src/Data/LLVM/BitCode/IR/Values.hs
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@

module Data.LLVM.BitCode.IR.Values (
getValueTypePair
, getConstantFwdRef, getConstantFwdRefAdjustedId
, getConstantFwdRefAdjustedId
, getValue
, getFnValueById, getFnValueById'
, parseValueSymbolTableBlock
Expand All @@ -19,11 +19,6 @@ import Control.Monad ((<=<),foldM)

-- Value Table -----------------------------------------------------------------

-- | Return a forward reference if the value is not in the incremental table.
getConstantFwdRef :: ValueTable -> Type -> Int -> Parse (Typed PValue)
getConstantFwdRef t ty n = label "getConstantFwdRef" $
adjustId n >>= getConstantFwdRefAdjustedId t ty

getConstantFwdRefAdjustedId :: ValueTable -> Type -> Int -> Parse (Typed PValue)
getConstantFwdRefAdjustedId t ty n' = label "getConstantFwdRefAdjustedId" $ do
mb <- lookupValue n'
Expand Down

0 comments on commit 3d25190

Please sign in to comment.