Fix warnings

This commit is contained in:
Roman Venediktov 2024-06-24 22:36:10 +02:00
parent 612fe84e51
commit 94b31a70a4
2 changed files with 7 additions and 52 deletions

View file

@ -617,7 +617,7 @@ aint inner_hash (aint depth, auint acc, void *p) {
extern void *LstringInt (char *b) {
aint n;
sscanf(b, "%ld", &n);
sscanf(b, "%lld", &n);
return (void *)BOX(n);
}
@ -1269,7 +1269,7 @@ extern aint Lread () {
printf("> ");
fflush(stdout);
scanf("%li", &result);
scanf("%lli", &result);
return BOX(result);
}
@ -1286,7 +1286,7 @@ extern int Lbinoperror2 (void) {
/* Lwrite is an implementation of the "write" construct */
extern aint Lwrite (aint n) {
printf("%ld\n", UNBOX(n));
printf("%lld\n", UNBOX(n));
fflush(stdout);
return 0;