From b01261eed57db738985d8f20d87d71024be8bf18 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?V=C3=ADtor=20Santos=20Costa?= <vsc@dcc.fc.up.pt>
Date: Fri, 9 Mar 2012 12:06:43 +0000
Subject: [PATCH] fix handling for execute_cpred.

---
 C/gprof.c | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/C/gprof.c b/C/gprof.c
index 1ea415dbc..9f9ea7e09 100644
--- a/C/gprof.c
+++ b/C/gprof.c
@@ -930,9 +930,9 @@ prof_alrm(int signo, siginfo_t *si, void *scv)
     if (oop == _call_cpred || oop == _call_usercpred) {
       /* doing C-code */
       current_p = PREVOP(P,Osbpp)->u.Osbpp.p->CodeOfPred;
-    } else if ((oop = Yap_op_from_opcode(PREVOP(P,pp)->opc)) == _execute_cpred) {
+    } else if ((oop = Yap_op_from_opcode(P->opc)) == _execute_cpred) {
       /* doing C-code */
-      current_p = PREVOP(P,pp)->u.pp.p->CodeOfPred;
+      current_p = P->u.pp.p->CodeOfPred;
     } else {
       current_p = P;
     }