YAP would always say the system has tabling!
git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@1979 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
		
							
								
								
									
										10
									
								
								C/cdmgr.c
									
									
									
									
									
								
							
							
						
						
									
										10
									
								
								C/cdmgr.c
									
									
									
									
									
								
							@@ -11,8 +11,11 @@
 | 
			
		||||
* File:		cdmgr.c							 *
 | 
			
		||||
* comments:	Code manager						 *
 | 
			
		||||
*									 *
 | 
			
		||||
* Last rev:     $Date: 2007-11-07 09:25:27 $,$Author: vsc $						 *
 | 
			
		||||
* Last rev:     $Date: 2007-11-08 09:53:01 $,$Author: vsc $						 *
 | 
			
		||||
* $Log: not supported by cvs2svn $
 | 
			
		||||
* Revision 1.210  2007/11/07 09:25:27  vsc
 | 
			
		||||
* speedup meta-calls
 | 
			
		||||
*
 | 
			
		||||
* Revision 1.209  2007/11/06 17:02:11  vsc
 | 
			
		||||
* compile ground terms away.
 | 
			
		||||
*
 | 
			
		||||
@@ -625,11 +628,6 @@ static Term BlobTermAdjust(Term t)
 | 
			
		||||
#endif
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
static void
 | 
			
		||||
RestoreDBTerm(DBTerm *dbr)
 | 
			
		||||
{
 | 
			
		||||
}
 | 
			
		||||
 | 
			
		||||
#include "rclause.h"
 | 
			
		||||
 | 
			
		||||
#ifdef DEBUG
 | 
			
		||||
 
 | 
			
		||||
@@ -542,7 +542,7 @@ yap_flag(system_options,X) :-
 | 
			
		||||
'$system_options'(readline) :-
 | 
			
		||||
	'$has_readline'.
 | 
			
		||||
'$system_options'(tabling) :-
 | 
			
		||||
	\+ '$undefined'('$do_table'(_,_), prolog).
 | 
			
		||||
	\+ '$undefined'('$c_table'(_,_), prolog).
 | 
			
		||||
'$system_options'(threads) :-
 | 
			
		||||
	\+ '$no_threads'.
 | 
			
		||||
'$system_options'(wam_profiler) :-
 | 
			
		||||
 
 | 
			
		||||
		Reference in New Issue
	
	Block a user