Revision 9aa766900f3dbf10843717543e033d86ab5a1c93 authored by Elliot Saba on 12 April 2023, 02:25:44 UTC, committed by Kristoffer on 13 April 2023, 13:15:43 UTC
Fix imaging value for generating sysimages for multiple targets

(cherry picked from commit fc4b079f6985de0e01c153d030e246f1a6332be2)
1 parent eb764cc
Raw File
equalhash.c
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <assert.h>
#include <limits.h>
#include <setjmp.h>

#include "flisp.h"
#include "equalhash.h"

#include "htable.inc"

#define _equal_lispvalue_(x, y, ctx)                                    \
    equal_lispvalue((fl_context_t*)ctx, (value_t)(x), (value_t)(y))
#define _hash_lispvalue_(x, ctx)                        \
    hash_lispvalue((fl_context_t*)ctx, (value_t)(x))

#ifdef __cplusplus
extern "C" {
#endif

HTIMPL_R(equalhash, _hash_lispvalue_, _equal_lispvalue_)

#ifdef __cplusplus
}
#endif
back to top