Update src/codegen/compile_enhanced.ml

Co-authored-by: Luc Blaeser <112870813+luc-blaeser@users.noreply.github.com>
dfinity · Sep 13, 2024 · 2ea6700 · 2ea6700
1 parent 37da62f
commit 2ea6700
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/src/codegen/compile_enhanced.ml b/src/codegen/compile_enhanced.ml
@@ -5387,7 +5387,7 @@ module Cycles = struct
 
   let burn env =
     Func.share_code1 Func.Always env "cycle_burn" ("cycles", I64Type) [I64Type] (fun env get_x ->
-      Stack.with_words env "dst" 4L (fun get_dst ->
+      Stack.with_words env "dst" 2L (fun get_dst ->
         get_x ^^
         to_two_word64 env ^^
         get_dst ^^