lassik
/
upscheme
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Add missing const qualifiers

This commit is contained in:
Lassi Kortela 2019-08-11 23:27:12 +03:00
parent 3b13e81eae
commit f2068b5783
2 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
c/cvalues.h
View File

@ -206,14 +206,14 @@ value_t cvalue_static_cstring(const char *str)
return cvalue_from_ref(stringtype, (char *)str, strlen(str), NIL); return cvalue_from_ref(stringtype, (char *)str, strlen(str), NIL);
} }
value_t string_from_cstrn(char *str, size_t n) value_t string_from_cstrn(const char *str, size_t n)
{ {
value_t v = cvalue_string(n); value_t v = cvalue_string(n);
memcpy(cvalue_data(v), str, n); memcpy(cvalue_data(v), str, n);
return v; return v;
} }
value_t string_from_cstr(char *str) value_t string_from_cstr(const char *str)
{ {
return string_from_cstrn(str, strlen(str)); return string_from_cstrn(str, strlen(str));
} }

4
c/flisp.h
View File

@ -336,8 +336,8 @@ value_t size_wrap(size_t sz);
size_t toulong(value_t n, char *fname); size_t toulong(value_t n, char *fname);
value_t cvalue_string(size_t sz); value_t cvalue_string(size_t sz);
value_t cvalue_static_cstring(const char *str); value_t cvalue_static_cstring(const char *str);
value_t string_from_cstr(char *str); value_t string_from_cstr(const char *str);
value_t string_from_cstrn(char *str, size_t n); value_t string_from_cstrn(const char *str, size_t n);
int fl_isstring(value_t v); int fl_isstring(value_t v);
int fl_isnumber(value_t v); int fl_isnumber(value_t v);
int fl_isgensym(value_t v); int fl_isgensym(value_t v);