max/lean4-htt
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions 2

chore: remove trailing whitespaces in EmitLLVM

Browse source 
For some reason, these two were missed in the last commit.
This commit is contained in:
Tobias Grosser 2023-08-13 12:31:53 +01:00 • committed by Sebastian Ullrich
parent d90176af71
commit 736a21cd5a
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
src/Lean/Compiler/IR/EmitLLVM.lean
View file

@ -111,11 +111,11 @@ instance : ToString RefcountKind where
def callLeanRefcountFn (builder : LLVM.Builder llvmctx)
(kind : RefcountKind) (checkRef? : Bool) (arg : LLVM.Value llvmctx)
(delta : Option (LLVM.Value llvmctx) := Option.none) : M llvmctx Unit := do
let fnName := s!"lean_{kind}{if checkRef? then "" else "_ref"}{if delta.isNone then "" else "_n"}"
let fnName := s!"lean_{kind}{if checkRef? then "" else "_ref"}{if delta.isNone then "" else "_n"}"
let retty ← LLVM.voidType llvmctx
let argtys := if delta.isNone then #[← LLVM.voidPtrType llvmctx] else #[← LLVM.voidPtrType llvmctx, ← LLVM.size_tType llvmctx]
let fn ← getOrCreateFunctionPrototype (← getLLVMModule) retty fnName argtys
let fnty ← LLVM.functionType retty argtys
let fnty ← LLVM.functionType retty argtys
match delta with
| .none => do
-- since refcount δ is 1, we only supply the pointer.