From 807cca51ecf79455e8f131082c782ae41df66629 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Fri, 17 Jun 2016 16:04:33 +0100
Subject: [PATCH] Add routine to output a directory in a string.

---
 C/errors.c | 56 ------------------------------------------------------
 1 file changed, 56 deletions(-)

diff --git a/C/errors.c b/C/errors.c
index 20b7ae286..197534c48 100755
--- a/C/errors.c
+++ b/C/errors.c
@@ -32,62 +32,6 @@
 #endif
 #include "Foreign.h"
 
-#if DEBUG
-void Yap_PrintPredName(PredEntry *ap) {
-  CACHE_REGS
-    Term tmod = ap->ModuleOfPred;
-  if (!tmod)
-    tmod = TermProlog;
-#if THREADS
-  Yap_DebugPlWrite(MkIntegerTerm(worker_id));
-  Yap_DebugPutc(stderr, ' ');
-#endif
-  Yap_DebugPutc(stderr, '>');
-  Yap_DebugPutc(stderr, '\t');
-  Yap_DebugPlWrite(tmod);
-  Yap_DebugPutc(stderr, ':');
-  if (ap->ModuleOfPred == IDB_MODULE) {
-    Term t = Deref(ARG1);
-    if (IsAtomTerm(t)) {
-      Yap_DebugPlWrite(t);
-    } else if (IsIntegerTerm(t)) {
-      Yap_DebugPlWrite(t);
-    } else {
-      Functor f = FunctorOfTerm(t);
-      Atom At = NameOfFunctor(f);
-      Yap_DebugPlWrite(MkAtomTerm(At));
-      Yap_DebugPutc(stderr, '/');
-      Yap_DebugPlWrite(MkIntegerTerm(ArityOfFunctor(f)));
-    }
-  } else {
-    if (ap->ArityOfPE == 0) {
-      Atom At = (Atom)ap->FunctorOfPred;
-      Yap_DebugPlWrite(MkAtomTerm(At));
-    } else {
-      Functor f = ap->FunctorOfPred;
-      Atom At = NameOfFunctor(f);
-      Yap_DebugPlWrite(MkAtomTerm(At));
-      Yap_DebugPutc(stderr, '/');
-      Yap_DebugPlWrite(MkIntegerTerm(ArityOfFunctor(f)));
-    }
-  }
-  char s[1024];
-  if (ap->PredFlags & StandardPredFlag)
-    fprintf(stderr, "S");
-  if (ap->PredFlags & CPredFlag)
-    fprintf(stderr, "C");
-  if (ap->PredFlags & UserCPredFlag)
-    fprintf(stderr, "U");
-  if (ap->PredFlags & SyncPredFlag)
-    fprintf(stderr, "Y");
-  if (ap->PredFlags & LogUpdatePredFlag)
-    fprintf(stderr, "Y");
-  if (ap->PredFlags & HiddenPredFlag)
-    fprintf(stderr, "H");
-  sprintf(s, "   %llx\n", ap->PredFlags);
-  Yap_DebugPuts(stderr, s);
-}
-#endif
 
 bool Yap_Warning(const char *s, ...) {
   CACHE_REGS