mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-08 10:13:36 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove the flag 'regparm', which only applies to GCC+i86 and does not even bring much on that platform.

Browse source
This commit is contained in:
jjgarcia 2003-10-27 08:45:32 +00:00
parent 83f2c6f1f1
commit 1181505fcf
2 changed files with 33 additions and 33 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/symbol.d
View file

@ -27,7 +27,7 @@ cl_object cl_token;
static cl_object gensym_prefix;
static cl_object gentemp_prefix;
static cl_object gentemp_counter;
static void FEtype_error_plist(cl_object x) __attribute__((noreturn,regparm(2)));
static void FEtype_error_plist(cl_object x) __attribute__((noreturn));
cl_object

64
src/h/external.h
View file

@ -221,9 +221,9 @@ extern float object_to_float(cl_object x);
extern double object_to_double(cl_object x);
extern int aref_bv(cl_object x, cl_index index);
extern int aset_bv(cl_object x, cl_index index, int value);
extern void cl_throw(cl_object tag) __attribute__((noreturn,regparm(2)));
extern void cl_return_from(cl_object block_id, cl_object block_name) __attribute__((noreturn,regparm(2)));
extern void cl_go(cl_object tag_id, cl_object label) __attribute__((noreturn,regparm(2)));
extern void cl_throw(cl_object tag) __attribute__((noreturn));
extern void cl_return_from(cl_object block_id, cl_object block_name) __attribute__((noreturn));
extern void cl_go(cl_object tag_id, cl_object label) __attribute__((noreturn));
extern void cl_parse_key(cl_va_list args, int nkey, cl_object *keys, cl_object *vars, cl_object *rest, bool allow_other_keys);
extern cl_object cl_grab_rest_args(cl_va_list args);
extern void check_other_key(cl_object l, int n, ...);
@ -271,30 +271,30 @@ extern cl_object cl_error _ARGS((int narg, cl_object eformat, ...)) __attribute_
extern cl_object cl_cerror _ARGS((int narg, cl_object cformat, cl_object eformat, ...));
extern cl_object null_string;
extern void internal_error(const char *s) __attribute__((noreturn,regparm(2)));
extern void internal_error(const char *s) __attribute__((noreturn));
extern void cs_overflow(void) __attribute__((noreturn));
extern void error(const char *s) __attribute__((noreturn,regparm(2)));
extern void error(const char *s) __attribute__((noreturn));
extern void terminal_interrupt(bool correctable);
extern void FEprogram_error(const char *s, int narg, ...) __attribute__((noreturn));
extern void FEcontrol_error(const char *s, int narg, ...) __attribute__((noreturn));
extern void FEreader_error(const char *s, cl_object stream, int narg, ...) __attribute__((noreturn));
extern void FEerror(char *s, int narg, ...) __attribute__((noreturn));
extern void FEcannot_open(cl_object fn) __attribute__((noreturn,regparm(2)));
extern void FEend_of_file(cl_object strm) __attribute__((noreturn,regparm(2)));
extern void FEclosed_stream(cl_object strm) __attribute__ ((noreturn,regparm(2)));
extern void FEwrong_type_argument(cl_object type, cl_object value) __attribute__((noreturn,regparm(2)));
extern void FEwrong_num_arguments(cl_object fun) __attribute__((noreturn,regparm(2)));
extern void FEcannot_open(cl_object fn) __attribute__((noreturn));
extern void FEend_of_file(cl_object strm) __attribute__((noreturn));
extern void FEclosed_stream(cl_object strm) __attribute__ ((noreturn));
extern void FEwrong_type_argument(cl_object type, cl_object value) __attribute__((noreturn));
extern void FEwrong_num_arguments(cl_object fun) __attribute__((noreturn));
extern void FEwrong_num_arguments_anonym(void) __attribute__((noreturn));
extern void FEunbound_variable(cl_object sym) __attribute__((noreturn,regparm(2)));
extern void FEinvalid_macro_call(cl_object obj) __attribute__((noreturn,regparm(2)));
extern void FEinvalid_variable(char *s, cl_object obj) __attribute__((noreturn,regparm(2)));
extern void FEassignment_to_constant(cl_object v) __attribute__((noreturn,regparm(2)));
extern void FEundefined_function(cl_object fname) __attribute__((noreturn,regparm(2)));
extern void FEinvalid_function(cl_object obj) __attribute__((noreturn,regparm(2)));
extern void FEinvalid_function_name(cl_object obj) __attribute__((noreturn,regparm(2)));
extern void FEunbound_variable(cl_object sym) __attribute__((noreturn));
extern void FEinvalid_macro_call(cl_object obj) __attribute__((noreturn));
extern void FEinvalid_variable(char *s, cl_object obj) __attribute__((noreturn));
extern void FEassignment_to_constant(cl_object v) __attribute__((noreturn));
extern void FEundefined_function(cl_object fname) __attribute__((noreturn));
extern void FEinvalid_function(cl_object obj) __attribute__((noreturn));
extern void FEinvalid_function_name(cl_object obj) __attribute__((noreturn));
extern cl_object CEerror(char *err_str, int narg, ...);
extern void illegal_index(cl_object x, cl_object i);
extern void FEtype_error_symbol(cl_object obj) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_symbol(cl_object obj) __attribute__((noreturn));
extern void FElibc_error(const char *msg, int narg, ...) __attribute__((noreturn));
/* eval.c */
@ -1057,7 +1057,7 @@ extern cl_object si_reset_stack_limits();
extern void bds_overflow(void) __attribute__((noreturn));
extern void bds_unwind(bds_ptr new_bds_top);
extern int frs_overflow(void) __attribute__((noreturn));
extern void unwind(frame_ptr fr) __attribute__((noreturn,regparm(2)));
extern void unwind(frame_ptr fr) __attribute__((noreturn));
extern frame_ptr frs_sch(cl_object frame_id);
extern frame_ptr frs_sch_catch(cl_object frame_id);
extern cl_object new_frame_id(void);
@ -1245,19 +1245,19 @@ extern void assert_type_list(cl_object p);
extern void assert_type_proper_list(cl_object p);
extern cl_object cl_type_of(cl_object x);
extern void FEtype_error_character(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_cons(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_number(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_real(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_float(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_integer(cl_object x) __attribute__((noreturn,regparm(1)));
extern void FEtype_error_list(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_proper_list(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_alist(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_stream(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEcircular_list(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_index(cl_object seq, cl_object ndx) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_string(cl_object x) __attribute__((noreturn,regparm(2)));
extern void FEtype_error_character(cl_object x) __attribute__((noreturn));
extern void FEtype_error_cons(cl_object x) __attribute__((noreturn));
extern void FEtype_error_number(cl_object x) __attribute__((noreturn));
extern void FEtype_error_real(cl_object x) __attribute__((noreturn));
extern void FEtype_error_float(cl_object x) __attribute__((noreturn));
extern void FEtype_error_integer(cl_object x) __attribute__((noreturn));
extern void FEtype_error_list(cl_object x) __attribute__((noreturn));
extern void FEtype_error_proper_list(cl_object x) __attribute__((noreturn));
extern void FEtype_error_alist(cl_object x) __attribute__((noreturn));
extern void FEtype_error_stream(cl_object x) __attribute__((noreturn));
extern void FEcircular_list(cl_object x) __attribute__((noreturn));
extern void FEtype_error_index(cl_object seq, cl_object ndx) __attribute__((noreturn));
extern void FEtype_error_string(cl_object x) __attribute__((noreturn));
/* unixfsys.c */