From d741845da605f75a3cf650fe2915940ce58ddaa5 Mon Sep 17 00:00:00 2001 From: Xavier Leroy Date: Wed, 6 May 2015 11:26:27 +0200 Subject: Typo: Val.sun_inject -> Val.sub_inject. --- arm/Op.v | 8 ++++---- common/Values.v | 2 +- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/arm/Op.v b/arm/Op.v index b5ea9a7a..df39b26a 100644 --- a/arm/Op.v +++ b/arm/Op.v @@ -878,10 +878,10 @@ Proof. apply Values.Val.add_inject; auto. apply eval_shift_inj; auto. apply Values.Val.add_inject; auto. - apply Values.Val.sun_inject; auto. - apply Values.Val.sun_inject; auto. apply eval_shift_inj; auto. - apply Values.Val.sun_inject; auto. apply eval_shift_inj; auto. - apply (@Values.Val.sun_inject f (Vint i) (Vint i) v v'); auto. + apply Values.Val.sub_inject; auto. + apply Values.Val.sub_inject; auto. apply eval_shift_inj; auto. + apply Values.Val.sub_inject; auto. apply eval_shift_inj; auto. + apply (@Values.Val.sub_inject f (Vint i) (Vint i) v v'); auto. inv H4; inv H2; simpl; auto. apply Values.Val.add_inject; auto. inv H4; inv H2; simpl; auto. diff --git a/common/Values.v b/common/Values.v index a4ead481..8877f9a7 100644 --- a/common/Values.v +++ b/common/Values.v @@ -1545,7 +1545,7 @@ Proof. repeat rewrite Int.add_assoc. decEq. apply Int.add_commut. Qed. -Remark sun_inject: +Remark sub_inject: forall v1 v1' v2 v2', inject f v1 v1' -> inject f v2 v2' -> -- cgit From 56bac3dc3d45c219db5d9c7b6a97794c00f8115e Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Thu, 7 May 2015 12:54:27 +0200 Subject: Use globl also for global variables. --- backend/PrintAsm.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index 11854ace..0438a40f 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -94,7 +94,7 @@ module Printer(Target:TARGET) = fprintf oc " %s\n" name_sec; Target.print_align oc align; if not (C2C.atom_is_static name) then - fprintf oc " .global %a\n" Target.symbol name; + fprintf oc " .globl %a\n" Target.symbol name; fprintf oc "%a:\n" Target.symbol name; print_init_data oc name v.gvar_init; Target.print_var_info oc name; -- cgit