github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-31 22:02:33 +00:00
Code Issues Projects Releases Wiki Activity

Correct -Wformat-pedantic warnings

Browse Source 
Many of the warnings were newly visible after the DBPRINT macro
was modified, but the pedantic warnings also caught existing printf
family usage which was not strictly correct.

Mostly replacing 0x%x with %p for pointers, adding (void *) for
those and other pointers, %td for ptrdiff_t, but also changing
some function parameters from UNSIGNED (uintptr_t) to int
where that was the more appropriate type.
This commit is contained in:
Nick Briggs
2022-08-11 14:12:51 -07:00
parent e72dd332a3
commit d91de66322
21 changed files with 56 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
src/ldsout.c
View File

@@ -64,10 +64,10 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
#else
DLword *fptovp; /* FPTOVP */
#endif /* BIGVM */
long fptovp_offset; /* FPTOVP start offset */
off_t fptovp_offset; /* FPTOVP start offset */
char *lispworld_scratch; /* scratch area for lispworld */
long lispworld_offset; /* lispworld offset */
size_t lispworld_offset; /* lispworld offset */
unsigned sysout_size; /* sysout size in page */
struct stat stat_buf; /* file stat buf */
@@ -182,7 +182,7 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
/* now you can access lispworld */
Lisp_world = (DLword *)lispworld_scratch;
DBPRINT(("VM allocated = 0x%x at 0x%x\n", sys_size * MBYTE, Lisp_world));
DBPRINT(("VM allocated = 0x%x at %p\n", sys_size * MBYTE, (void *)Lisp_world));
DBPRINT(("Native Load Address = 0x%x\n", native_load_address));
/*
@@ -192,7 +192,7 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
/* get FPTOVP location from IFPAGE */
fptovp_offset = ifpage.fptovpstart;
DBPRINT(("FPTOVP Location %d \n", fptovp_offset));
DBPRINT(("FPTOVP Location %ld \n", (long)fptovp_offset));
/* get sysout file size in halfpage(256) */
if (fstat(sysout, &stat_buf) == -1) {
@@ -306,7 +306,7 @@ int sysout_loader(const char *sysout_file_name, int sys_size) {
lispworld_offset = GETFPTOVP(fptovp, i) * BYTESPER_PAGE;
if (read(sysout, lispworld_scratch + lispworld_offset, BYTESPER_PAGE) == -1) {
printf("sysout_loader: can't read sysout file at %d\n", i);
printf(" offset was 0x%lx (0x%x pages).\n", lispworld_offset,
printf(" offset was 0x%zx (0x%x pages).\n", lispworld_offset,
GETFPTOVP(fptovp, i));
perror("read() error was");
for (int j = 0; j < 10; j++) {