github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-11 02:30:32 +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;