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

Correct format strings and arguments.

Browse Source 
modified:   gcarray.c
This commit is contained in:
Nick Briggs 2017-06-07 20:09:11 -07:00
parent f4f9118a7c
commit 1b7a7fc6fc
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/gcarray.c
View File

@ -101,7 +101,7 @@ struct hashtable {
/************************************************************************/
LispPTR aref1(LispPTR array, int index) {
register LispPTR retval;
register LispPTR retval = 0;
register LispPTR base;
register short typenumber;
register struct arrayheader *actarray;
@ -110,8 +110,8 @@ LispPTR aref1(LispPTR array, int index) {
if (index >= actarray->totalsize) {
printf("Invalid index in GC's AREF1: 0x%x\n", index);
printf(" Array size limit: 0x%x\n", actarray->totalsize);
printf(" Array ptr: 0x%x\n", (UNSIGNED)array);
printf(" Array 68K ptr: 0x%x\n", (UNSIGNED)actarray);
printf(" Array ptr: 0x%lx\n", (UNSIGNED)array);
printf(" Array 68K ptr: %p\n", actarray);
printf("base: 0x%x\n", actarray->base);
printf("offset: 0x%x\n", actarray->offset);
printf("type #: 0x%x\n", actarray->typenumber);