From bac2a0854ea51217690bc6f225da62053ed7ac06 Mon Sep 17 00:00:00 2001 From: Bernhard Schommer Date: Fri, 11 Mar 2016 08:48:31 +0100 Subject: Removed unused parameter from is_small/rel_data. The ofs parameter is no longer used. Adopted the proofs and ml code using it. Bug 18394 --- powerpc/Asm.v | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'powerpc/Asm.v') diff --git a/powerpc/Asm.v b/powerpc/Asm.v index a9b60fbd..81f81040 100644 --- a/powerpc/Asm.v +++ b/powerpc/Asm.v @@ -477,15 +477,15 @@ Axiom low_high_half: register pointing to the base of the small data area containing symbol [symb]. We leave this transformation up to the linker. *) -Parameter symbol_is_small_data: ident -> int -> bool. +Parameter symbol_is_small_data: ident -> bool. Parameter small_data_area_offset: genv -> ident -> int -> val. Axiom small_data_area_addressing: forall id ofs, - symbol_is_small_data id ofs = true -> + symbol_is_small_data id = true -> small_data_area_offset ge id ofs = Genv.symbol_address ge id ofs. -Parameter symbol_is_rel_data: ident -> int -> bool. +Parameter symbol_is_rel_data: ident -> bool. (** Armed with the [low_half] and [high_half] functions, we can define the evaluation of a symbolic constant. -- cgit