mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-11 03:45:33 +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.
26 lines
849 B
C
26 lines
849 B
C
// vim: ts=4 sw=4 expandtab ft=c
|
|
|
|
// Copyright (C) 2006-2007 The University of Melbourne.
|
|
// Copyright (C) 2016, 2018 The Mercury team.
|
|
// This file is distributed under the terms specified in COPYING.LIB.
|
|
|
|
// This files defines the bodies of the variants of the
|
|
// MR_int_fix_index_lookup_or_add() function.
|
|
//
|
|
// NOTE: changes to this function will probably also have to be reflected
|
|
// in the places listed in mercury_type_info.h.
|
|
|
|
if (t->MR_fix_table == NULL) {
|
|
MR_table_record_fix_alloc(sizeof(MR_TableNode) * range);
|
|
t->MR_fix_table = MR_TABLE_NEW_ARRAY(MR_TableNode, range);
|
|
MR_memset(t->MR_fix_table, 0, sizeof(MR_TableNode) * range);
|
|
}
|
|
|
|
#ifdef MR_TABLE_DEBUG
|
|
if (key >= range) {
|
|
MR_fatal_error("MR_int_fix_index_lookup_or_add: key out of range");
|
|
}
|
|
#endif
|
|
|
|
return &t->MR_fix_table[key];
|