mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-30 04:10:44 -08:00
Code Issues Projects Releases Packages Wiki Activity

Fix type problems with C++ under FreeBSD

Browse source
This commit is contained in:
jjgarcia 2001-12-20 11:43:16 +00:00
parent 995033beba
commit b285ceec15
3 changed files with 5 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/string.d
View file

@ -96,7 +96,7 @@ make_simple_string(char *s)
}
cl_object
make_string_copy(char *s)
make_string_copy(const char *s)
{
cl_object x;
cl_index l = strlen(s);

6
src/c/unixsys.d
View file

@ -41,14 +41,14 @@ We use execv and supply the arg list, so execl doesn't have to realloc. CvdL */
#include <sys/types.h>
#include <sys/signal.h>
#include <sys/wait.h>
#include <signal.h>
#include <stdlib.h>
#include <stddef.h>
#include <unistd.h>
#include <paths.h>
int
system(command)
const char *command;
system(char *command)
{
union wait pstat;
pid_t pid;
@ -66,7 +66,7 @@ system(command)
pstat.w_retcode = 127;
return(pstat.w_status);
case 0: { /* child */
const char *args[] = { "sh", "-c", command, (char *)NULL };
char *args[] = { "sh", "-c", command, (char *)NULL };
(void)sigsetmask(omask);
execv(_PATH_BSHELL, args);
_exit(127);

2
src/h/external.h
View file

@ -751,7 +751,7 @@ extern cl_object cl_alloc_simple_string(cl_index l);
extern cl_object cl_alloc_adjustable_string(cl_index l);
extern cl_object make_simple_string(char *s);
#define make_constant_string(s) (make_simple_string((char *)s))
extern cl_object make_string_copy(char *s);
extern cl_object make_string_copy(const char *s);
extern cl_object copy_simple_string(cl_object x);
extern cl_object coerce_to_string(cl_object x);
extern cl_object coerce_to_string_designator(cl_object x);