github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-13 15:18:14 +00:00
Code Issues Projects Releases Wiki Activity

Clean up error message for case where sysout is not integral number of pages.

Browse Source 
Correct format string (%lx) for size of argument (long).

	modified:   ldsout.c
This commit is contained in:
Nick Briggs 2017-06-07 20:50:30 -07:00
parent ce13dce279
commit 3d47027d31
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/ldsout.c
View File

@ -247,8 +247,9 @@ int sys_size; /* sysout size in megabytes */
machinetype = ifpage.machinetype;
if ((stat_buf.st_size & 0x1ff) != 0)
printf("CAUTION::sysout & 0x1ff = 0x%x\n", stat_buf.st_size & BYTESPER_PAGE);
if ((stat_buf.st_size & (BYTESPER_PAGE - 1)) != 0)
printf("CAUTION::not an integral number of pages. sysout & 0x1ff = 0x%x\n",
(int)(stat_buf.st_size & (BYTESPER_PAGE - 1)));
if (ifpage.nactivepages != (sysout_size / 2)) {
printf("sysout_loader:IFPAGE says sysout size is %d\n", ifpage.nactivepages);
@ -335,7 +336,7 @@ int sys_size; /* sysout size in megabytes */
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%x (0x%x pages).\n", lispworld_offset,
printf(" offset was 0x%lx (0x%x pages).\n", lispworld_offset,
GETFPTOVP(fptovp, i));
perror("read() error was");
{