Skip to content

Instantly share code, notes, and snippets.

Carter Tazio Schonwald cartazio

Block or report user

Report or block cartazio

Hide content and notifications from this user.

Learn more about blocking users

Contact Support about this user’s behavior.

Learn more about reporting abuse

Report abuse
View GitHub Profile
View Sadd.hs
module Main where
import Data.Word
import Data.Int
import Foreign.Ptr
import Foreign.C.Types
main = c_MD5Final `seq` print "yay"
@cartazio
cartazio / StructExample.hs
Created Jun 6, 2019
hacky unfinished scribblings about how to do fancy struct instances
View StructExample.hs
{-# LANGUAGE QuasiQuotes #-}
{-# LANGUAGE TemplateHaskell #-}
{-# LANGUAGE RoleAnnotations #-}
{-# LANGUAGE ExplicitForAll#-}
module Main where
import Data.Struct
--import Data.Struct.TH
--import qualified Data.Coerce as Crc
import Data.Coerce (coerce)
View chordCorrect.als
/* ========================================================================
A MODEL IN ALLOY
OF A CORRECT VERSION OF THE CHORD RING-MAINTENANCE PROTOCOL
Pamela Zave, August 2016.
Copyright AT&T Labs, Inc., 2016, 2018.
======================================================================== */
open util/ordering[Time] as trace
open util/ordering[Node] as ring
@cartazio
cartazio / packagesize.txt
Last active Feb 19, 2019
rounded up to the nearest megabyte, generated with du -hm -d1 ./ | sort -rn
View packagesize.txt
143 .//sugarhaskell-0.1
122 .//morfette-0.4.7
53 .//http2-1.6.4
40 .//cjk-0.1.0.1
39 .//qt-1.1.6.1
37 .//uhc-light-1.1.10.0
37 .//cld2-0.1.1.1
33 .//texmath-0.11.2
33 .//happstack-yui-7373.5.3
32 .//scholdoc-texmath-0.1.0.1
@cartazio
cartazio / fixYoMath.r
Last active Feb 11, 2019
NAN NAN you cant get the undefined float value man
View fixYoMath.r
install("inline")# not needed after the first time
library("inline")
nanBoom <- cfunction(c(dummy="ANY"),body="
fenv_t fenv;
unsigned int new_excepts = FE_DIVBYZERO | FE_INVALID ;
fegetenv(&fenv);
fenv.__mxcsr &= ~(new_excepts << 7);
fesetenv(&fenv);
return dummy;
",includes="#include <fenv.h>",language="C")
@cartazio
cartazio / simplemat.c
Created Jan 29, 2019
old matrix mat code
View simplemat.c
// #include <emmintrin.h>
#include <immintrin.h>
// #if defined (__SSE4_2__) || defined (__SSE4_1__)
// for some reason i can't get anything newer than sse4.2 work with both gcc-clang and clang
// #include <smmintrin.h>
// #endif
#include <memory.h>
@cartazio
cartazio / log.txt
Created Nov 19, 2018
build test suite report patched 8.6.2 gcc dwarf darwin
View log.txt
SUMMARY for test run started at Mon Nov 19 15:45:27 2018 EST
0:46:31 spent to go through
6516 total tests, which gave rise to
25425 test cases, of which
18538 were skipped
41 had missing libraries
6522 expected passes
91 expected failures
View gist:93701644ad541d32bebfa3144be06060
$ cabal install cabal-plan --dry -v3
no user package environment file found at
/Users/carter/WorkSpace/projects/active/concat-linear-work
Searching for ghc in path.
Found ghc at /Users/carter/.install-ghc/ghc-8.2.2/bin/ghc
/Users/carter/.install-ghc/ghc-8.2.2/bin/ghc --numeric-version
/Users/carter/.install-ghc/ghc-8.2.2/bin/ghc is version 8.2.2
looking for tool ghc-pkg near compiler in
/Users/carter/.install-ghc/ghc-8.2.2/bin
candidate locations:
View badGCC-STGCRUN.s
.text
Ltext0:
.no_dead_strip _StgRunIsImplementedInAssembler
_StgRunIsImplementedInAssembler:
LFB119:
.file 1 "rts/StgCRun.c"
.loc 1 369 1
.loc 1 370 5
# 370 "rts/StgCRun.c" 1
.globl _StgRun
View gist:b00e4c0c5d59130461ad946966ec9b03
13:06:54 ~/W/p/a/ghc-head-may2018-clang-sad (master|✔) $ make -j1
===--- building phase 0
/Applications/Xcode.app/Contents/Developer/usr/bin/make --no-print-directory -f ghc.mk phase=0 phase_0_builds
make[1]: Nothing to be done for `phase_0_builds'.
===--- building phase 1
/Applications/Xcode.app/Contents/Developer/usr/bin/make --no-print-directory -f ghc.mk phase=1 phase_1_builds
make[1]: Nothing to be done for `phase_1_builds'.
===--- building final phase
/Applications/Xcode.app/Contents/Developer/usr/bin/make --no-print-directory -f ghc.mk phase=final all
"rm" -f rts/dist/build/libHSrts_l.a
You can’t perform that action at this time.