use swi flags whenever possible

C/init.c

@@ -919,7 +919,6 @@ InitFlags(void)
   yap_flags[WRITE_QUOTED_STRING_FLAG] = FALSE;
   /* we do not garantee safe assert in parallel mode */
   yap_flags[ALLOW_ASSERTING_STATIC_FLAG] = TRUE;
-  yap_flags[GENERATE_DEBUG_INFO_FLAG] = TRUE;
   /* current default */
   yap_flags[INDEXING_MODE_FLAG] = INDEX_MODE_MULTI;
   yap_flags[TABLING_MODE_FLAG] = 0;

C/iopreds.c

@@ -334,11 +334,7 @@ syntax_error (TokEntry * tokptr, IOSTREAM *st, Term *outp)
       {
 	char s[2];
 	s[1] = '\0';
-	if (Ord (info) == 'l') {
-	  s[0] = '(';
-	} else  {
-	  s[0] = (char)info;
-	}
+	s[0] = (char)info;
 	ts[0] = MkAtomTerm(Yap_LookupAtom(s));
       }
     }
@@ -561,7 +557,6 @@ static Int
   Term tcomms = Deref(ARG7);
   int store_comments = IsVarTerm(tcomms);
 
-  Yap_setCurrentSourceLocation(&inp_stream);
   if (IsVarTerm(tmod)) {
     tmod = CurrentModule;
   } else if (!IsAtomTerm(tmod)) {

C/signals.c

@@ -116,24 +116,6 @@ p_creep_allowed( USES_REGS1 )
   return FALSE;
 }
 
-static Int
-p_debug_on( USES_REGS1 )
-{
-  Term t = Deref(ARG1);
-  if (IsVarTerm(t)) {
-    if (LOCAL_DebugOn)
-      return Yap_unify(MkAtomTerm(AtomTrue),ARG1);
-    else
-      return Yap_unify(MkAtomTerm(AtomFalse),ARG1);
-  }
-  if (t == MkAtomTerm(AtomTrue))
-    LOCAL_DebugOn = TRUE;
-  else
-    LOCAL_DebugOn = FALSE;
-  return TRUE;
-}
-
-
 void 
 Yap_signal(yap_signals sig)
 {
@@ -370,7 +352,6 @@ Yap_InitSignalCPreds(void)
   Yap_InitCPred("$stop_creeping", 0, p_stop_creeping, SafePredFlag);
   Yap_InitCPred ("$first_signal", 1, p_first_signal, SafePredFlag|SyncPredFlag);
   Yap_InitCPred ("$continue_signals", 0, p_continue_signals, SafePredFlag|SyncPredFlag);
-  Yap_InitCPred("$debug_on", 1, p_debug_on, 0);
   Yap_InitCPred("$creep_allowed", 0, p_creep_allowed, 0);
 #ifdef DEBUG
   Yap_InitCPred("$debug", 1, p_debug, SafePredFlag|SyncPredFlag);

C/stdpreds.c

@@ -1706,11 +1706,6 @@ p_set_yap_flags( USES_REGS1 )
       return(FALSE);
     yap_flags[STACK_DUMP_ON_ERROR_FLAG] = value;
     break;
-  case GENERATE_DEBUG_INFO_FLAG:
-    if (value != 0 && value != 1)
-      return(FALSE);
-    yap_flags[GENERATE_DEBUG_INFO_FLAG] = value;
-    break;
   case INDEXING_MODE_FLAG:
     if (value < INDEX_MODE_OFF || value >  INDEX_MODE_MAX)
       return(FALSE);