Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

removing printf warning in disasm

Browse source
This commit is contained in:
Alex Shinn 2011-05-26 12:31:22 +00:00
parent 28c227c604
commit e312f86172
1 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/chibi/disasm.c
View file

@ -1,5 +1,5 @@
/* disasm.c -- optional debugging utilities */ /* disasm.c -- optional debugging utilities */
/* Copyright (c) 2009-2010 Alex Shinn. All rights reserved. */ /* Copyright (c) 2009-2011 Alex Shinn. All rights reserved. */
/* BSD-style license: http://synthcode.com/license.txt */ /* BSD-style license: http://synthcode.com/license.txt */
#include "chibi/eval.h" #include "chibi/eval.h"
@ -8,6 +8,12 @@
#define SEXP_DISASM_MAX_DEPTH 8 #define SEXP_DISASM_MAX_DEPTH 8
#define SEXP_DISASM_PAD_WIDTH 4 #define SEXP_DISASM_PAD_WIDTH 4
#if SEXP_64_BIT
#define SEXP_PRId "%ld"
#else
#define SEXP_PRId "%d"
#endif
static void sexp_write_pointer (sexp ctx, void *p, sexp out) { static void sexp_write_pointer (sexp ctx, void *p, sexp out) {
char buf[32]; char buf[32];
sprintf(buf, "%p", p); sprintf(buf, "%p", p);
@ -16,7 +22,7 @@ static void sexp_write_pointer (sexp ctx, void *p, sexp out) {
static void sexp_write_integer (sexp ctx, sexp_sint_t n, sexp out) { static void sexp_write_integer (sexp ctx, sexp_sint_t n, sexp out) {
char buf[32]; char buf[32];
sprintf(buf, "%ld", n); sprintf(buf, SEXP_PRId, n);
sexp_write_string(ctx, buf, out); sexp_write_string(ctx, buf, out);
} }