Dear Sir/Madam,
The 62 lines of code in the attachment result in a segmentation fault when
run.
I hope you can help suggest a fix or a workaround.
user@pcxy:~/$ guile --version
guile (GNU Guile) 3.0.7
Packaged by Debian (3.0.7-deb+3.0.7-1)
user@pcxy:~/$ make
gcc -I/usr/include/guile/3.0 -g -c -o main.o main.c
gcc -o a.out main.o -lguile-3.0 -lgc -lpthread -ldl
user@pcxy:~/$ ./a.out
Parent sv:3
Child sv:4
Segmentation fault (core dumped)
(gdb) r
Starting program: a.out
[Thread debugging using libthread_db enabled]
Using host libthread_db library "/lib/x86_64-linux-gnu/libthread_db.so.1".
[Detaching after fork from child process 100100]
Parent sv:3
Program received signal SIGSEGV, Segmentation fault.
0x00007ffff7be68f2 in GC_find_limit_with_bound () from
/lib/x86_64-linux-gnu/libgc.so.1
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <sys/wait.h>
#include <sys/types.h>
#include <sys/socket.h>
#include <unistd.h>
#include <fcntl.h>
#include <libguile.h>
static void *main_parent(void *arg)
{
int sv = *((int *) arg);
SCM port;
char *buf = "Write from parent\n";
printf("Parent sv:%d\n", sv);
port = scm_fdopen(scm_from_int(dup(sv)), scm_from_utf8_stringn("r+", 2));
scm_c_write(port, buf, sizeof(buf));
}
static void *main_child(void *arg)
{
int sv = *((int *) arg);
SCM port;
char *buf = " \n";
printf("Child sv:%d\n", sv);
port = scm_fdopen(scm_from_int(dup(sv)), scm_from_utf8_stringn("r+", 2));
scm_c_read(port, buf, sizeof(buf));
printf("%s\n", buf);
}
int main(int argc, char *argv[])
{
pid_t id;
int sv[2];
if (socketpair(AF_UNIX, SOCK_DGRAM, 0, sv) != 0) {
fprintf(stderr, "%s", strerror(errno));
return EXIT_FAILURE;
}
id = fork();
if (id == -1) {
fprintf(stderr, "%s", strerror(errno));
return EXIT_FAILURE;
}
if (id == 0) {
/* parent process */
scm_with_guile(main_parent, &sv[0]);
} else {
/* child process */
scm_with_guile(main_child, &sv[1]);
}
wait(NULL);
return EXIT_SUCCESS;
}
