github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-01-27 12:22:24 +00:00
Code Issues Projects Releases Wiki Activity

Sprinkle some const on char * params. (#298)

Browse Source 
This is enough to let us move `il_string` in `loopsops.c`
into read-only storage.
This commit is contained in:
Bruce Mitchener
2021-01-26 12:04:36 +07:00
committed by GitHub
parent 364420db88
commit 4a722565ab
5 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/gcarray.c
View File

@@ -146,7 +146,7 @@ LispPTR aref1(LispPTR array, int index) {
/* */
/************************************************************************/
LispPTR find_symbol(char *char_base, DLword offset, DLword length, LispPTR hashtbl, DLword fatp,
LispPTR find_symbol(const char *char_base, DLword offset, DLword length, LispPTR hashtbl, DLword fatp,
DLword lispp)
/* T => the "chars" coming in are 16-bit */
@@ -253,7 +253,7 @@ retry:
/* */
/************************************************************************/
LispPTR get_package_atom(char *char_base, DLword charlen, char *packname, DLword packlen,
LispPTR get_package_atom(const char *char_base, DLword charlen, const char *packname, DLword packlen,
int externalp) {
int packindex;
PACKAGE *packaddr;

2
src/loopsops.c
View File

@@ -34,7 +34,7 @@
#include "gcarraydefs.h"
#include "gchtfinddefs.h"
static char il_string[] = "INTERLISP";
static const char il_string[] = "INTERLISP";
#define GET_IL_ATOM(string) get_package_atom((string), (sizeof(string) - 1), il_string, 9, NIL)
#define AtomValPtr(index) Addr68k_from_LADDR(*(GetVALCELL68k(index)))

2
src/testtool.c
View File

@@ -107,7 +107,7 @@ void print_atomname(LispPTR index)
#define PACKAGES_LIMIT 255
/** GET PACKAGE INDEX from PACKAGE FULL NAME */
int find_package_from_name(char *packname, int len) {
int find_package_from_name(const char *packname, int len) {
int index;
PACKAGE *package;
NEWSTRINGP *namestring;