1 |
chiiph 11/04/03 00:00:45 |
2 |
|
3 |
Added: bigloo-3.6a-fix_printf_format_warnings.patch |
4 |
Log: |
5 |
Version bump |
6 |
|
7 |
(Portage version: 2.2.0_alpha28/cvs/Linux i686) |
8 |
|
9 |
Revision Changes Path |
10 |
1.1 dev-scheme/bigloo/files/bigloo-3.6a-fix_printf_format_warnings.patch |
11 |
|
12 |
file : http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-scheme/bigloo/files/bigloo-3.6a-fix_printf_format_warnings.patch?rev=1.1&view=markup |
13 |
plain: http://sources.gentoo.org/viewvc.cgi/gentoo-x86/dev-scheme/bigloo/files/bigloo-3.6a-fix_printf_format_warnings.patch?rev=1.1&content-type=text/plain |
14 |
|
15 |
Index: bigloo-3.6a-fix_printf_format_warnings.patch |
16 |
=================================================================== |
17 |
Author: Jerry James <loganjerry <at> gmail.com> |
18 |
Title: Patch for removing printf "warning: format" in bigloo source code |
19 |
URL: http://article.gmane.org/gmane.lisp.scheme.bigloo/5112 |
20 |
--- api/gstreamer/src/Clib/bglgst.c.orig 2011-01-24 06:30:52.000000000 -0700 |
21 |
+++ api/gstreamer/src/Clib/bglgst.c 2011-02-14 15:24:29.464185149 -0700 |
22 |
@@ -93,12 +93,12 @@ bglgst_use_threadsp() { |
23 |
/* bgl_gobject_boehm_alloc_init ... */ |
24 |
/*---------------------------------------------------------------------*/ |
25 |
static gpointer bgl_gst_alloc( gsize n ) { |
26 |
- fprintf( stderr, "GC_MALLOC n=%d\n", n ); |
27 |
+ fprintf( stderr, "GC_MALLOC n=%" G_GSIZE_FORMAT "\n", n ); |
28 |
return GC_MALLOC( n ); |
29 |
} |
30 |
|
31 |
static gpointer bgl_gst_realloc( gpointer ptr, gsize n ) { |
32 |
- fprintf( stderr, "GC_REALLOC ptr=%p n=%d\n", ptr, n ); |
33 |
+ fprintf( stderr, "GC_REALLOC ptr=%p n=%" G_GSIZE_FORMAT "\n", ptr, n ); |
34 |
return GC_REALLOC( ptr, n ); |
35 |
} |
36 |
|
37 |
@@ -297,7 +297,7 @@ bgl_g_value_to_obj( const GValue *gval, |
38 |
case G_TYPE_ENUM: { |
39 |
long obj = g_value_get_enum( gval ); |
40 |
|
41 |
- fprintf( stderr, "G_TYPE_ENUM not implemented yet %d (%s:%d)\n", |
42 |
+ fprintf( stderr, "G_TYPE_ENUM not implemented yet %ld (%s:%d)\n", |
43 |
obj, __FILE__, __LINE__ ); |
44 |
|
45 |
return BUNSPEC; |
46 |
--- runtime/Clib/capply.c.orig 2011-01-24 06:30:52.000000000 -0700 |
47 |
+++ runtime/Clib/capply.c 2011-02-14 15:04:59.255817644 -0700 |
48 |
@@ -627,7 +627,7 @@ obj_t apply( obj_t function, obj_t args_ |
49 |
default: { |
50 |
char msg[ 128 ]; |
51 |
sprintf( msg, |
52 |
- "too many arguments provided (%d) in apply (max 50)", |
53 |
+ "too many arguments provided (%ld) in apply (max 50)", |
54 |
-arity ); |
55 |
|
56 |
C_SYSTEM_FAILURE( BGL_ERROR, "apply", msg, function ); |
57 |
@@ -1229,7 +1229,7 @@ obj_t apply( obj_t function, obj_t args_ |
58 |
default: { |
59 |
char msg[ 128 ]; |
60 |
sprintf( msg, |
61 |
- "too many arguments provided (%d) in apply (max 50)", |
62 |
+ "too many arguments provided (%ld) in apply (max 50)", |
63 |
arity ); |
64 |
|
65 |
C_SYSTEM_FAILURE( BGL_ERROR, "apply", msg, function ); |
66 |
--- runtime/Clib/cstring.c.orig 2011-01-24 06:30:52.000000000 -0700 |
67 |
+++ runtime/Clib/cstring.c 2011-02-14 15:04:18.391856999 -0700 |
68 |
@@ -293,23 +293,23 @@ integer_to_string_padding( long x, long |
69 |
|
70 |
case 8 : |
71 |
if( x < 0 ) { |
72 |
- sprintf( fmt, "-%%0%dlo", padding - 1 ); |
73 |
+ sprintf( fmt, "-%%0%ldlo", padding - 1 ); |
74 |
} else { |
75 |
- sprintf( fmt, "%%0%dlo", padding ); |
76 |
+ sprintf( fmt, "%%0%ldlo", padding ); |
77 |
} |
78 |
break; |
79 |
case 16 : |
80 |
if( x < 0 ) { |
81 |
- sprintf( fmt, "-%%0%dlx", padding - 1); |
82 |
+ sprintf( fmt, "-%%0%ldlx", padding - 1); |
83 |
} else { |
84 |
- sprintf( fmt, "%%0%dlx", padding ); |
85 |
+ sprintf( fmt, "%%0%ldlx", padding ); |
86 |
} |
87 |
break; |
88 |
default : |
89 |
if( x < 0 ) { |
90 |
- sprintf( fmt, "-%%0%dld", padding - 1 ); |
91 |
+ sprintf( fmt, "-%%0%ldld", padding - 1 ); |
92 |
} else { |
93 |
- sprintf( fmt, "%%0%dld", padding ); |
94 |
+ sprintf( fmt, "%%0%ldld", padding ); |
95 |
} |
96 |
break; |
97 |
} |
98 |
--- runtime/Clib/cerror.c.orig 2011-01-24 06:30:52.000000000 -0700 |
99 |
+++ runtime/Clib/cerror.c 2011-02-14 15:03:19.097168636 -0700 |
100 |
@@ -69,7 +69,7 @@ bgl_debug_typeof( obj_t obj ) { |
101 |
obj_t |
102 |
bgl_debug_header( obj_t obj ) { |
103 |
fprintf( stderr, "obj=%p\n", obj ); |
104 |
- fprintf( stderr, " TAG_MASK=%d ", (((long)obj) & TAG_MASK) ); |
105 |
+ fprintf( stderr, " TAG_MASK=%ld ", (((long)obj) & TAG_MASK) ); |
106 |
switch( (((long)obj) & TAG_MASK) ) { |
107 |
case TAG_STRUCT: fprintf( stderr, "(TAG_STRUCT)\n" ); break; |
108 |
case TAG_INT: fprintf( stderr, "(TAG_INT)\n" ); break; |
109 |
@@ -96,7 +96,7 @@ bgl_debug_header( obj_t obj ) { |
110 |
} |
111 |
|
112 |
if( POINTERP( obj ) ) { |
113 |
- fprintf( stderr, " TYPE=%d ", TYPE( obj ) ); |
114 |
+ fprintf( stderr, " TYPE=%ld ", TYPE( obj ) ); |
115 |
switch( TYPE( obj ) ) { |
116 |
case 0: fprintf( stderr, "(PAIR_TYPE) " ); break; |
117 |
case 1: fprintf( stderr, "(STRING_TYPE) " ); break; |
118 |
@@ -132,7 +132,7 @@ bgl_debug_header( obj_t obj ) { |
119 |
else |
120 |
fprintf( stderr, "(unknown type) " ); |
121 |
} |
122 |
- fprintf( stderr, "HEADER_SIZE=%d\n", HEADER_SIZE( CREF( obj )->header ) ); |
123 |
+ fprintf( stderr, "HEADER_SIZE=%ld\n", HEADER_SIZE( CREF( obj )->header ) ); |
124 |
} |
125 |
|
126 |
return obj; |
127 |
--- runtime/Clib/ccontrol.c.orig 2011-01-24 06:30:52.000000000 -0700 |
128 |
+++ runtime/Clib/ccontrol.c 2011-02-14 15:07:40.999882828 -0700 |
129 |
@@ -200,9 +200,9 @@ bgl_procedure_entry_to_string( obj_t pro |
130 |
obj_t res = make_string_sans_fill( 17 ); |
131 |
|
132 |
if( VA_PROCEDUREP( proc ) ) { |
133 |
- sprintf( BSTRING_TO_STRING( res ), "%016x", PROCEDURE_VA_ENTRY( proc ) ); |
134 |
+ sprintf( BSTRING_TO_STRING( res ), "%016lx", (long)PROCEDURE_VA_ENTRY( proc ) ); |
135 |
} else { |
136 |
- sprintf( BSTRING_TO_STRING( res ), "%016x", PROCEDURE_ENTRY( proc ) ); |
137 |
+ sprintf( BSTRING_TO_STRING( res ), "%016lx", (long)PROCEDURE_ENTRY( proc ) ); |
138 |
} |
139 |
|
140 |
return res; |
141 |
--- bde/bmem/lib/thread.c.orig 2011-01-24 06:30:51.000000000 -0700 |
142 |
+++ bde/bmem/lib/thread.c 2011-02-14 15:18:41.127937649 -0700 |
143 |
@@ -50,9 +50,9 @@ bglthread_switch( void *this, void *next |
144 |
void |
145 |
thread_dump_statistics( FILE *f ) { |
146 |
if( context_switches || scheduler_awake ) { |
147 |
- fprintf( f, " (thread (context-switches %d) (scheduler-awake %d))\n", |
148 |
+ fprintf( f, " (thread (context-switches %ld) (scheduler-awake %ld))\n", |
149 |
context_switches, scheduler_awake ); |
150 |
- fprintf( stderr, "thread...(context switches=%d, scheduler awake=%d)\n", |
151 |
+ fprintf( stderr, "thread...(context switches=%ld, scheduler awake=%ld)\n", |
152 |
context_switches, |
153 |
scheduler_awake ); |
154 |
} |
155 |
--- bde/bmem/lib/alloc.c.orig 2011-01-24 06:30:52.000000000 -0700 |
156 |
+++ bde/bmem/lib/alloc.c 2011-02-14 15:10:55.176083686 -0700 |
157 |
@@ -109,7 +109,7 @@ alloc_dump_type( pa_pair_t *i, FILE *f ) |
158 |
/*---------------------------------------------------------------------*/ |
159 |
void |
160 |
alloc_dump( fun_alloc_info_t *i, FILE *f ) { |
161 |
- fprintf( f, " (%d %d %d\n", i->gc_num, |
162 |
+ fprintf( f, " (%lu %lu %lu\n", i->gc_num, |
163 |
BMEMSIZE( i->dsize ), BMEMSIZE( i->isize ) ); |
164 |
fprintf( f, " (dtype" ); |
165 |
for_each( (void (*)(void *, void *))alloc_dump_type, i->dtypes, f ); |
166 |
@@ -486,7 +486,7 @@ GC_malloc( size_t lb ) { |
167 |
|
168 |
#if BMEMDEBUG |
169 |
if( bmem_debug ) { |
170 |
- fprintf( stderr, "GC_malloc(%d): %s %d\n", |
171 |
+ fprintf( stderr, "GC_malloc(%zu): %s %d\n", |
172 |
lb, bgl_debug_trace_top_name(), get_alloc_type() ); |
173 |
} |
174 |
#endif |
175 |
@@ -513,7 +513,7 @@ GC_realloc( obj_t old, size_t lb ) { |
176 |
|
177 |
#if BMEMDEBUG |
178 |
if( bmem_debug ) { |
179 |
- fprintf( stderr, "GC_realloc(%d): top=%s type=%d\n", |
180 |
+ fprintf( stderr, "GC_realloc(%zu): top=%s type=%d\n", |
181 |
lb, bgl_debug_trace_top_name(), get_alloc_type() ); |
182 |
} |
183 |
#endif |
184 |
@@ -541,7 +541,7 @@ GC_malloc_atomic( size_t lb ) { |
185 |
|
186 |
#if BMEMDEBUG |
187 |
if( bmem_debug ) { |
188 |
- fprintf( stderr, "GC_malloc_atomic(%d): top=%s type=%d\n", |
189 |
+ fprintf( stderr, "GC_malloc_atomic(%zu): top=%s type=%d\n", |
190 |
lb, bgl_debug_trace_top_name(), get_alloc_type() ); |
191 |
} |
192 |
#endif |
193 |
@@ -623,7 +623,7 @@ BGl_registerzd2classz12zc0zz__objectz00( |
194 |
hash, def, |
195 |
constructor, virt ); |
196 |
|
197 |
- fprintf( stderr, "ok\n", cname ); |
198 |
+ fprintf( stderr, "ok\n" ); |
199 |
|
200 |
return class; |
201 |
} |
202 |
--- bde/bmem/lib/symbol.c.orig 2011-01-24 06:30:51.000000000 -0700 |
203 |
+++ bde/bmem/lib/symbol.c 2011-02-14 15:13:47.727927175 -0700 |
204 |
@@ -33,7 +33,7 @@ make_symbol( obj_t name ) { |
205 |
|
206 |
#if BMEMDEBUG |
207 |
if( bmem_debug > 1 ) { |
208 |
- fprintf( stderr, "make_symbol: %s %p\n", name, symbol ); |
209 |
+ fprintf( stderr, "make_symbol: %s %p\n", BSTRING_TO_STRING( name ), symbol ); |
210 |
} |
211 |
#endif |
212 |
symbol->symbol_t.header = MAKE_HEADER( SYMBOL_TYPE, SYMBOL_SIZE ); |
213 |
--- bde/bmem/lib/trace.c.orig 2011-01-24 06:30:52.000000000 -0700 |
214 |
+++ bde/bmem/lib/trace.c 2011-02-14 15:17:49.472275324 -0700 |
215 |
@@ -79,9 +79,9 @@ bgl_debug_trace_top() { |
216 |
fprintf( stderr, " top->name=KEYWORD %p\n", top->name ); |
217 |
} else { |
218 |
if( !POINTERP( top->name ) ) { |
219 |
- fprintf( stderr, " top->name=pas pointer %d\n", top->name ); |
220 |
+ fprintf( stderr, " top->name=pas pointer %p\n", top->name ); |
221 |
} else { |
222 |
- fprintf( stderr, " top->name=pointer %p\n", TYPE( top->name ) ); |
223 |
+ fprintf( stderr, " top->name=pointer %ld\n", TYPE( top->name ) ); |
224 |
} |
225 |
} |
226 |
} |
227 |
--- bde/bmem/lib/gchook.c.orig 2011-01-24 06:30:52.000000000 -0700 |
228 |
+++ bde/bmem/lib/gchook.c 2011-02-14 15:12:29.119566199 -0700 |
229 |
@@ -45,13 +45,13 @@ GC_collect_hook( int heapsz, long livesz |
230 |
gc_number++; |
231 |
|
232 |
if( heapsz > (1024 * 1024) ) { |
233 |
- fprintf( stderr, "gc %3d: alloc size=%.2fMB, heap size=%.2fMB, live size=%.2fMB\n", |
234 |
+ fprintf( stderr, "gc %3lu: alloc size=%.2fMB, heap size=%.2fMB, live size=%.2fMB\n", |
235 |
gc_number, |
236 |
((double)gc_alloc_size / (1024. * 1024.)), |
237 |
((double)heapsz / (1024. * 1024.)), |
238 |
((double)livesz / (1024. * 1024.)) ); |
239 |
} else { |
240 |
- fprintf( stderr, "gc %3d: alloc size=%dKB, heap size=%dKB, live size=%ldKB\n", |
241 |
+ fprintf( stderr, "gc %3lu: alloc size=%luKB, heap size=%dKB, live size=%ldKB\n", |
242 |
gc_number, |
243 |
gc_alloc_size / 1024, |
244 |
heapsz / 1024, |
245 |
@@ -81,7 +81,7 @@ gc_alloc_size_add( int size ) { |
246 |
/*---------------------------------------------------------------------*/ |
247 |
static void |
248 |
GC_dump_gc( gc_info_t *i, FILE *f ) { |
249 |
- fprintf( f, " (%d %d %d %d)\n", |
250 |
+ fprintf( f, " (%lu %lu %lu %lu)\n", |
251 |
i->number, |
252 |
BMEMSIZE( i->alloc_size ), |
253 |
BMEMSIZE( i->heap_size ), |