-
Notifications
You must be signed in to change notification settings - Fork 2
/
ecl-16.1.3-warnings.patch
247 lines (235 loc) · 9.24 KB
/
ecl-16.1.3-warnings.patch
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
--- src/c/alloc_2.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/alloc_2.d 2017-02-23 11:33:47.926290573 -0700
@@ -760,8 +760,10 @@ to_bitmap(void *x, void *y)
void
init_alloc(void)
{
+#ifdef GBC_BOEHM_PRECISE
union cl_lispunion o;
struct ecl_cons c;
+#endif
int i;
if (alloc_initialized) return;
alloc_initialized = TRUE;
--- src/c/cinit.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/cinit.d 2017-02-23 11:33:47.927290568 -0700
@@ -171,6 +171,7 @@ static cl_object si_simple_toplevel ()
ecl_prin1(sentence, output);
}
} ECL_CATCH_ALL_END;
+ return ECL_NIL;
}
int
--- src/c/compiler.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/compiler.d 2017-02-23 11:33:47.927290568 -0700
@@ -3102,7 +3102,7 @@ si_valid_function_name_p(cl_object name)
cl_object
si_make_lambda(cl_object name, cl_object rest)
{
- cl_object lambda;
+ cl_object lambda = ECL_NIL;
const cl_env_ptr the_env = ecl_process_env();
volatile cl_compiler_env_ptr old_c_env = the_env->c_env;
struct cl_compiler_env new_c_env;
--- src/c/ffi.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/ffi.d 2017-02-23 11:33:47.927290568 -0700
@@ -676,7 +676,7 @@ si_load_foreign_module(cl_object filenam
#if !defined(ENABLE_DLOPEN)
FEerror("SI:LOAD-FOREIGN-MODULE does not work when ECL is statically linked", 0);
#else
- cl_object output;
+ cl_object output = ECL_NIL;
# ifdef ECL_THREADS
mp_get_lock(1, ecl_symbol_value(@'mp::+load-compile-lock+'));
--- src/c/ffi/libraries.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/ffi/libraries.d 2017-02-23 11:33:47.927290568 -0700
@@ -284,7 +284,6 @@ cl_object
ecl_library_open(cl_object filename, bool force_reload) {
cl_object block;
bool self_destruct = 0;
- char *filename_string;
/* Coerces to a file name but does not merge with cwd */
filename = coerce_to_physical_pathname(filename);
--- src/c/file.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/file.d 2017-02-23 11:34:20.968112017 -0700
@@ -1100,7 +1100,7 @@ static int
utf_8_encoder(cl_object stream, unsigned char *buffer, ecl_character c)
{
int nbytes;
- if (c < 0) {
+ if (c < 0 || c > 0x1FFFFFL) {
nbytes = 0;
} else if (c <= 0x7F) {
buffer[0] = c;
@@ -1115,7 +1115,7 @@ utf_8_encoder(cl_object stream, unsigned
buffer[1] = (c & 0x3f) | 0x80; c >>= 6;
buffer[0] = c | 0xE0;
nbytes = 3;
- } else if (c <= 0x1FFFFFL) {
+ } else {
buffer[3] = (c & 0x3f) | 0x80; c >>= 6;
buffer[2] = (c & 0x3f) | 0x80; c >>= 6;
buffer[1] = (c & 0x3f) | 0x80; c >>= 6;
@@ -1626,7 +1626,7 @@ ecl_make_string_input_stream(cl_object s
strm->stream.flags = ECL_STREAM_DEFAULT_FORMAT;
strm->stream.byte_size = 8;
#else
- if (ECL_BASE_STRING_P(strng) == t_base_string) {
+ if (ECL_BASE_STRING_P(strng)) {
strm->stream.format = @':latin-1';
strm->stream.flags = ECL_STREAM_LATIN_1;
strm->stream.byte_size = 8;
@@ -5126,7 +5126,7 @@ ecl_open_stream(cl_object fn, enum ecl_s
FEerror("Illegal stream mode ~S", 1, ecl_make_fixnum(smm));
}
if (flags & ECL_STREAM_C_STREAM) {
- FILE *fp;
+ FILE *fp = NULL;
safe_close(f);
/* We do not use fdopen() because Windows seems to
* have problems with the resulting streams. Furthermore, even for
--- src/cmp/cmpcatch.lsp.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/cmp/cmpcatch.lsp 2017-02-23 10:09:52.183082215 -0700
@@ -76,6 +76,7 @@
(let ((*unwind-exit* (cons 'FRAME *unwind-exit*))
(*destination* 'VALUES))
(c2expr* form))
+ (wt-nl " next_fr = NULL;")
(wt-nl "}")
(wt-nl "ecl_frs_pop(cl_env_copy);")
;; Here we save the values of the form which might have been
--- src/cmp/cmptop.lsp.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/cmp/cmptop.lsp 2017-02-23 11:33:47.928290563 -0700
@@ -438,7 +438,7 @@
(wt-nl "volatile cl_object lex" *level* "[" *max-lex* "];"))
(unless (eq closure-type 'CLOSURE)
- (wt-nl "cl_object " *volatile* "env0;"))
+ (wt-nl "cl_object " *volatile* "env0 = ECL_NIL;"))
(when (plusp *max-env*)
;; Closure structure has to be marked volatile or else GCC may
--- src/cmp/cmpwt.lsp.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/cmp/cmpwt.lsp 2017-02-23 10:09:52.197082134 -0700
@@ -105,10 +105,10 @@
(*wt-data-column* 80)
(s (with-output-to-string (stream)
(wt-filtered-data string stream))))
- (format stream "static const struct ecl_base_string ~A[] = {
+ (format stream "static const struct ecl_base_string ~A[] = { {
(int8_t)t_base_string, 0, ecl_aet_bc, 0,
ECL_NIL, (cl_index)~D, (cl_index)~D,
- (ecl_base_char*)~A };~%"
+ (ecl_base_char*)~A } };~%"
name *wt-string-size* *wt-string-size* s)
name))
(output-c-strings (strings stream)
--- src/c/numbers/ceiling.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/numbers/ceiling.d 2017-02-23 11:33:47.928290563 -0700
@@ -138,7 +138,7 @@ ecl_ceiling2(cl_object x, cl_object y)
}
#endif
default:
- (void)0; /*Never reached */
+ __builtin_unreachable(); /*Never reached */
}
break;
case t_bignum:
@@ -184,7 +184,7 @@ ecl_ceiling2(cl_object x, cl_object y)
}
#endif
default:
- (void)0; /*Never reached */
+ __builtin_unreachable(); /*Never reached */
}
break;
case t_ratio:
--- src/c/num_log.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/num_log.d 2017-02-23 11:33:47.929290557 -0700
@@ -476,7 +476,7 @@ cl_object
si_bit_array_op(cl_object o, cl_object x, cl_object y, cl_object r)
{
cl_fixnum i, j, n, d;
- cl_object r0;
+ cl_object r0 = ECL_NIL;
bit_operator op;
bool replace = FALSE;
int xi, yi, ri;
--- src/c/printer/float_to_digits.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/printer/float_to_digits.d 2017-02-23 11:33:47.929290557 -0700
@@ -176,7 +176,6 @@ change_precision(float_approx *approx, c
{
cl_object e1 = cl_expt(PRINT_BASE, position);
cl_object e2 = ecl_divide(e1, ecl_make_fixnum(2));
- cl_object e3 = cl_expt(PRINT_BASE, k);
if (ecl_greatereq(ecl_plus(approx->r, ecl_times(approx->s, e1)),
ecl_times(approx->s, e2)))
position = ecl_one_minus(position);
--- src/c/serialize.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/serialize.d 2017-02-23 11:33:47.929290557 -0700
@@ -114,7 +114,7 @@ fix_to_ptr(cl_object ptr)
static cl_object
enqueue(pool_t pool, cl_object what)
{
- cl_object record, index;
+ cl_object index;
if (ECL_FIXNUMP(what) || ECL_CHARACTERP(what) || what == OBJNULL) {
return what;
}
--- src/c/unixfsys.d.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/c/unixfsys.d 2017-02-23 11:33:47.929290557 -0700
@@ -478,7 +478,9 @@ ecl_file_len(int f)
@(defun rename-file (oldn newn &key (if_exists @':error'))
cl_object old_filename, new_filename, old_truename, new_truename;
+#ifdef ECL_MS_WINDOWS_HOST
int error;
+#endif
@
/* 1) Get the old filename, and complain if it has wild components,
@@ -682,7 +684,10 @@ ecl_homedir_pathname(cl_object user)
{
cl_index i;
cl_object namestring;
- const char *h, *d;
+ const char *h;
+#ifdef ECL_MS_WINDOWS_HOST
+ const char *d;
+#endif
if (!Null(user)) {
#ifdef HAVE_PWD_H
struct passwd *pwent = NULL;
--- src/h/ecl-inl.h.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/h/ecl-inl.h 2017-02-23 10:09:52.199082122 -0700
@@ -119,10 +119,10 @@
static const cl_object name = (cl_object)(& name ## _data)
#define ecl_def_ct_vector(name,type,raw,len,static,const) \
- static const struct ecl_vector name ## _data = { \
+ static const struct ecl_vector name ## _data = { \
(int8_t)t_vector, 0, (type), 0, \
- ECL_NIL, (cl_index)(len), (cl_index)(len), \
- ecl_cast_ptr(cl_object*,raw), 0 }; \
+ ECL_NIL, (cl_index)(len), (cl_index)(len), \
+ { ecl_cast_ptr(cl_object*,raw) }, 0 }; \
static const cl_object name = (cl_object)(& name ## _data)
#ifdef ECL_SSE2
--- src/h/stacks.h.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/h/stacks.h 2017-02-23 10:09:52.199082122 -0700
@@ -390,7 +390,7 @@ extern ECL_API ecl_frame_ptr _ecl_frs_pu
} else {
#define ECL_UNWIND_PROTECT_EXIT \
- __unwinding=0; } \
+ __unwinding=0; __next_fr=NULL; } \
ecl_frs_pop(__the_env); \
__nr = ecl_stack_push_values(__the_env);
--- src/Makefile.in.orig 2016-12-19 03:25:00.000000000 -0700
+++ src/Makefile.in 2017-02-23 12:18:42.610641001 -0700
@@ -134,9 +134,9 @@ c/ecl/external.h: $(top_srcdir)/h/extern
# rsync updates of the source tree.
$(srcdir)/c/symbols_list2.h: $(srcdir)/c/symbols_list.h Makefile
cat $(srcdir)/c/symbols_list.h | \
- sed -e 's%{\([A-Z ]*.*".*"\),[^,]*,[ ]*NULL,.*}%{\1,NULL}%g' \
- -e 's%{\([A-Z ]*.*".*"\),[^,]*,[ ]*\([^,]*\),.*}%{\1,"\2"}%g' \
- -e 's%{NULL.*%{NULL,NULL}};%' | \
+ sed -e 's%{{\([A-Z ]*.*".*"\),[^,]*,[ ]*NULL,.*}}%{\1,NULL}%g' \
+ -e 's%{{\([A-Z ]*.*".*"\),[^,]*,[ ]*\([^,]*\),.*}}%{\1,"\2"}%g' \
+ -e 's%{{NULL.*%{NULL,NULL}};%' | \
sed -e 's%"\(IF_[A-Z0-9]*\)(\([^)]*\))"%\1("\2")%g' > tmp.h
mv tmp.h $@