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

Remove unused variables and cast return type correctly (#181)

Browse Source
This commit is contained in:
Nick Briggs 2021-01-04 21:11:30 -08:00 committed by GitHub
parent dd4596099c
commit 8d6009c3d4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
1 changed files with 1 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
src/testtool.c
View File

@ -350,8 +350,6 @@ void dump_fnbody(LispPTR fnblockaddr)
/* atom index */
{
struct fnhead *fnobj;
DefCell *defcell68k;
LispPTR cell;
DLbyte *scratch;
int i;
@ -403,14 +401,9 @@ void dump_fnbody(LispPTR fnblockaddr)
void dump_fnobj(LispPTR index)
/* atom index */
{
struct fnhead *fnobj;
LispPTR *defcell68k;
LispPTR cell;
DLbyte *scratch;
int i;
defcell68k = GetDEFCELL68k(index);
dump_fnbody(*defcell68k);
} /*dump_fnobj end */
@ -980,7 +973,6 @@ void dump_CSTK(int before) {
void btv(void) {
struct frameex1 *fx_addr68k;
LispPTR atomindex;
struct frameex1 *get_nextFX(FX * fx);
fx_addr68k = CURRENTFX;
@ -1021,7 +1013,6 @@ int get_framename(struct frameex1 *fx_addr68k) {
} /* get_framename end */
FX *get_nextFX(FX *fx) {
DLword *pv;
if (URaid_scanlink == URSCAN_ALINK)
return ((FX *)Addr68k_from_StkOffset(GETALINK(fx)));
@ -1053,7 +1044,7 @@ LispPTR *MakeAtom68k(char *string) {
#else
index = VALS_OFFSET + (index << 1);
#endif /* BIGVM */
return (Addr68k_from_LADDR(index));
return ((LispPTR *) Addr68k_from_LADDR(index));
}
/************************************************************************/