From c72c14df1ad8594d85fd138727b98840df9fa5d9 Mon Sep 17 00:00:00 2001
From: Vanessa McHale <vamchale@gmail.com>
Date: Tue, 28 Jan 2025 16:31:40 -0500
Subject: [PATCH] just ffast-math rip

---
 apple.cabal    |  2 --
 bench/Bench.hs | 16 ----------------
 bench/c/max.cc | 10 ----------
 bench/c/simd.c | 26 --------------------------
 4 files changed, 54 deletions(-)
 delete mode 100644 bench/c/max.cc
 delete mode 100644 bench/c/simd.c

diff --git a/apple.cabal b/apple.cabal
index 1f50480b8..234cfb915 100644
--- a/apple.cabal
+++ b/apple.cabal
@@ -325,8 +325,6 @@ benchmark apple-bench
     type:               exitcode-stdio-1.0
     main-is:            Bench.hs
     hs-source-dirs:     bench
-    c-sources:          bench/c/simd.c
-    cxx-sources:        bench/c/max.cc
     ghc-options:        -rtsopts
 
     build-depends:
diff --git a/bench/Bench.hs b/bench/Bench.hs
index 57e591c58..7140f19b2 100644
--- a/bench/Bench.hs
+++ b/bench/Bench.hs
@@ -4,11 +4,9 @@ import           Control.DeepSeq                  (NFData (..), rwhnf)
 import           Control.Exception                (Exception, throw)
 import           Criterion.Main
 import qualified Data.ByteString.Lazy             as BSL
-import           Data.Foldable                    (traverse_)
 import           Data.Functor                     (($>))
 import           Data.Int                         (Int64)
 import           Data.Number.Erf                  (erf, normcdf)
-import           Foreign.C.Types                  (CSize (..))
 import           Foreign.ForeignPtr               (ForeignPtr, mallocForeignPtrBytes, withForeignPtr)
 import           Foreign.Marshal.Alloc            (free, mallocBytes)
 import           Foreign.Ptr                      (FunPtr, Ptr)
@@ -76,7 +74,6 @@ main = do
     mulrank <- fmap aaa . leakFp =<< BSL.readFile "test/examples/mul.🍏"
     catFp <- fmap aaa . leakFp =<< BSL.readFile "bench/apple/cat.🍏"
     softmax <- fmap aa . leakFp =<< BSL.readFile "test/data/softmax.🍎"
-    maxa <- fmap af . leakFp =<< BSL.readFile "bench/c/max.🍎"
     defaultMain [ env files $ \ ~(m, 𝛾, ꜰ, ᴀ) ->
                   bgroup "pipeline"
                       [ bench "tyParse (mnist)" $ nf tyParse m
@@ -133,12 +130,6 @@ main = do
                       [ bench "apple" $ nfIO (do {p<- withForeignPtr i scanFp;free p})
                       , bench "applef" $ nfIO (do {p<- withForeignPtr f scanfFp;free p})
                       ]
-                , env cenv $ \f -> env penv $ \ ~(ap,_) ->
-                  bgroup "c-simd"
-                      [ bench "amax" $ nfIO (withForeignPtr f (pure.(`amax` 500)))
-                      , bench "maxf" $ nfIO (withForeignPtr f (pure.(`maxf` 500)))
-                      , bench "max" $ nfIO (pure (maxa ap))
-                      ]
                 , env simdEnv $ \isp ->
                   env big $ \ ~(_,f) ->
                   bgroup "simd"
@@ -198,10 +189,6 @@ main = do
           xs = replicate 500 (0.002 :: Double)
           ys = replicate 500 (0.002 :: Double)
           penv = (,) <$> aA (AA 1 [500] xs) <*> aA (AA 1 [500] ys)
-          cenv = do
-              hp <- mallocForeignPtrBytes 4000
-              (withForeignPtr hp
-                  $ \p -> traverse_ (\i -> pokeElemOff p i (2.5::Double)) [0..499]) $> hp
           big = do
               iPtr <- aAF (AA 1 [10000000] (replicate 10000000 (1::Int64)))
               fPtr <- aAF (AA 1 [10000000] (replicate 10000000 (1::Double)))
@@ -220,9 +207,6 @@ main = do
               pure (whPtr, woPtr, bhPtr)
           eEnv = (,) <$> aAF (AA 1 [3] [0.0::Double,4,4]) <*> aAF (AA 1 [3] [0.0::Double,0.3])
 
-foreign import ccall amax :: Ptr Double -> CSize -> Double
-foreign import ccall maxf :: Ptr Double -> CSize -> Double
-foreign import ccall asum :: Ptr Double -> CSize -> Double
 foreign import ccall "dynamic" iii :: FunPtr (Int64 -> Int64 -> Int64) -> Int64 -> Int64 -> Int64
 foreign import ccall "dynamic" ff :: FunPtr (Double -> Double) -> Double -> Double
 foreign import ccall "dynamic" fff :: FunPtr (Double -> Double -> Double) -> Double -> Double -> Double
diff --git a/bench/c/max.cc b/bench/c/max.cc
deleted file mode 100644
index 735b65750..000000000
--- a/bench/c/max.cc
+++ /dev/null
@@ -1,10 +0,0 @@
-#include<algorithm>
-
-double amax(double*,size_t) asm ("_maxf");
-double amax(double* xs, size_t n) {
-    double x,y=xs[0];
-    for(int i=1;i<n;i++) {
-        y=std::fmax(y,xs[i]);
-    }
-    return y;
-}
diff --git a/bench/c/simd.c b/bench/c/simd.c
deleted file mode 100644
index 72c286ba6..000000000
--- a/bench/c/simd.c
+++ /dev/null
@@ -1,26 +0,0 @@
-#include<stdlib.h>
-
-double amax(double* xs, size_t n){
-    double x,y=xs[0];
-    for(int i=1;i<n;i++) {
-        x=xs[i];
-        y=x>y?x:y;
-    }
-    return y;
-}
-
-double asum(double* xs, size_t n){
-    double y=0;
-    for(int i=0;i<n;i++) {
-        y+=xs[i];
-    }
-    return y;
-}
-
-double* ainv(double* xs, size_t n) {
-    double* ys=malloc(sizeof(double)*n);
-    for(int i=0;i<n;i++) {
-        ys[i]=1/(1+xs[i]);
-    }
-    return ys;
-}