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

uraid: Suppress incompatible pointer type warnings. (#160)

Browse Source 
These pointers are pointers into the Lisp memory with a known
layout represented by that struct type.
This commit is contained in:
Bruce Mitchener 2021-01-05 07:49:46 +07:00 committed by GitHub
parent 226815dbd8
commit e73e125cbf
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
src/uraid.c
View File

@ -432,24 +432,24 @@ LispPTR uraid_commands() {
switch (URaid_arg1[0]) {
case 'k':
printf("IFP->KBDFXP :\n");
bt1(Addr68k_from_StkOffset(InterfacePage->kbdfxp));
bt1((FX*)Addr68k_from_StkOffset(InterfacePage->kbdfxp));
break;
case 'm':
printf("IFP->MISCFXP :\n");
bt1(Addr68k_from_StkOffset(InterfacePage->miscfxp));
bt1((FX*)Addr68k_from_StkOffset(InterfacePage->miscfxp));
break;
case 'r':
printf("IFP->RESETFXP :\n");
bt1(Addr68k_from_StkOffset(InterfacePage->resetfxp));
bt1((FX*)Addr68k_from_StkOffset(InterfacePage->resetfxp));
break;
case 'g':
printf("IFP->GCFXP :\n");
bt1(Addr68k_from_StkOffset(InterfacePage->gcfxp));
bt1((FX*)Addr68k_from_StkOffset(InterfacePage->gcfxp));
break;
case 'p':
printf("IFP->FAULTFXP :\n");
bt1(Addr68k_from_StkOffset(InterfacePage->faultfxp));
bt1((FX*)Addr68k_from_StkOffset(InterfacePage->faultfxp));
break;
case 'u': bt(); break;
@ -587,7 +587,7 @@ LispPTR uraid_commands() {
printf("0x%x\n", address);
break;
default: {
struct dtd *dtd = GetDTD(GetTypeNumber(address));
struct dtd *dtd = (struct dtd*)GetDTD(GetTypeNumber(address));
#ifdef BIGVM
index = dtd->dtd_name;
#else