Something should be printed to stderr.
Nothing gets printed.
# shellcheck shell=bash | |
renice --priority 19 --pid $$ &> /dev/null |
diff --git a/MutInt.cmm b/MutInt.cmm | |
index 0c3a209..1a77424 100644 | |
--- a/MutInt.cmm | |
+++ b/MutInt.cmm | |
@@ -4,14 +4,13 @@ | |
INFO_TABLE(stg_Counter, 0, 1, PRIM, "Counter", "Counter") () | |
{ | |
- return (); | |
+ foreign "C" barf("stg_Counter entered!", NULL) never returns; |
{-# LANGUAGE GHCForeignImportPrim #-} | |
{-# LANGUAGE MagicHash #-} | |
{-# LANGUAGE UnboxedTuples #-} | |
{-# LANGUAGE UnliftedFFITypes #-} | |
module MutInt | |
( MutInt, | |
newMutInt, | |
getMutInt, | |
putMutInt, |
_blk_c12G: | |
.functype _blk_c12G () -> (i32) | |
.local i32, i32, i32, i32, i32, i32, i32, i32, i32, i32, i32, i32, i32, i32 | |
i32.const MainCapability | |
i32.load 16 | |
local.set 0 | |
local.get 0 | |
i32.const 3 | |
i32.add | |
i32.load16_u 0 # HERE!!! |
_blk_c7OL: | |
.functype _blk_c7OL () -> (i32) | |
.local i32, i32, i32, i32, i32, i32, i32, i32 | |
i32.const MainCapability | |
i32.const MainCapability | |
i32.load 816 | |
i32.const 8 | |
i32.add | |
i32.store 816 | |
i32.const MainCapability |
-fcore-constant-folding -fcall-arity -fexitification -fcase-merge -fcase-folding -fcmm-elim-common-blocks -fcmm-sink -fcmm-static-pred -fstg-cse -fcmm-control-flow -fenable-rewrite-rules -ffloat-in -ffull-laziness -fignore-asserts -floopification -fblock-layout-cfg -fspecialise -fcross-module-specialise -finline-generics -fstrictness -funbox-small-strict-fields -fcpr-anal -fworker-wrapper -fsolve-constant-dicts -fnum-constant-folding |
#include "Cmm.h" | |
INFO_TABLE(stg_TICKET, 0, 0, PRIM, "TICKET", "TICKET") | |
() | |
{ | |
return (); | |
} | |
stg_newTicketzh () | |
{ |
C:\tools\msys64\clang64\bin\cjxl.exe foo.jpg foo.jxl --lossless_jpeg=1 --effort=9 --brotli_effort=11 |