artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Use unsigned constants.

Browse source 
* src/gc.c (FRAME_SIZE, M2_CELL_SIZE): Declare unsigned.
(gc_init): Use unsigned suffixes for divisions.
* src/posix.c (TIME_UNITS_PER_SECOND): Declare unsigned.
(UL1000000000): New constant.
(seconds_and_nanoseconds_to_long): Use it.
* src/gc.c (U10, U100): New constants.
(gc_init): Use them.
This commit is contained in:
Jan (janneke) Nieuwenhuizen 2021-01-01 10:24:22 +01:00
parent b237308f26
commit 8f67315eb6
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
2 changed files with 13 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
src/gc.c
View file

@ -30,7 +30,7 @@
int g_dump_filedes; int g_dump_filedes;
#define M2_CELL_SIZE 1 #define M2_CELL_SIZE 1U
// CONSTANT M2_CELL_SIZE 12 // CONSTANT M2_CELL_SIZE 12
char * char *
@ -47,6 +47,10 @@ news_bytes (struct scm *x)
return p + (2 * sizeof (long)); return p + (2 * sizeof (long));
} }
#define U10 10U
// CONSTANT U10 10
#define U100 100U
// CONSTANT U100 100
void void
gc_init () gc_init ()
{ {
@ -71,11 +75,11 @@ gc_init ()
p = getenv ("MES_ARENA"); p = getenv ("MES_ARENA");
if (p != 0) if (p != 0)
ARENA_SIZE = atoi (p); ARENA_SIZE = atoi (p);
JAM_SIZE = ARENA_SIZE / 10; JAM_SIZE = ARENA_SIZE / U10;
p = getenv ("MES_JAM"); p = getenv ("MES_JAM");
if (p != 0) if (p != 0)
JAM_SIZE = atoi (p); JAM_SIZE = atoi (p);
GC_SAFETY = ARENA_SIZE / 100; GC_SAFETY = ARENA_SIZE / U100;
p = getenv ("MES_SAFETY"); p = getenv ("MES_SAFETY");
if (p != 0) if (p != 0)
GC_SAFETY = atoi (p); GC_SAFETY = atoi (p);

10
src/posix.c
View file

@ -380,11 +380,11 @@ waitpid_ (struct scm *pid, struct scm *options)
#if __x86_64__ #if __x86_64__
/* Nanoseconds on 64-bit systems with POSIX timers. */ /* Nanoseconds on 64-bit systems with POSIX timers. */
// CONSTANT TIME_UNITS_PER_SECOND 1000000000 // CONSTANT TIME_UNITS_PER_SECOND 1000000000
#define TIME_UNITS_PER_SECOND 1000000000 #define TIME_UNITS_PER_SECOND 1000000000U
#else #else
/* Milliseconds for everyone else. */ /* Milliseconds for everyone else. */
// CONSTANT TIME_UNITS_PER_SECOND 1000 // CONSTANT TIME_UNITS_PER_SECOND 1000
#define TIME_UNITS_PER_SECOND 1000 #define TIME_UNITS_PER_SECOND 1000U
#endif #endif
struct scm * struct scm *
@ -408,6 +408,8 @@ gettimeofday_ () /*:((name . "gettimeofday")) */
return cons (make_number (time->tv_sec), make_number (time->tv_usec)); return cons (make_number (time->tv_sec), make_number (time->tv_usec));
} }
#define UL1000000000 1000000000UL
// CONSTANT UL1000000000 1000000000
long long
seconds_and_nanoseconds_to_long (long s, long ns) seconds_and_nanoseconds_to_long (long s, long ns)
{ {
@ -415,9 +417,9 @@ seconds_and_nanoseconds_to_long (long s, long ns)
if (ns < 0) if (ns < 0)
{ {
uns = - ns; uns = - ns;
return s * TIME_UNITS_PER_SECOND - uns / (1000000000 / TIME_UNITS_PER_SECOND); return s * TIME_UNITS_PER_SECOND - uns / (UL1000000000 / TIME_UNITS_PER_SECOND);
} }
return s * TIME_UNITS_PER_SECOND + uns / (1000000000 / TIME_UNITS_PER_SECOND); return s * TIME_UNITS_PER_SECOND + uns / (UL1000000000 / TIME_UNITS_PER_SECOND);
} }
struct scm * struct scm *