summaryrefslogtreecommitdiff
path: root/src/PureMicroPasses.ml
diff options
context:
space:
mode:
authorSidney Congard2022-06-30 12:22:14 +0200
committerSidney Congard2022-06-30 12:22:14 +0200
commit47691de8fe3dc32a29663d4d8343eb415ce1d81e (patch)
tree06ac570c7f9eee49987d716e043415ae31c681d0 /src/PureMicroPasses.ml
parentda118da3e590fbea4e880121837da2ee938837f6 (diff)
Traduct globals body separately (WIP)
Diffstat (limited to 'src/PureMicroPasses.ml')
-rw-r--r--src/PureMicroPasses.ml5
1 files changed, 4 insertions, 1 deletions
diff --git a/src/PureMicroPasses.ml b/src/PureMicroPasses.ml
index 826283ae..7927a068 100644
--- a/src/PureMicroPasses.ml
+++ b/src/PureMicroPasses.ml
@@ -611,7 +611,10 @@ let inline_useless_var_reassignments (inline_named : bool) (inline_pure : bool)
| Func (Unop _ | Binop _) ->
true (* primitive function call *)
| Func (Regular _) ->
- false (* non-primitive function call *))
+ false (* non-primitive function call *)
+ | Global _ ->
+ true (* Global constant or static *)
+ )
| _ -> filter
else false
in