sfos/ecl
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

examples: fix threads example

Browse source 
Do not include `gc.h' in the example (only ecl/ecl.h). Things work as
expected whatsoever and we don't put gc.h anywhere for quite a
while. Fixes #136.

Also replace obsolete Cnil with ECL_NIL.
This commit is contained in:
Daniel Kochmański 2016-10-05 12:38:51 +02:00
parent 1c2942d15d
commit 69a28761d9
2 changed files with 4 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
examples/threads/import/import.c
View file

@ -38,15 +38,15 @@
* or CreateThread (in unix and Windows respectively) with the
* GC_pthread_create and GC_CreateThread functions.
*/
/* Unfortunately, the Bohem-Weiser garbage collector does not keep track
* of its configuration. We have to add the following flags by hand in
* order to force pthread_create being redefined.
*/
#define GC_THREADS
#define _REENTRANT
#include <ecl/gc/gc.h>
#include <ecl/ecl.h>
#include <ecl/ecl.h>
static void *
thread_entry_point(void *data)
@ -59,7 +59,7 @@ thread_entry_point(void *data)
* routine initializes the lisp and makes it ready for working
* in this thread.
*/
ecl_import_current_thread(Cnil, Cnil);
ecl_import_current_thread(ECL_NIL, ECL_NIL);
/*
* Here we execute some lisp code code.

2
examples/threads/import_win32/import.c
View file

@ -59,7 +59,7 @@ thread_entry_point(void *data)
* in this thread.
*/
ecl_import_current_thread(Cnil, Cnil);
ecl_import_current_thread(ECL_NIL, ECL_NIL);
/*
* Here we execute some lisp code code.