mirror of
https://github.com/Mercury-Language/mercury.git
synced 2026-04-18 02:43:40 +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.
56 lines
1.6 KiB
C
56 lines
1.6 KiB
C
/*
|
|
** Copyright (C) 1999-2000,2002 University of Melbourne.
|
|
** Copyright (C) 2018 The Mercury team.
|
|
** This file is distributed under the terms specified in COPYING.LIB.
|
|
*/
|
|
|
|
/*
|
|
** This file exposes the C types used by the reference and nb_reference
|
|
** modules, so that one can allocate them somewhere other than the heap if
|
|
** one so desires. Normally this should not be necessary, and the cleaner,
|
|
** safer interfaces provided by reference.m and nb_reference.m should be
|
|
** used instead. However, sometimes it is useful; for example, the HAL
|
|
** compiler would like to be able to allocate them at compile-time-known
|
|
** locations, in order to implement global variables.
|
|
**
|
|
** These types should be treated as abstract in case their implementation
|
|
** changes in the future.
|
|
**
|
|
** Sample usage:
|
|
**
|
|
** The following example declares an ME_Reference `foo' at a
|
|
** compile-time-known location, and provides a zero-arity function for
|
|
** returning the corresponding Mercury object of type `reference/1'. Note
|
|
** that this reference should be initialised with the `reference:init/2'
|
|
** predicate before use: see the documentation of that predicate in
|
|
** reference.m for more caveats.
|
|
**
|
|
** :- pragma c_header_code("
|
|
** #include ""c_reference.h""
|
|
** extern ME_Reference foo;
|
|
** ").
|
|
**
|
|
** :- pragma c_code("
|
|
** ME_Reference foo;
|
|
** ").
|
|
**
|
|
** :- pragma c_code(foo_reference = (X::out), will_not_call_mercury, "
|
|
** X = (MR_Word) &foo;
|
|
** ").
|
|
*/
|
|
|
|
#ifndef C_REFERENCE_H
|
|
#define C_REFERENCE_H
|
|
|
|
#include "mercury_trail.h"
|
|
|
|
typedef struct {
|
|
void *value;
|
|
MR_ChoicepointId id;
|
|
} ME_Reference;
|
|
|
|
typedef MR_Word ME_NbReference;
|
|
|
|
#endif /* not C_REFERENCE_H */
|
|
|