From 1181505fcf29f1ca5e698bc21ce26df459d974a5 Mon Sep 17 00:00:00 2001
From: jjgarcia <jjgarcia>
Date: Mon, 27 Oct 2003 08:45:32 +0000
Subject: [PATCH] Remove the flag 'regparm', which only applies to GCC+i86 and
 does not even bring much on that platform.

---
 src/c/symbol.d   |  2 +-
 src/h/external.h | 64 ++++++++++++++++++++++++------------------------
 2 files changed, 33 insertions(+), 33 deletions(-)

diff --git a/src/c/symbol.d b/src/c/symbol.d
index 5d9aa0d0b..2fd33adb2 100644
--- a/src/c/symbol.d
+++ b/src/c/symbol.d
@@ -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
diff --git a/src/h/external.h b/src/h/external.h
index abdfa46d5..0fb7ec45c 100644
--- a/src/h/external.h
+++ b/src/h/external.h
@@ -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 */