artemist/mes
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

core: Avoid displaying truncated 64bit values.

Browse source 
* src/display.c (display_helper): Use `ltoa' instead of `itoa'.
This commit is contained in:
Janneke Nieuwenhuizen 2023-07-03 17:24:33 +02:00
parent 1650f0caae
commit f32b5f5510
1 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

8
src/display.c
View file

@ -1,6 +1,6 @@
/* -*-comment-start: "//";comment-end:""-*- /* -*-comment-start: "//";comment-end:""-*-
* GNU Mes --- Maxwell Equations of Software * GNU Mes --- Maxwell Equations of Software
* Copyright © 2016,2017,2018,2019 Jan (janneke) Nieuwenhuizen <janneke@gnu.org> * Copyright © 2016,2017,2018,2019,2023 Jan (janneke) Nieuwenhuizen <janneke@gnu.org>
* *
* This file is part of GNU Mes. * This file is part of GNU Mes.
* *
@ -144,7 +144,7 @@ display_helper (struct scm *x, int cont, char *sep, int fd, int write_p)
} }
else if (t == TNUMBER) else if (t == TNUMBER)
{ {
fdputs (itoa (x->value), fd); fdputs (ltoa (x->value), fd);
} }
else if (t == TPAIR) else if (t == TPAIR)
{ {
@ -183,7 +183,7 @@ display_helper (struct scm *x, int cont, char *sep, int fd, int write_p)
else if (t == TPORT) else if (t == TPORT)
{ {
fdputs ("#<port ", fd); fdputs ("#<port ", fd);
fdputs (itoa (x->port), fd); fdputs (ltoa (x->port), fd);
fdputs (" ", fd); fdputs (" ", fd);
x = x->string; x = x->string;
fdputc ('"', fd); fdputc ('"', fd);
@ -249,7 +249,7 @@ display_helper (struct scm *x, int cont, char *sep, int fd, int write_p)
else else
{ {
fdputs ("<", fd); fdputs ("<", fd);
fdputs (itoa (t), fd); fdputs (ltoa (t), fd);
fdputs (":", fd); fdputs (":", fd);
fdputs (ltoa (cast_voidp_to_long (x)), fd); fdputs (ltoa (cast_voidp_to_long (x)), fd);
fdputs (">", fd); fdputs (">", fd);