diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-28 23:24:16 +0100 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2020-03-28 23:24:16 +0100 |
| commit | 3136a5071d92ba5dfa304d8a7177cda266f501e1 (patch) | |
| tree | f1e3ce7d9268d094a7a1f4778f9f7f2201471eea /backend/FirstNop.v | |
| parent | b1c8e25e7756be73d16cc6dd08879f1f552ce5fc (diff) | |
| download | compcert-kvx-3136a5071d92ba5dfa304d8a7177cda266f501e1.tar.gz compcert-kvx-3136a5071d92ba5dfa304d8a7177cda266f501e1.zip | |
pass to insert a "nop" at head of each function
Diffstat (limited to 'backend/FirstNop.v')
| -rw-r--r-- | backend/FirstNop.v | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/backend/FirstNop.v b/backend/FirstNop.v index 3d2211bc..f7e5261e 100644 --- a/backend/FirstNop.v +++ b/backend/FirstNop.v @@ -3,7 +3,7 @@ Require Import AST Linking. Require Import Memory Registers Op RTL. Definition transf_function (f: function) : function := - let start_pc := max_pc_function f in + let start_pc := Pos.succ (max_pc_function f) in {| fn_sig := f.(fn_sig); fn_params := f.(fn_params); fn_stacksize := f.(fn_stacksize); |