Skip to content

Instantly share code, notes, and snippets.

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,

Expected behavior

Something should be printed to stderr.

Actual behavior

Nothing gets printed.

wasmtime version

@TerrorJack
TerrorJack / key.md
Created February 3, 2023 16:06
Twitter (un)official Consumer Key

Twitter Official Consumer Key

Twitter for Android

type:            PIN
Consumer key:    3nVuSoBZnx6U4vzUxf5w
Consumer secret: Bcs59EFbbsdF6Sl9Ng71smgStWEGwXXKSjYvPVt7qys

Twitter for iPhone

type:            PIN

Consumer key: IQKbtAYlXLripLGPWd0HUA

@TerrorJack
TerrorJack / bad.s
Created January 28, 2023 15:09
T20735
_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!!!
@TerrorJack
TerrorJack / ghc_3.bad.s
Created January 27, 2023 11:10
numrun013
_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
curl -f -L --retry 5 https://apt.llvm.org/llvm-snapshot.gpg.key | gpg --dearmor -o /usr/share/keyrings/llvm-snapshot.gpg
LSB_CODENAME=$(lsb_release -cs)
{
echo "deb [signed-by=/usr/share/keyrings/llvm-snapshot.gpg] https://apt.llvm.org/$LSB_CODENAME llvm-toolchain-$LSB_CODENAME main"
echo "deb [signed-by=/usr/share/keyrings/llvm-snapshot.gpg] https://apt.llvm.org/$LSB_CODENAME llvm-toolchain-$LSB_CODENAME-15 main"
echo "deb [signed-by=/usr/share/keyrings/llvm-snapshot.gpg] https://apt.llvm.org/$LSB_CODENAME llvm-toolchain-$LSB_CODENAME-14 main"
echo "deb [signed-by=/usr/share/keyrings/llvm-snapshot.gpg] https://apt.llvm.org/$LSB_CODENAME llvm-toolchain-$LSB_CODENAME-13 main"
} >> /etc/apt/sources.list.d/llvm-toolchain.list