diff options
| author | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-10 22:50:06 +0200 |
|---|---|---|
| committer | David Monniaux <david.monniaux@univ-grenoble-alpes.fr> | 2019-04-10 22:50:06 +0200 |
| commit | 7cc001e63990ae5e8cf2f75b5148093e31fbdc85 (patch) | |
| tree | 2bc8e68ebe99c4b2d169e713b8f805eb1f34c2c4 /mppa_k1c/Machregs.v | |
| parent | 84d6fd30d9cbf684fa14d2f54c23ef582b298eb0 (diff) | |
| download | compcert-kvx-7cc001e63990ae5e8cf2f75b5148093e31fbdc85.tar.gz compcert-kvx-7cc001e63990ae5e8cf2f75b5148093e31fbdc85.zip | |
get / set k1
Diffstat (limited to 'mppa_k1c/Machregs.v')
| -rw-r--r-- | mppa_k1c/Machregs.v | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/mppa_k1c/Machregs.v b/mppa_k1c/Machregs.v index 823b13e9..f9712428 100644 --- a/mppa_k1c/Machregs.v +++ b/mppa_k1c/Machregs.v @@ -218,7 +218,10 @@ Definition two_address_op (op: operation) : bool := Definition builtin_constraints (ef: external_function) : list builtin_arg_constraint := match ef with - | EF_builtin id sg => nil + | EF_builtin id sg => + if string_dec id "__builtin_k1_get" then OK_const :: nil + else if string_dec id "__builtin_k1_set" then OK_const :: OK_default :: nil + else nil | EF_vload _ => OK_addressing :: nil | EF_vstore _ => OK_addressing :: OK_default :: nil | EF_memcpy _ _ => OK_addrstack :: OK_addrstack :: nil |