Commit | Line | Data |
---|---|---|
4a235623 LC |
1 | /* Copyright (C) 2011 Free Software Foundation, Inc. |
2 | * | |
3 | * This library is free software; you can redistribute it and/or | |
4 | * modify it under the terms of the GNU Lesser General Public License | |
5 | * as published by the Free Software Foundation; either version 3 of | |
6 | * the License, or (at your option) any later version. | |
7 | * | |
8 | * This library is distributed in the hope that it will be useful, but | |
9 | * WITHOUT ANY WARRANTY; without even the implied warranty of | |
10 | * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU | |
11 | * Lesser General Public License for more details. | |
12 | * | |
13 | * You should have received a copy of the GNU Lesser General Public | |
14 | * License along with this library; if not, write to the Free Software | |
15 | * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA | |
16 | * 02110-1301 USA | |
17 | */ | |
18 | ||
19 | /* Test whether threads created with `pthread_create' work, and whether | |
20 | a secondary thread can call `scm_with_guile'. (bug #32436). */ | |
21 | ||
22 | #ifdef HAVE_CONFIG_H | |
23 | # include <config.h> | |
24 | #endif | |
25 | ||
26 | #include <pthread.h> | |
27 | #include <stdlib.h> | |
28 | #include <libguile.h> | |
29 | ||
30 | #include <gc/gc_version.h> | |
31 | ||
32 | ||
33 | /* Up to GC 7.2alpha5, calling `GC_INIT' from a secondary thread would | |
34 | lead to a segfault. This was fixed in BDW-GC on 2011-04-16 by Ivan | |
35 | Maidanski. See <http://thread.gmane.org/gmane.lisp.guile.bugs/5340> | |
36 | for details. */ | |
37 | ||
38 | #if (GC_VERSION_MAJOR > 7) \ | |
39 | || ((GC_VERSION_MAJOR == 7) && (GC_VERSION_MINOR > 2)) \ | |
40 | || ((GC_VERSION_MAJOR == 7) && (GC_VERSION_MINOR == 2) \ | |
41 | && (GC_ALPHA_VERSION > 5)) | |
42 | ||
43 | static void * | |
44 | do_something (void *arg) | |
45 | { | |
46 | scm_list_copy (scm_make_list (scm_from_int (1234), SCM_BOOL_T)); | |
47 | scm_gc (); | |
48 | return NULL; | |
49 | } | |
50 | ||
51 | static void * | |
52 | thread (void *arg) | |
53 | { | |
54 | scm_with_guile (do_something, NULL); | |
55 | return NULL; | |
56 | } | |
57 | ||
58 | \f | |
59 | int | |
60 | main (int argc, char *argv[]) | |
61 | { | |
62 | int i; | |
63 | ||
64 | for (i = 0; i < 77; i++) | |
65 | { | |
66 | pthread_t thr; | |
67 | ||
68 | pthread_create (&thr, NULL, thread, NULL); | |
69 | pthread_join (thr, NULL); | |
70 | } | |
71 | ||
72 | return EXIT_SUCCESS; | |
73 | } | |
74 | ||
75 | \f | |
76 | #else /* GC < 7.2 */ | |
77 | ||
78 | int | |
79 | main (int argc, char *argv[]) | |
80 | { | |
81 | /* Skip. */ | |
82 | return 77; | |
83 | } | |
84 | ||
85 | #endif /* GC < 7.2 */ |