steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
vm/ffi_test.c
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,
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; }
@ -309,7 +312,7 @@ unsigned long long ffi_test_60(unsigned long long x) {
/* C99 features */
#ifndef _MSC_VER
struct bool_and_ptr ffi_test_61() {
struct bool_and_ptr ffi_test_61(void) {
struct bool_and_ptr bap;
bap.b = true;
bap.ptr = NULL;
@ -318,14 +321,14 @@ struct bool_and_ptr ffi_test_61() {
#endif
struct uint_pair ffi_test_62() {
struct uint_pair ffi_test_62(void) {
struct uint_pair uip;
uip.a = 0xabcdefab;
uip.b = 0x12345678;
return uip;
}
struct ulonglong_pair ffi_test_63() {
struct ulonglong_pair ffi_test_63(void) {
struct ulonglong_pair ullp;
ullp.a = 0xabcdefabcdefabcd;
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) {
(void) x;
(void) z;
return y[0];
}

8
vm/ffi_test.h
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_14 ffi_test_44();
FACTOR_EXPORT struct test_struct_14 ffi_test_44(void);
/* C99 features */
#ifndef _MSC_VER
@ -211,7 +211,7 @@ struct bool_and_ptr {
void* ptr;
};
FACTOR_EXPORT struct bool_and_ptr ffi_test_61();
FACTOR_EXPORT struct bool_and_ptr ffi_test_61(void);
#endif
@ -220,14 +220,14 @@ struct uint_pair {
unsigned int b;
};
FACTOR_EXPORT struct uint_pair ffi_test_62();
FACTOR_EXPORT struct uint_pair ffi_test_62(void);
struct ulonglong_pair {
unsigned long long a;
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 double ffi_test_65(int n, ...);

1
vm/quotations.hpp
View File

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