mirror of
https://gitlab.com/embeddable-common-lisp/ecl.git
synced 2026-01-28 07:22:27 -08:00
ea87100a06
Many parts of the source code were bent backward to support builds without long floats which are always present given we depend expect c99 compiler. The corresponding C macros (ECL_LONG_FLOAT) and the *feature* entry (:long-float) are marked as deprecated in the documentation.
67 lines
2 KiB
C
Executable file
67 lines
2 KiB
C
Executable file
/* -*- Mode: C; c-basic-offset: 8; indent-tabs-mode: nil -*- */
|
|
/* vim: set filetype=c tabstop=8 shiftwidth=4 expandtab: */
|
|
|
|
/*
|
|
ecl-cmp.h -- Include file for compiled code.
|
|
*/
|
|
/*
|
|
Copyright (c) 1984, Taiichi Yuasa and Masami Hagiya.
|
|
Copyright (c) 1990, Giuseppe Attardi.
|
|
|
|
ECoLisp is free software; you can redistribute it and/or modify it under
|
|
the terms of the GNU General Library Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or
|
|
(at your option) any later version.
|
|
|
|
See file '../Copyright' for full details.
|
|
*/
|
|
|
|
#ifndef __CYGWIN__
|
|
/* Recent versions of cygwin do not define fd_set when WINSOCKAPI is
|
|
* defined */
|
|
#define _WINSOCKAPI_
|
|
#endif /* __CYGWIN__ */
|
|
#if defined(__clang__)
|
|
/* Disable a couple of clang's more annoying diagnostics */
|
|
#pragma clang diagnostic ignored "-Wreturn-type"
|
|
#pragma clang diagnostic ignored "-Wunused-value"
|
|
#pragma clang diagnostic ignored "-Wparentheses-equality"
|
|
#elif defined(_MSC_VER)
|
|
#pragma warning(disable:4715) //not all control paths return a value
|
|
#pragma warning(disable:4716) //must return a value
|
|
#endif
|
|
#include <ecl/ecl.h>
|
|
#include <math.h> /* for inline mathematics */
|
|
#include <ecl/ecl-inl.h>
|
|
|
|
#define TRAMPOLINK(narg, vv, lk, cblock) \
|
|
ecl_va_list args; ecl_va_start(args, narg, narg, 0); \
|
|
return(_ecl_link_call(vv, (cl_objectfn *)lk, cblock, narg, args))
|
|
|
|
enum ecl_locative_type {
|
|
_ecl_object_loc = 0,
|
|
_ecl_fixnum_loc,
|
|
_ecl_base_char_loc,
|
|
_ecl_uni_char_loc,
|
|
_ecl_float_loc,
|
|
_ecl_double_loc,
|
|
_ecl_long_double_loc
|
|
#ifdef ECL_COMPLEX_FLOAT
|
|
, _ecl_csfloat_loc
|
|
, _ecl_cdfloat_loc
|
|
, _ecl_clfloat_loc
|
|
#endif
|
|
#ifdef ECL_SSE2
|
|
, _ecl_int_sse_pack_loc
|
|
, _ecl_float_sse_pack_loc
|
|
, _ecl_double_sse_pack_loc
|
|
#endif
|
|
};
|
|
|
|
struct ecl_var_debug_info {
|
|
const char *name;
|
|
uint8_t type;
|
|
};
|
|
|
|
#define _ecl_check_narg(n) \
|
|
do { if (ecl_unlikely(narg != (n))) FEwrong_num_arguments_anonym();} while(0)
|