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 {
#ifdef GBC_BOEHM_PRECISE
GC_word descriptor;
#endif
cl_object (*allocator)(register struct ecl_type_information *);
cl_object (*allocator)(struct ecl_type_information *);
size_t t;
} type_info[t_end];
......@@ -200,7 +200,7 @@ ecl_object_byte_size(cl_type t)
}
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();
cl_object op;
......@@ -212,7 +212,7 @@ allocate_object_atomic(register struct ecl_type_information *type_info)
}
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();
cl_object op;
......@@ -225,7 +225,7 @@ allocate_object_full(register struct ecl_type_information *type_info)
#ifdef GBC_BOEHM_PRECISE
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();
cl_object op;
......@@ -240,7 +240,7 @@ allocate_object_typed(register struct ecl_type_information *type_info)
#ifdef GBC_BOEHM_OWN_ALLOCATOR
#error
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 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
}
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();
cl_object op;
......
......@@ -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_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_index asm_jmp(cl_env_ptr env, register int op);
static void asm_complete(cl_env_ptr env, register int op, register cl_index original);
static cl_index asm_jmp(cl_env_ptr env, int op);
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);
......@@ -672,7 +672,7 @@ c_var_ref(cl_env_ptr env, cl_object var, int allow_symbol_macro, bool ensure_def
}
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));
}
......
......@@ -184,7 +184,7 @@ ecl_stack_frame_close(cl_object f)
#define bind_frame(env, id, name) CONS(CONS(id, name), (env))
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 {
if (s-- == 0) return ECL_CONS_CAR(env);
......@@ -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
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 "
"function ~A~&Argument list: ~S",
......@@ -276,7 +276,7 @@ too_many_arguments(register cl_object bytecodes, register cl_object frame)
}
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 "
"of keyword arguments.",
......@@ -284,7 +284,7 @@ odd_number_of_keywords(register cl_object bytecodes)
}
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.~&"
"Argument list: ~S", 2, bytecodes,
......
......@@ -38,8 +38,8 @@
static cl_index
hash_string(cl_index initval, const unsigned char *k, cl_index length)
{
register cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval;
register cl_index len;
cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval;
cl_index len;
for (len = length; len >= 24; len -= 24) {
a += 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)
static cl_index
hash_string(cl_index initval, const unsigned char *k, cl_index length)
{
register cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval;
register cl_index len;
cl_index a = GOLDEN_RATIO, b = GOLDEN_RATIO, c = initval;
cl_index len;
for (len = length; len >= 12; len -= 12) {
a += extract_word(k); k += 4;
b += extract_word(k); k += 4;
......
......@@ -319,7 +319,7 @@ cl_eql(cl_object x, cl_object y)
}
bool
ecl_equal(register cl_object x, cl_object y)
ecl_equal(cl_object x, cl_object y)
{
cl_type tx, ty;
BEGIN:
......
......@@ -535,7 +535,7 @@ frs_overflow(void) /* used as condition in list.d */
}
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
* interrupt this method with a call to ecl_unwind. Otherwise, a
......
......@@ -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_realp(cl_object x);
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_stringp(cl_object x);
......
......@@ -303,7 +303,7 @@ typedef struct ecl_frame {
cl_index frs_sp;
} *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) \
ecl_frame_ptr __frame = _ecl_frs_push(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