[m-rev.] diff: minor agc debugging improvements
Zoltan Somogyi
zs at cs.mu.OZ.AU
Mon Jan 5 14:05:53 AEDT 2004
On 30-Dec-2003, Fergus Henderson <fjh at cs.mu.OZ.AU> wrote:
> @@ -881,7 +881,7 @@
> if (internal->i_name != NULL) {
> fprintf(fp, "label %s", internal->i_name);
> } else {
> - fprintf(fp, "unnamed label");
> + fprintf(fp, "unnamed label %p", internal->i_addr);
> }
> } else {
> #ifdef MR_NEED_ENTRY_LABEL_ARRAY
> @@ -892,13 +892,14 @@
> if (entry->e_name != NULL) {
> fprintf(fp, "entry label %s", entry->e_name);
> } else {
> - fprintf(fp, "unnamed entry label");
> + fprintf(fp, "unnamed entry label %p",
> + entry->e_addr);
> }
> } else {
> - fprintf(fp, "label UNKNOWN");
> + fprintf(fp, "label UNKNOWN %p", w);
> }
> #else
> - fprintf(fp, "label UNKNOWN");
> + fprintf(fp, "label UNKNOWN %p", w);
> #endif /* not MR_NEED_ENTRY_LABEL_ARRAY */
> }
These changes caused tests/debugger/nondet_stack to fail. I have committed
a fix to filter out the added pointers.
Zoltan.
--------------------------------------------------------------------------
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
--------------------------------------------------------------------------
More information about the reviews
mailing list