From 0a3cec5230adc68e60fdbedec5664fc68d24e398 Mon Sep 17 00:00:00 2001
From: Kartik Singh <kssingh@hrl.com>
Date: Thu, 12 Dec 2024 17:11:43 -0800
Subject: [PATCH] Try tracing DLL loads

---
 .github/workflows/windows.yml |   2 ++
 examples/libcalc/libcalc.pmc  | Bin 0 -> 2940 bytes
 examples/libcalc/trace.ps1    |   6 ++++++
 3 files changed, 8 insertions(+)
 create mode 100644 examples/libcalc/libcalc.pmc
 create mode 100644 examples/libcalc/trace.ps1

diff --git a/.github/workflows/windows.yml b/.github/workflows/windows.yml
index 02b92ce2..7bc447ee 100644
--- a/.github/workflows/windows.yml
+++ b/.github/workflows/windows.yml
@@ -37,6 +37,7 @@ jobs:
       working-directory: ../sbcl
       run: |
         choco install sbcl -source tools-for-build
+        choco install procmon
     - name: build sbcl
       working-directory: ../sbcl
       env:
@@ -88,6 +89,7 @@ jobs:
         popd
         popd
         D:\a\_temp\setup-msys2\msys2.CMD -c "gcc -Wall -o example example.c -lcalc -lsbcl_librarian"
+        .\trace.ps1
         D:\a\_temp\setup-msys2\msys2.CMD -c 'echo "(+ 1 2)" | PATH="$PATH:$LIBSBCL_PATH" ./example'
         D:\a\_temp\setup-msys2\msys2.CMD -c 'echo "(+ 1 2)" | PATH="$PATH:$LIBSBCL_PATH" $CONDA_PREFIX/python ./example.py'
         D:\a\_temp\setup-msys2\msys2.CMD -c 'PATH="$PATH:$LIBSBCL_PATH:/mingw64/bin" $CONDA_PREFIX/python ./exhaust_heap.py | grep "returned to Python after heap exhaustion (attempt 1)"'
diff --git a/examples/libcalc/libcalc.pmc b/examples/libcalc/libcalc.pmc
new file mode 100644
index 0000000000000000000000000000000000000000..5d8a50fed009f4349329acfa36d077585e569c6b
GIT binary patch
literal 2940
zcmd^>OKVe65XUFt3lR|!5$Pg}AVnmVRzzF~O=@ke!O~VmDEMg7hfUg$o4&+FSL#Z{
zwF^Ip->v@sbMDE#O`{bAH_m15IXU+~bLMsC<hz+&gp2S#T(wPW+LpC!!xDavTHS`>
zw}m?Ie@{2rQuYnQC*iz(nr~rem-RDnsSvOw=Egjat=Vg9v;6s+*%rJF@4z47U3d@v
zA7~jTV?6IOpRhN!VpG;2>usAQN?luJy=wPt(Vp8H@vRf*9jal`=IsT%U=OTjW7NhX
z-z2}9%9r`w<k?SmDKfr-AERN#meJM(8MQw}XTv(Kd4`=k?7e2|Xr1sKH$ZQ)UU$SS
z-#2XuiG-)dd;@fsv4ez=D^|vb7W4k9nF1**o9WoKNqdMLqT{g@$L=2-*bsO{PorqT
zJ#V>B@A<87MR*YoK2N%xs?f7=p1x3_k!nP>2!}W}nNMKrO8k86_z8semM_}7!mfJO
ziH733j=zf6AUl4XKp>^RwWEw4*>MBbX&onb+gPySd8>QY>K-jVI!fs4a6oT)J`>Q&
zwJIr4zh31tNprtPtQzD!)a@k%)GMS{eL#9c<%H@}J;%7-O>wtVob*U*hpw{3xQ6Ww
zBB!eDGV6d7^;gU|-*@nG59uf9U%>WufZ82K*)j^tmO0-;zDc*@Q%7&8X}!I1c|>Al
zSfVo2={g?8?2LZkOGLeL)E@bM<B`iy33A)SdKDkK*p+ayM|fJybXv>I*3yV4$S#8_
z^Lvx^5fD22*-0EhD%(Z&Cb%Ul6!jVA`FPD?wNAYIr9-3Edz!Iufma(%%9<)OqaH*`
z8@5YeTR=nOh%mKoQQ-=&sz*?rD`rbQCek6O4y77O(WcS*no`I^bs3yOuAs9TI$6{b
zO!r?`dB<kda^uTxXI_(>I0BY4ZDOl&Aov<0<Af|UHC=7V@8Cng4;ymFZvUx3Fy<Hm
zWoh2)TCr`pN8zQYs-8Xd)0FkBz2ta5;+@eU&?K(u?wIC`<UzW9dzvCh`FWBl@@ra|
zF@>m|CNAD5Wv@xqSfrRpJI6{1yHwN}^**ax#LqQOL5C-!K3Ht%@e+%`9!v#WvS*Y;
z_y?8GaSs%>9LF9t8nql<$&q@n^Q@EztGf6=)5B&JjP80Rx1$QiJ}u!k7^o#!Q}HuV
zb+ZSCF>E%Eu}j{E26`4iPf1S|eY)B+l0`cAUM?m6KkQ<5g95K-82bvy=`!zMHEjXL
zVC|-BK~-_|dOy^7KzRR+BC57YoDKg8y55u3?>bnMb@@?Hd5Jmjx;rXFV3|kAdDh<b
T9KDrF=zh>1gCtaCvD^Iwl{+#^

literal 0
HcmV?d00001

diff --git a/examples/libcalc/trace.ps1 b/examples/libcalc/trace.ps1
new file mode 100644
index 00000000..a69b63a0
--- /dev/null
+++ b/examples/libcalc/trace.ps1
@@ -0,0 +1,6 @@
+Procmon.exe /BackingFile log.pml /AcceptEula /LoadConfig libcalc.pmc /Minimized /Quiet
+Start-Process -FilePath Procmon.exe /WaitForIdle -Wait
+Start-Process -FilePath ./example.exe -Wait
+Start-Process -FilePath Procmon.exe /Terminate -Wait
+Procmon.exe /OpenLog log.pml /LoadConfig libcalc.pmc /SaveAs log.csv /SaveApplyFilter
+cat log.csv