vm: Fix some really minor warnings.

handle-patch-and-put
Doug Coleman 2018-07-27 21:35:55 -05:00
parent 339be707a2
commit e6e7655cbd
3 changed files with 13 additions and 9 deletions

View File

@ -84,7 +84,10 @@ FACTOR_STDCALL(struct bar) ffi_test_19(long x, long y, long z) {
} }
void ffi_test_20(double x1, double x2, double x3, double y1, double y2, void ffi_test_20(double x1, double x2, double x3, double y1, double y2,
double y3, double z1, double z2, double z3) {} double y3, double z1, double z2, double z3) {
(void) x1, (void) x2, (void) x3, (void) y1, (void) y2,
(void) y3, (void) z1, (void) z2, (void) z3;
}
long long ffi_test_21(long x, long y) { return (long long) x * (long long) y; } long long ffi_test_21(long x, long y) { return (long long) x * (long long) y; }
@ -309,7 +312,7 @@ unsigned long long ffi_test_60(unsigned long long x) {
/* C99 features */ /* C99 features */
#ifndef _MSC_VER #ifndef _MSC_VER
struct bool_and_ptr ffi_test_61() { struct bool_and_ptr ffi_test_61(void) {
struct bool_and_ptr bap; struct bool_and_ptr bap;
bap.b = true; bap.b = true;
bap.ptr = NULL; bap.ptr = NULL;
@ -318,14 +321,14 @@ struct bool_and_ptr ffi_test_61() {
#endif #endif
struct uint_pair ffi_test_62() { struct uint_pair ffi_test_62(void) {
struct uint_pair uip; struct uint_pair uip;
uip.a = 0xabcdefab; uip.a = 0xabcdefab;
uip.b = 0x12345678; uip.b = 0x12345678;
return uip; return uip;
} }
struct ulonglong_pair ffi_test_63() { struct ulonglong_pair ffi_test_63(void) {
struct ulonglong_pair ullp; struct ulonglong_pair ullp;
ullp.a = 0xabcdefabcdefabcd; ullp.a = 0xabcdefabcdefabcd;
ullp.b = 0x1234567891234567; ullp.b = 0x1234567891234567;
@ -360,6 +363,8 @@ void* bug1021_test_1(void* x, int y) {
} }
int bug1021_test_2(int x, char *y, void *z) { int bug1021_test_2(int x, char *y, void *z) {
(void) x;
(void) z;
return y[0]; return y[0];
} }

View File

@ -161,7 +161,7 @@ struct test_struct_16 {
FACTOR_EXPORT struct test_struct_16 ffi_test_43(float x, int a); FACTOR_EXPORT struct test_struct_16 ffi_test_43(float x, int a);
FACTOR_EXPORT struct test_struct_14 ffi_test_44(); FACTOR_EXPORT struct test_struct_14 ffi_test_44(void);
/* C99 features */ /* C99 features */
#ifndef _MSC_VER #ifndef _MSC_VER
@ -211,7 +211,7 @@ struct bool_and_ptr {
void* ptr; void* ptr;
}; };
FACTOR_EXPORT struct bool_and_ptr ffi_test_61(); FACTOR_EXPORT struct bool_and_ptr ffi_test_61(void);
#endif #endif
@ -220,14 +220,14 @@ struct uint_pair {
unsigned int b; unsigned int b;
}; };
FACTOR_EXPORT struct uint_pair ffi_test_62(); FACTOR_EXPORT struct uint_pair ffi_test_62(void);
struct ulonglong_pair { struct ulonglong_pair {
unsigned long long a; unsigned long long a;
unsigned long long b; unsigned long long b;
}; };
FACTOR_EXPORT struct ulonglong_pair ffi_test_63(); FACTOR_EXPORT struct ulonglong_pair ffi_test_63(void);
FACTOR_EXPORT int ffi_test_64(int n, ...); FACTOR_EXPORT int ffi_test_64(int n, ...);
FACTOR_EXPORT double ffi_test_65(int n, ...); FACTOR_EXPORT double ffi_test_65(int n, ...);

View File

@ -10,7 +10,6 @@ struct quotation_jit : public jit {
elements(false_object, vm), elements(false_object, vm),
compiling(compiling), compiling(compiling),
relocate(relocate) {} relocate(relocate) {}
;
cell nth(cell index); cell nth(cell index);
void init_quotation(cell quot); void init_quotation(cell quot);