We read every piece of feedback, and take your input very seriously.
To see all available qualifiers, see our documentation.
1 parent 052c7b8 commit e62dd79Copy full SHA for e62dd79
1 file changed
src/HVM/Compile.hs
@@ -70,9 +70,13 @@ rt_red_opy_w32 :: String; rt_red_opy_w32 = $(embedStringFile "./src/HVM/runtime/
70
stripIncl :: String -> String
71
stripIncl = unlines . filter (not . isPrefixOf "#include \"Runtime.h\"") . lines
72
73
+-- Remove header-only pragmas that are noisy in a main TU
74
+stripHdr :: String -> String
75
+stripHdr = unlines . filter (not . isPrefixOf "#pragma once") . lines
76
+
77
runtime_c :: String
78
runtime_c = unlines
- [ runtime_h
79
+ [ stripHdr runtime_h
80
, stripIncl rt_state_c
81
, stripIncl rt_heap_c
82
, stripIncl rt_term_c
0 commit comments