mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Mark system async functions as SCM_API.

Browse source 
Fixes <http://bugs.gnu.org/17661>.
Reported and fixed by Chris Vine <chris@cvine.freeserve.co.uk>.

* libguile/async.h (scm_c_call_with_blocked_asyncs)
  (scm_c_call_with_unblocked_asyncs, scm_dynwind_block_asyncs)
  (scm_dynwind_unblock_asyncs): Mark as SCM_API.

* THANKS: Add Chris Vine to fixes section.
This commit is contained in:
Mark H Weaver 2014-06-01 19:08:25 -04:00
parent a43fa1b706
commit 12c6a47773
2 changed files with 7 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

1
THANKS
View file

@ -182,6 +182,7 @@ For fixes or providing information which led to a fix:
Aaron VanDevender Aaron VanDevender
Sjoerd Van Leent Sjoerd Van Leent
Andreas Vögele Andreas Vögele
Chris Vine
Michael Talbot-Wilson Michael Talbot-Wilson
Michael Tuexen Michael Tuexen
Xin Wang Xin Wang

11
libguile/async.h
View file

@ -3,7 +3,8 @@
#ifndef SCM_ASYNC_H #ifndef SCM_ASYNC_H
#define SCM_ASYNC_H #define SCM_ASYNC_H
/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2002, 2004, 2005, 2006, 2008, 2009 Free Software Foundation, Inc. /* Copyright (C) 1995-1998, 2000-2002, 2004-2006, 2008, 2009,
* 2014 Free Software Foundation, Inc.
* *
* This library is free software; you can redistribute it and/or * This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License * modify it under the terms of the GNU Lesser General Public License
@ -44,10 +45,10 @@ SCM_API SCM scm_run_asyncs (SCM list_of_a);
SCM_API SCM scm_noop (SCM args); SCM_API SCM scm_noop (SCM args);
SCM_API SCM scm_call_with_blocked_asyncs (SCM proc); SCM_API SCM scm_call_with_blocked_asyncs (SCM proc);
SCM_API SCM scm_call_with_unblocked_asyncs (SCM proc); SCM_API SCM scm_call_with_unblocked_asyncs (SCM proc);
void *scm_c_call_with_blocked_asyncs (void *(*p) (void *d), void *d); SCM_API void *scm_c_call_with_blocked_asyncs (void *(*p) (void *d), void *d);
void *scm_c_call_with_unblocked_asyncs (void *(*p) (void *d), void *d); SCM_API void *scm_c_call_with_unblocked_asyncs (void *(*p) (void *d), void *d);
void scm_dynwind_block_asyncs (void); SCM_API void scm_dynwind_block_asyncs (void);
void scm_dynwind_unblock_asyncs (void); SCM_API void scm_dynwind_unblock_asyncs (void);
/* Critical sections */ /* Critical sections */