Merge pull request #264 from iu-parfunc/make_codegen_gcc_compatible

Make code gen compatible with gcc 14.1
iu-parfunc · Jun 20, 2024 · 32723ed · 32723ed
2 parents 21023a0 + 0eeac65
commit 32723ed
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/gibbon-compiler/src/Gibbon/Passes/Codegen.hs b/gibbon-compiler/src/Gibbon/Passes/Codegen.hs
@@ -1003,7 +1003,7 @@ codegenTail venv fenv sort_fns (LetPrimCallT bnds prm rnds body) ty sync_deps =
                                 let [(outV,CursorTy)] = bnds
                                     [val,(VarTriv cur)] = rnds
                                     tagged_t = [cty| typename uintptr_t |] in pure
-                                 [ C.BlockStm [cstm| *( $ty:tagged_t  *)($id:cur) = $(codegenTriv venv val); |]
+                                 [ C.BlockStm [cstm| *( $ty:tagged_t  *)($id:cur) = ($ty:tagged_t) $(codegenTriv venv val); |]
                                  , C.BlockDecl [cdecl| $ty:(codegenTy CursorTy) $id:outV = ($id:cur) + 8; |] ]
 
                  ReadCursor -> let [(next,CursorTy),(afternext,CursorTy)] = bnds