My first attempt to synchronize OPTYap with CVS

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@918 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
ricroc 2003-11-05 18:31:49 +00:00
parent f8f7421416
commit 5a2d51d07c
2 changed files with 7 additions and 23 deletions

View File

@ -495,17 +495,12 @@ main (int argc, char **argv)
int BootMode; int BootMode;
YAP_init_args init_args; YAP_init_args init_args;
#ifdef SIMICS
fprintf(stdout,"Entering YAP\n");
#endif /* SIMICS */
BootMode = init_standard_system(argc, argv, &init_args); BootMode = init_standard_system(argc, argv, &init_args);
if (BootMode == YAP_BOOT_FROM_SAVED_ERROR) { if (BootMode == YAP_BOOT_FROM_SAVED_ERROR) {
fprintf(stderr,"[ FATAL ERROR: could not find saved state ]\n"); fprintf(stderr,"[ FATAL ERROR: could not find saved state ]\n");
exit(1); exit(1);
} }
#if defined(YAPOR) || defined(TABLING)
start_workers();
#endif /* YAPOR || TABLING */
exec_top_level(BootMode, &init_args); exec_top_level(BootMode, &init_args);
return(0); return(0);

View File

@ -10,7 +10,7 @@
* File: Yap.h.m4 * * File: Yap.h.m4 *
* mods: * * mods: *
* comments: main header file for YAP * * comments: main header file for YAP *
* version: $Id: Yap.h.m4,v 1.47 2003-06-06 11:54:02 vsc Exp $ * * version: $Id: Yap.h.m4,v 1.48 2003-11-05 18:31:49 ricroc Exp $ *
*************************************************************************/ *************************************************************************/
#include "config.h" #include "config.h"
@ -23,8 +23,6 @@
#define COROUTINING 1 #define COROUTINING 1
#define YAPOR 1
#define ANALYST 1 #define ANALYST 1
*/ */
@ -33,7 +31,7 @@
#if defined(TABLING) #if defined(TABLING)
#error Do not explicitly define TABLING #error Do not explicitly define TABLING
#endif /* YAPOR */ #endif /* TABLING */
#if defined(TABLING_BATCHED_SCHEDULING) && defined(TABLING_LOCAL_SCHEDULING) #if defined(TABLING_BATCHED_SCHEDULING) && defined(TABLING_LOCAL_SCHEDULING)
#error Do not define multiple tabling scheduling strategies #error Do not define multiple tabling scheduling strategies
@ -79,19 +77,9 @@
#endif #endif
#endif #endif
#ifdef SBA #if defined(TABLING) || defined(SBA)
#ifdef YAPOR
#ifndef FROZEN_STACKS
#define FROZEN_STACKS 1 #define FROZEN_STACKS 1
#endif #endif /* TABLING || SBA */
#endif
#endif
#ifdef TABLING
#ifndef FROZEN_STACKS
#define FROZEN_STACKS 1
#endif
#endif
#ifdef _MSC_VER /* Microsoft's Visual C++ Compiler */ #ifdef _MSC_VER /* Microsoft's Visual C++ Compiler */
/* adjust a config.h from mingw32 to work with vc++ */ /* adjust a config.h from mingw32 to work with vc++ */
@ -542,7 +530,7 @@ typedef enum {
/* These must be included before unification handlers */ /* These must be included before unification handlers */
#if defined(YAPOR) || defined(TABLING) #if defined(YAPOR) || defined(TABLING)
#include "opt.config.h" #include "opt.config.h"
#endif #endif /* YAPOR || TABLING */
/***********************************************************************/ /***********************************************************************/
@ -603,6 +591,7 @@ and RefOfTerm(t) : Term -> DBRef = ...
incompatible with the high tag scheme. Linux-ELF also does not like incompatible with the high tag scheme. Linux-ELF also does not like
if you place things in the lower addresses (power to the libc people). if you place things in the lower addresses (power to the libc people).
*/ */
#if (defined(_AIX) || defined(_WIN32) || defined(sparc) || defined(__sparc) || defined(mips) || defined(__FreeBSD__) || defined(_POWER) || defined(__linux__) || defined(IN_SECOND_QUADRANT)) && !defined(TABLING) #if (defined(_AIX) || defined(_WIN32) || defined(sparc) || defined(__sparc) || defined(mips) || defined(__FreeBSD__) || defined(_POWER) || defined(__linux__) || defined(IN_SECOND_QUADRANT)) && !defined(TABLING)
#define USE_LOW32_TAGS 1 #define USE_LOW32_TAGS 1
#endif #endif