enable profiling on amd64

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1401 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
rslopes 2005-10-15 17:05:23 +00:00
parent 7175b62a27
commit cf655a6a9b

View File

@ -10,8 +10,11 @@
* * * *
* File: absmi.c * * File: absmi.c *
* comments: Portable abstract machine interpreter * * comments: Portable abstract machine interpreter *
* Last rev: $Date: 2005-09-09 17:24:37 $,$Author: vsc $ * * Last rev: $Date: 2005-10-15 17:05:23 $,$Author: rslopes $ *
* $Log: not supported by cvs2svn $ * $Log: not supported by cvs2svn $
* Revision 1.177 2005/09/09 17:24:37 vsc
* a new and hopefully much better implementation of atts.
*
* Revision 1.176 2005/09/08 22:06:44 rslopes * Revision 1.176 2005/09/08 22:06:44 rslopes
* BEAM for YAP update... * BEAM for YAP update...
* *
@ -330,7 +333,7 @@ void prof_alrm(int signo, siginfo_t *si, ucontext_t *sc);
void prof_alrm(int signo, siginfo_t *si, ucontext_t *sc) void prof_alrm(int signo, siginfo_t *si, ucontext_t *sc)
{ {
#if __linux__ && defined(i386) #if __linux__ && (defined(i386) || defined(__amd64__))
void * oldpc=(void *) sc->uc_mcontext.gregs[14]; /* 14= REG_EIP */ void * oldpc=(void *) sc->uc_mcontext.gregs[14]; /* 14= REG_EIP */
if (Yap_PrologMode & TestMode) { if (Yap_PrologMode & TestMode) {