expand feature list for Singeli compile commands

This commit is contained in:
dzaima 2024-11-23 16:04:52 +02:00
parent 58f96abe8c
commit 44e8c1e7fa
2 changed files with 7 additions and 6 deletions

View File

@ -282,11 +282,13 @@ po ← { # parsed options
singeliArch @ singeliArch @
singeliCFlags singeliCFlags
SingeliArchInfo ! # takes arg of infer
{ {
¬singeli? @; ¬singeli? @;
UpdateSubmodule singeliDir UpdateSubmodule singeliDir
SingeliUtil {𝕨 •Import AtRoot singeliDir •file.At 𝕩} SingeliUtil {𝕨 •Import AtRoot singeliDir •file.At 𝕩}
SingeliArchInfo {{native? ; singeliArch}, 𝕩 SingeliUtil "arch.bqn"}
singeliArch { singeliArch {
truecc @GetOpt"arch"? truecc @GetOpt"arch"?
archutil SingeliUtil "archutil.bqn" archutil SingeliUtil "archutil.bqn"
@ -299,9 +301,8 @@ po ← { # parsed options
{ {
arch"X86_64"? arch"X86_64"?
singeliArch Uppercase "ssse3""sse4.1""sse4.2""avx2""bmi2""pclmul"/ has singeliArch Uppercase "ssse3""sse4.1""sse4.2""avx2""bmi2""pclmul"/ has
ArchInfo {({native? ; singeliArch}, 𝕩 SingeliUtil "arch.bqn").GetCFlags @} singeliCFlags (SingeliArchInfo 1).GetCFlags @
singeliCFlags ArchInfo 1 {𝕊: Log "Note: inferred the following C flags:"' '¨𝕩}(loud ×) singeliCFlags (¬/) (SingeliArchInfo 0).GetCFlags @
{𝕊: Log "Note: inferred the following C flags:"' '¨𝕩}(loud ×) singeliCFlags (¬/) ArchInfo 0
;@ ;@
} }
} }
@ -782,7 +783,7 @@ cachedBin‿linkerCache ← {
("slow-pdep"< po.has) / "-c", "SLOW_PDEP=1" ("slow-pdep"< po.has) / "-c", "SLOW_PDEP=1"
{po.native? ; "-a" 1 ','¨ po.singeliArch} {po.native? ; "-a" 1 ','¨ po.singeliArch}
clangd.SingeliInit po.singeliDir, po.arch clangd.SingeliInit po
{𝕊: "Singeli args: "•Repr singeliArgs} _verboseLog @ {𝕊: "Singeli args: "•Repr singeliArgs} _verboseLog @
{𝕊: "Singeli-determined C arch: "•Repr po.singeliCFlags; @} _verboseLog @ {𝕊: "Singeli-determined C arch: "•Repr po.singeliCFlags; @} _verboseLog @
singeliObjs {MakeSingeliInv singeliArgs, {𝕊:UpdateSubmodule po.singeliDir}, singeliCache, 𝕩, "src/singeli/src/"•file.At 𝕩".singeli", (𝕩"dyarith")/gaRule}¨ 1¨singeliMap singeliObjs {MakeSingeliInv singeliArgs, {𝕊:UpdateSubmodule po.singeliDir}, singeliCache, 𝕩, "src/singeli/src/"•file.At 𝕩".singeli", (𝕩"dyarith")/gaRule}¨ 1¨singeliMap

View File

@ -34,8 +34,8 @@ singeliObjects ← ⟨⟩
AddSingeli { AddSingeli {
singeliObjects <𝕨𝕩 singeliObjects <𝕨𝕩
} }
SingeliInit { SingeliInit { 𝕊 po:
singeliState 𝕩 singeliState po.singeliDir, 1 ','¨ {𝕩.basearch/𝕩.feats} po.SingeliArchInfo 1
} }