github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-16 00:04:59 +00:00
Code Issues Projects Releases Wiki Activity

Remove unnecessary declaration causing shadowing warnings.

Browse Source 
Improve debugging output for fp-to-vp page runs.

	modified:   src/vmemsave.c
This commit is contained in:
Nick Briggs 2020-12-08 09:55:41 -08:00
parent f89cc4449c
commit 49aa01a70b
1 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/vmemsave.c
View File

@ -442,11 +442,8 @@ LispPTR vmem_save(char *sysout_file_name)
for (i = 0; i < vmemsize; i++) {
if (GETPAGEOK(fptovp, i) != 0177777) {
int oldfptovp = GETFPTOVP(fptovp, i);
int saveoldfptovp = oldfptovp;
int contig_pages = 0;
#ifdef BYTESWAP
int pc;
#endif /* BYTESWAP */
register char *base_addr;
TIMEOUT(rval = lseek(sysout, i * BYTESPER_PAGE, 0));
@ -461,7 +458,7 @@ LispPTR vmem_save(char *sysout_file_name)
contig_pages++, oldfptovp++, i++;
}
i--; /* Previous loop always overbumps i */
DBPRINT(("%4d: writing %d pages from %x\n", i, contig_pages, base_addr - (char *)Lisp_world));
DBPRINT(("%4d: writing %d pages from %x (%d)\n", i, contig_pages, base_addr - (char *)Lisp_world, saveoldfptovp));
#ifdef BYTESWAP
word_swap_page((unsigned short *)base_addr, contig_pages * BYTESPER_PAGE / 4);