mercurylang/mercury
1
0
Fork 0
mirror of https://github.com/Mercury-Language/mercury.git synced 2026-04-15 01:13:30 +00:00
Code Issues Projects Releases Wiki Activity

Add missing out-of-line definitions for MR_box_{int64,uint64}.

Browse Source 
runtime/mercury.c:
     Provide out-of-line definitions for MR_box_{int64,uint64} when using
     boxed 64-bit integers and *not* using GCC.
This commit is contained in:
Julien Fischer
2020-03-15 17:05:37 +11:00
parent c5a65723c3
commit 896e504580
1 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
runtime/mercury.c
View File

@@ -93,6 +93,40 @@ MR_OUTLINE_DEFN(
#endif // MR_BOXED_FLOAT && !MR_GNUC
#if defined(MR_BOXED_INT64S) && !defined(MR_GNUC)
MR_OUTLINE_DEFN(
MR_Box
MR_box_int64(int64_t i)
,
{
int64_t *ptr;
MR_make_hp_int64_aligned();
ptr = MR_new_object_atomic(int64_t, sizeof(int64_t),
MR_ALLOC_SITE_INT64, NULL);
*ptr = i;
return (MR_Box) ptr;
}
)
MR_OUTLINE_DEFN(
MR_Box
MR_box_uint64(uint64_t i)
,
{
uint64_t *ptr;
MR_make_hp_uint64_aligned();
ptr = MR_new_object_atomic(uint64_t, sizeof(uint64_t),
MR_ALLOC_SITE_UINT64, NULL);
*ptr = i;
return (MR_Box) ptr;
}
)
#endif // MR_BOXED_INT64S && !MR_GNUC
#endif // ! MR_HIGHLEVEL_CODE
////////////////////////////////////////////////////////////////////////////