[m-rev.] diff: removing MR_USE_DECL_STACK_SLOT

[Mark Brown]

On 16-May-2002, Zoltan Somogyi <zs at cs.mu.OZ.AU> wrote:
> cvs diff: Diffing .
> Index: mercury_trace_declarative.c
> ===================================================================
> RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_declarative.c,v
> retrieving revision 1.51
> diff -u -b -r1.51 mercury_trace_declarative.c
> --- mercury_trace_declarative.c	15 May 2002 11:24:18 -0000	1.51
> +++ mercury_trace_declarative.c	15 May 2002 11:32:52 -0000
> @@ -495,14 +477,7 @@
>  				event_info->MR_saved_regs,
>  				MR_PORT_EXIT);
>  
> -#ifdef MR_USE_DECL_STACK_SLOT
> -	call = MR_trace_decl_get_slot(event_info->MR_event_sll->MR_sll_entry,
> -				event_info->MR_saved_regs);
> -#else
> -	call = MR_trace_matching_call(prev);
>  	MR_decl_checkpoint_match(call);
> -#endif
> -	
>  	MR_TRACE_CALL_MERCURY(
>  		last_interface = MR_DD_call_node_get_last_interface(
>  				(MR_Word) call);


Estimated hours taken: 0.1
Branches: main

trace/mercury_trace_declarative.c:
	Replace a line that was accidentally deleted in an earlier change.

Index: trace/mercury_trace_declarative.c
===================================================================
RCS file: /home/mercury1/repository/mercury/trace/mercury_trace_declarative.c,v
retrieving revision 1.52
diff -u -r1.52 mercury_trace_declarative.c
--- trace/mercury_trace_declarative.c	15 May 2002 16:22:23 -0000	1.52
+++ trace/mercury_trace_declarative.c	15 May 2002 23:57:11 -0000
@@ -477,6 +477,7 @@
 				event_info->MR_saved_regs,
 				MR_PORT_EXIT);
 
+	call = MR_trace_matching_call(prev);
 	MR_decl_checkpoint_match(call);
 	MR_TRACE_CALL_MERCURY(
 		last_interface = MR_DD_call_node_get_last_interface(
--------------------------------------------------------------------------
mercury-reviews mailing list
post:  mercury-reviews at cs.mu.oz.au
administrative address: owner-mercury-reviews at cs.mu.oz.au
unsubscribe: Address: mercury-reviews-request at cs.mu.oz.au Message: unsubscribe
subscribe:   Address: mercury-reviews-request at cs.mu.oz.au Message: subscribe
--------------------------------------------------------------------------