wip

Author: zeme-wana

.gitignore

@@ -48,7 +48,6 @@ stack.yaml.lock
 *.dyn_hi
 *.chi
 *.chs.h
-*.prof
 .liquid/
 
 # Agda

nix/project.nix

@@ -22,7 +22,7 @@ let
         }];
         ghc96-plugin = {
           ghcOverride = pkgs.haskell-nix.compiler.ghc967.override {
-            extraFlavourTransformers = [ "+profiled_ghc+no_dynamic_ghc" ];
+            extraFlavourTransformers = [ "perf+profiled_ghc+debug_info+no_dynamic_ghc" ];
             ghc-patches = [ ./profiled-ghc-964.patch ];
           };
           modules = [{

plutus-profiled-plugin-test/app/Main.hs

@@ -0,0 +1,51 @@
+ghc \
+    -package-env=- \
+    --make \
+    -fbuilding-cabal-package \
+    -O \
+    -prof \
+    -fprof-auto-exported \
+    -osuf \
+    p_o \
+    -hisuf \
+    p_hi \
+    -outputdir \
+    /Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build \
+    -odir \
+    /Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build \
+    -hidir \
+    /Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build \
+    -hiedir \
+    /Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build/extra-compilation-artifacts/hie \
+    -stubdir \
+    /Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build \
+    -i \
+    -isrc \
+    -i/Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build \
+    -i/Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build/autogen \
+    -i/Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build/global-autogen \
+    -I/Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build/autogen \
+    -I/Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build/global-autogen \
+    -I/Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build \
+    -optP-include \
+    -optP/Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/build/autogen/cabal_macros.h \
+    -this-unit-id \
+    plutus-profiled-plugin-test-0.1.0.0-inplace \
+    -hide-all-packages \
+    -Wmissing-home-modules \
+    -no-user-package-db \
+    -package-db \
+    /Users/zeme/.cabal/store/ghc-9.6.7/package.db \
+    -package-db \
+    /Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/packagedb/ghc-9.6.7 \
+    -package-db \
+    /Volumes/Repos/plutus/worktrees/profiled-ghc/dist-newstyle/build/x86_64-osx/ghc-9.6.7/plutus-profiled-plugin-test-0.1.0.0/package.conf.inplace \
+    -package-id \
+    base-4.18.3.0 \
+    -package-id \
+    ghc-9.6.7 \
+    -XHaskell2010 \
+    SimplePlugin \
+    -hide-all-packages \
+    -DXXX \
+    +RTS -pj -hc -I0.4444 -RTS

plutus-profiled-plugin-test/help.sh

@@ -13,13 +13,3 @@ library
     , ghc
 
   default-language: Haskell2010
-
-executable simple-plugin-test
-  main-is:          Main.hs
-  hs-source-dirs:   app
-  ghc-options:      -threaded -rtsopts -with-rtsopts=-N
-  build-depends:
-    , base                         >=4.9 && <5
-    , plutus-profiled-plugin-test
-
-  default-language: Haskell2010

plutus-profiled-plugin-test/plutus-profiled-plugin-test.cabal

@@ -11,8 +11,9 @@ plugin =
         let getBool = do
               liftIO $ threadDelay 1000000
               return True
+
         b <-
-          {-# SCC "XXXXXXXXXXXXXX" #-}
+          {-# SCC "XXXXxXXXXXXXXXX" #-}
           getBool
         putMsgS ("I got a bool from the plugin -> " ++ show b)
         pure todos