mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-09 02:43:21 +00:00
d465fa53cb
Discussion of these changes can be found on the Mercury developers
mailing list archives from June 2018.
COPYING.LIB:
Add a special linking exception to the LGPL.
*:
Update references to COPYING.LIB.
Clean up some minor errors that have accumulated in copyright
messages.
50 lines
1.4 KiB
C
50 lines
1.4 KiB
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 2008 The University of Melbourne.
|
|
// Copyright (C) 2016, 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
#include "mercury_backjump.h"
|
|
#include "mercury_thread.h"
|
|
|
|
#if defined(MR_THREAD_SAFE)
|
|
#include <pthread.h>
|
|
#endif
|
|
|
|
// The low-level C counterparts to these globals are the `backjump_handler'
|
|
// and `backjump_next_choice_id' fields of the MR_Context structure.
|
|
// (See mercury_context.h for details.)
|
|
|
|
#if defined(MR_HIGHLEVEL_CODE)
|
|
#if defined(MR_THREAD_SAFE)
|
|
|
|
MercuryThreadKey MR_backjump_handler_key;
|
|
MercuryThreadKey MR_backjump_next_choice_id_key;
|
|
|
|
#else // not MR_THREAD_SAFE
|
|
|
|
MR_BackJumpHandler *MR_backjump_handler;
|
|
MR_BackJumpChoiceId MR_backjump_next_choice_id = 0;
|
|
|
|
#endif // not MR_THREAD_SAFE
|
|
#endif // not MR_HIGHLEVEL_CODE
|
|
|
|
#if defined(MR_HIGHLEVEL_CODE) && defined(MR_THREAD_SAFE)
|
|
|
|
MR_BackJumpChoiceId
|
|
MR_get_tl_backjump_next_choice_id(void)
|
|
{
|
|
MR_BackJumpChoiceId new_choice_id;
|
|
|
|
// NOTE: this only works because sizeof(MR_Integer) == sizeof(void *).
|
|
new_choice_id =
|
|
(MR_Integer) MR_GETSPECIFIC(MR_backjump_next_choice_id_key);
|
|
pthread_setspecific(MR_backjump_next_choice_id_key,
|
|
(void *)(new_choice_id + 1));
|
|
return new_choice_id;
|
|
}
|
|
|
|
#endif // MR_HIGLEVEL_CODE && MR_THREAD_SAFE
|
|
|
|
////////////////////////////////////////////////////////////////////////////
|