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);
}
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);
memcpy(cvalue_data(v), str, n);
return v;
}
value_t string_from_cstr(char *str)
value_t string_from_cstr(const char *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);
value_t cvalue_string(size_t sz);
value_t cvalue_static_cstring(const char *str);
value_t string_from_cstr(char *str);
value_t string_from_cstrn(char *str, size_t n);
value_t string_from_cstr(const char *str);
value_t string_from_cstrn(const char *str, size_t n);
int fl_isstring(value_t v);
int fl_isnumber(value_t v);
int fl_isgensym(value_t v);