github.com/Interlisp.maiko
1
0
Fork 0
mirror of https://github.com/Interlisp/maiko.git synced 2026-02-03 23:23:03 +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
inc/gcarraydefs.h
View File

@@ -1,7 +1,7 @@
#ifndef GCARRAYDEFS_H
#define GCARRAYDEFS_H 1
LispPTR aref1(LispPTR array, int index);
LispPTR find_symbol(char *char_base, DLword offset, DLword length, LispPTR hashtbl, DLword fatp, DLword lispp);
LispPTR get_package_atom(char *char_base, DLword charlen, char *packname, DLword packlen, int externalp);
LispPTR find_symbol(const char *char_base, DLword offset, DLword length, LispPTR hashtbl, DLword fatp, DLword lispp);
LispPTR get_package_atom(const char *char_base, DLword charlen, const char *packname, DLword packlen, int externalp);
LispPTR with_symbol(LispPTR char_base, LispPTR offset, LispPTR charlen, LispPTR fatp, LispPTR hashtbl, LispPTR result);
#endif

2
inc/testtooldefs.h
View File

@@ -4,7 +4,7 @@
#include "cell.h"
void print_package_name(int index);
void print_atomname(LispPTR index);
int find_package_from_name(char *packname, int len);
int find_package_from_name(const char *packname, int len);
void print_package_name(int index);
void dump_dtd(void);
void check_type_68k(int type, LispPTR *ptr);