Commit 8a38c9a3 authored by Marius Gerbershagen's avatar Marius Gerbershagen
Browse files

remove register storage class specifier

This option is not needed anymore, ignored by modern compilers and has
been removed in the C++17 standard.

Fixes #647.
parent ed0c3843
...@@ -175,7 +175,7 @@ static struct ecl_type_information { ...@@ -175,7 +175,7 @@ static struct ecl_type_information {
#ifdef GBC_BOEHM_PRECISE #ifdef GBC_BOEHM_PRECISE
GC_word descriptor; GC_word descriptor;
#endif #endif
cl_object (*allocator)(register struct ecl_type_information *); cl_object (*allocator)(struct ecl_type_information *);
size_t t; size_t t;
} type_info[t_end]; } type_info[t_end];
...@@ -200,7 +200,7 @@ ecl_object_byte_size(cl_type t) ...@@ -200,7 +200,7 @@ ecl_object_byte_size(cl_type t)
} }
static cl_object static cl_object
allocate_object_atomic(register struct ecl_type_information *type_info) allocate_object_atomic(struct ecl_type_information *type_info)
{ {
const cl_env_ptr the_env = ecl_process_env(); const cl_env_ptr the_env = ecl_process_env();
cl_object op; cl_object op;
...@@ -212,7 +212,7 @@ allocate_object_atomic(register struct ecl_type_information *type_info) ...@@ -212,7 +212,7 @@ allocate_object_atomic(register struct ecl_type_information *type_info)
} }
static cl_object static cl_object
allocate_object_full(register struct ecl_type_information *type_info) allocate_object_full(struct ecl_type_information *type_info)
{ {
const cl_env_ptr the_env = ecl_process_env(); const cl_env_ptr the_env = ecl_process_env();
cl_object op; cl_object op;
...@@ -225,7 +225,7 @@ allocate_object_full(register struct ecl_type_information *type_info) ...@@ -225,7 +225,7 @@ allocate_object_full(register struct ecl_type_information *type_info)
#ifdef GBC_BOEHM_PRECISE #ifdef GBC_BOEHM_PRECISE
static cl_object static cl_object
allocate_object_typed(register struct ecl_type_information *type_info) allocate_object_typed(struct ecl_type_information *type_info)
{ {
const cl_env_ptr the_env = ecl_process_env(); const cl_env_ptr the_env = ecl_process_env();
cl_object op; cl_object op;
...@@ -240,7 +240,7 @@ allocate_object_typed(register struct ecl_type_information *type_info) ...@@ -240,7 +240,7 @@ allocate_object_typed(register struct ecl_type_information *type_info)
#ifdef GBC_BOEHM_OWN_ALLOCATOR #ifdef GBC_BOEHM_OWN_ALLOCATOR
#error #error
static cl_object static cl_object
allocate_object_own(register struct ecl_type_information *type_info) allocate_object_own(struct ecl_type_information *type_info)
{ {
#define TYPD_EXTRA_BYTES (sizeof(word) - EXTRA_BYTES) #define TYPD_EXTRA_BYTES (sizeof(word) - EXTRA_BYTES)
#define GENERAL_MALLOC(lb,k) (void *)GC_generic_malloc(lb, k) #define GENERAL_MALLOC(lb,k) (void *)GC_generic_malloc(lb, k)
...@@ -505,7 +505,7 @@ cl_object_mark_proc(void *addr, struct GC_ms_entry *msp, struct GC_ms_entry *msl ...@@ -505,7 +505,7 @@ cl_object_mark_proc(void *addr, struct GC_ms_entry *msp, struct GC_ms_entry *msl
} }
static cl_object static cl_object
allocate_object_marked(register struct ecl_type_information *type_info) allocate_object_marked(struct ecl_type_information *type_info)
{ {
const cl_env_ptr the_env = ecl_process_env(); const cl_env_ptr the_env = ecl_process_env();
cl_object op; cl_object op;
......
...@@ -68,8 +68,8 @@ static void asm_clear(cl_env_ptr env, cl_index h); ...@@ -68,8 +68,8 @@ static void asm_clear(cl_env_ptr env, cl_index h);
static void asm_op(cl_env_ptr env, cl_fixnum op); static void asm_op(cl_env_ptr env, cl_fixnum op);
static void asm_op2(cl_env_ptr env, int op, int arg); static void asm_op2(cl_env_ptr env, int op, int arg);
static cl_object asm_end(cl_env_ptr env, cl_index handle, cl_object definition); static cl_object asm_end(cl_env_ptr env, cl_index handle, cl_object definition);
static cl_index asm_jmp(cl_env_ptr env, register int op); static cl_index asm_jmp(cl_env_ptr env, int op);
static void asm_complete(cl_env_ptr env, register int op, register cl_index original); static void asm_complete(cl_env_ptr env, int op, cl_index original);
static cl_fixnum c_var_ref(cl_env_ptr env, cl_object var, int allow_symbol_macro, bool ensure_defined); static cl_fixnum c_var_ref(cl_env_ptr env, cl_object var, int allow_symbol_macro, bool ensure_defined);
...@@ -672,7 +672,7 @@ c_var_ref(cl_env_ptr env, cl_object var, int allow_symbol_macro, bool ensure_def ...@@ -672,7 +672,7 @@ c_var_ref(cl_env_ptr env, cl_object var, int allow_symbol_macro, bool ensure_def
} }
static bool static bool
c_declared_special(register cl_object var, register cl_object specials) c_declared_special(cl_object var, cl_object specials)
{ {
return ((ecl_symbol_type(var) & ecl_stp_special) || ecl_member_eq(var, specials)); return ((ecl_symbol_type(var) & ecl_stp_special) || ecl_member_eq(var, specials));
} }
......
...@@ -184,7 +184,7 @@ ecl_stack_frame_close(cl_object f) ...@@ -184,7 +184,7 @@ ecl_stack_frame_close(cl_object f)
#define bind_frame(env, id, name) CONS(CONS(id, name), (env)) #define bind_frame(env, id, name) CONS(CONS(id, name), (env))
static cl_object static cl_object
ecl_lex_env_get_record(register cl_object env, register int s) ecl_lex_env_get_record(cl_object env, int s)
{ {
do { do {
if (s-- == 0) return ECL_CONS_CAR(env); if (s-- == 0) return ECL_CONS_CAR(env);
...@@ -268,7 +268,7 @@ static void odd_number_of_keywords(cl_object bytecodes) ecl_attr_noreturn; ...@@ -268,7 +268,7 @@ static void odd_number_of_keywords(cl_object bytecodes) ecl_attr_noreturn;
static void unknown_keyword(cl_object bytecodes, cl_object frame) ecl_attr_noreturn; static void unknown_keyword(cl_object bytecodes, cl_object frame) ecl_attr_noreturn;
static void static void
too_many_arguments(register cl_object bytecodes, register cl_object frame) too_many_arguments(cl_object bytecodes, cl_object frame)
{ {
FEprogram_error("Too many arguments passed to " FEprogram_error("Too many arguments passed to "
"function ~A~&Argument list: ~S", "function ~A~&Argument list: ~S",
...@@ -276,7 +276,7 @@ too_many_arguments(register cl_object bytecodes, register cl_object frame) ...@@ -276,7 +276,7 @@ too_many_arguments(register cl_object bytecodes, register cl_object frame)
} }
static void static void
odd_number_of_keywords(register cl_object bytecodes) odd_number_of_keywords(cl_object bytecodes)
{ {
FEprogram_error("Function ~A called with odd number " FEprogram_error("Function ~A called with odd number "
"of keyword arguments.", "of keyword arguments.",
...@@ -284,7 +284,7 @@ odd_number_of_keywords(register cl_object bytecodes) ...@@ -284,7 +284,7 @@ odd_number_of_keywords(register cl_object bytecodes)
} }
static void static void
unknown_keyword(register cl_object bytecodes, register cl_object frame) unknown_keyword(cl_object bytecodes, cl_object frame)
{ {
FEprogram_error("Unknown keyword argument passed to function ~S.~&" FEprogram_error("Unknown keyword argument passed to function ~S.~&"
"Argument list: ~S", 2, bytecodes, "Argument list: ~S", 2, bytecodes,
......
...@@ -38,8 +38,8 @@ ...@@ -38,8 +38,8 @@
static cl_index static cl_index
hash_string(cl_index initval, const unsigned char *k, cl_index length) hash_string(cl_index initval, const unsigned char *k, cl_index length)
{ {
register cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval; cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval;
register cl_index len; cl_index len;
for (len = length; len >= 24; len -= 24) { for (len = length; len >= 24; len -= 24) {
a += extract_word(k); k+=8; a += extract_word(k); k+=8;
b += extract_word(k); k+=8; b += extract_word(k); k+=8;
...@@ -107,8 +107,8 @@ hash_string(cl_index initval, const unsigned char *k, cl_index length) ...@@ -107,8 +107,8 @@ hash_string(cl_index initval, const unsigned char *k, cl_index length)
static cl_index static cl_index
hash_string(cl_index initval, const unsigned char *k, cl_index length) hash_string(cl_index initval, const unsigned char *k, cl_index length)
{ {
register cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval; cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval;
register cl_index len; cl_index len;
for (len = length; len >= 12; len -= 12) { for (len = length; len >= 12; len -= 12) {
a += extract_word(k); k += 4; a += extract_word(k); k += 4;
b += extract_word(k); k += 4; b += extract_word(k); k += 4;
......
...@@ -319,7 +319,7 @@ cl_eql(cl_object x, cl_object y) ...@@ -319,7 +319,7 @@ cl_eql(cl_object x, cl_object y)
} }
bool bool
ecl_equal(register cl_object x, cl_object y) ecl_equal(cl_object x, cl_object y)
{ {
cl_type tx, ty; cl_type tx, ty;
BEGIN: BEGIN:
......
...@@ -535,7 +535,7 @@ frs_overflow(void) /* used as condition in list.d */ ...@@ -535,7 +535,7 @@ frs_overflow(void) /* used as condition in list.d */
} }
ecl_frame_ptr ecl_frame_ptr
_ecl_frs_push(register cl_env_ptr env) _ecl_frs_push(cl_env_ptr env)
{ {
/* We store a dummy tag first, to make sure that it is safe to /* We store a dummy tag first, to make sure that it is safe to
* interrupt this method with a call to ecl_unwind. Otherwise, a * interrupt this method with a call to ecl_unwind. Otherwise, a
......
...@@ -1452,7 +1452,7 @@ extern ECL_API bool floatp(cl_object x); ...@@ -1452,7 +1452,7 @@ extern ECL_API bool floatp(cl_object x);
extern ECL_API bool ecl_numberp(cl_object x); extern ECL_API bool ecl_numberp(cl_object x);
extern ECL_API bool ecl_realp(cl_object x); extern ECL_API bool ecl_realp(cl_object x);
extern ECL_API bool ecl_eql(cl_object x, cl_object y); extern ECL_API bool ecl_eql(cl_object x, cl_object y);
extern ECL_API bool ecl_equal(register cl_object x, cl_object y); extern ECL_API bool ecl_equal(cl_object x, cl_object y);
extern ECL_API bool ecl_equalp(cl_object x, cl_object y); extern ECL_API bool ecl_equalp(cl_object x, cl_object y);
extern ECL_API bool ecl_stringp(cl_object x); extern ECL_API bool ecl_stringp(cl_object x);
......
...@@ -303,7 +303,7 @@ typedef struct ecl_frame { ...@@ -303,7 +303,7 @@ typedef struct ecl_frame {
cl_index frs_sp; cl_index frs_sp;
} *ecl_frame_ptr; } *ecl_frame_ptr;
extern ECL_API ecl_frame_ptr _ecl_frs_push(register cl_env_ptr); extern ECL_API ecl_frame_ptr _ecl_frs_push(cl_env_ptr);
#define ecl_frs_push(env,val) \ #define ecl_frs_push(env,val) \
ecl_frame_ptr __frame = _ecl_frs_push(env); \ ecl_frame_ptr __frame = _ecl_frs_push(env); \
ecl_disable_interrupts_env(env); \ ecl_disable_interrupts_env(env); \
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment