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

Remove unused atom_to_str() function and the warning it generates

Browse Source
This commit is contained in:
Nick Briggs
2022-12-28 14:16:19 -08:00
parent 55939e0bc9
commit a17460cd6b
2 changed files with 0 additions and 11 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
inc/subrdefs.h
View File

@@ -1,6 +1,4 @@
#ifndef SUBRDEFS_H
#define SUBRDEFS_H 1
#include "lispemul.h" /* for LispPTR */
char *atom_to_str(LispPTR atom_index);
void OP_subrcall(int subr_no, int argnum);
#endif

9
src/subr.c
View File

@@ -77,15 +77,6 @@ extern LispPTR *PENDINGINTERRUPT68k;
*/
/***********************************************************/
char *atom_to_str(LispPTR atom_index) {
PNCell *pnptr;
char *pname_base;
pnptr = (PNCell *)GetPnameCell(atom_index);
pname_base = (char *)NativeAligned2FromLAddr(pnptr->pnamebase);
return (pname_base + 1);
} /*atom_to_str*/
#define POP_SUBR_ARGS \
do { \
args[0] = NIL_PTR; \