suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

gcc warnings cleanup

Browse Source 
svn: r16209
This commit is contained in:
Kevin Tew 2009-10-02 02:13:45 +00:00
parent 6d968cbfa8
commit 84833de442
3 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
src/mzscheme/src/network.c
View File

@ -652,6 +652,7 @@ struct mz_addrinfo *scheme_get_host_address(const char *address, int id, int *er
char buf[32], *service; char buf[32], *service;
int ok; int ok;
GC_CAN_IGNORE struct mz_addrinfo *r, hints; GC_CAN_IGNORE struct mz_addrinfo *r, hints;
r = NULL;
if (id) { if (id) {
service = buf; service = buf;

2
src/mzscheme/src/print.c
View File

@ -861,10 +861,10 @@ print_to_string(Scheme_Object *obj,
if (params.print_graph) if (params.print_graph)
cycles = 1; cycles = 1;
else { else {
int fast_checker_counter = 50;
#ifdef MZ_USE_PLACES #ifdef MZ_USE_PLACES
cycles = -1; cycles = -1;
#else #else
int fast_checker_counter = 50;
cycles = check_cycles_fast(obj, (PrintParams *)&params, &fast_checker_counter); cycles = check_cycles_fast(obj, (PrintParams *)&params, &fast_checker_counter);
#endif #endif
if (cycles == -1) { if (cycles == -1) {

1
src/mzscheme/src/read.c
View File

@ -46,6 +46,7 @@
#ifdef USE_STACKAVAIL #ifdef USE_STACKAVAIL
# include <malloc.h> # include <malloc.h>
#endif #endif
#include "math.h"
#define MAX_QUICK_SYMBOL_SIZE 64 #define MAX_QUICK_SYMBOL_SIZE 64