mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 14:21:10 +02:00
Code Activity

(scm_mktime): Use scm_frame_critical_section instead of

Browse source 
SCM_CRITICAL_SECTION_START/END since the code inside the critical
section might exit non-locally.
This commit is contained in:
Marius Vollmer 2005-11-06 22:12:04 +00:00
parent 914da0e2fc
commit 9291479faa
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

4
libguile/stime.c
View file

@ -532,7 +532,8 @@ SCM_DEFINE (scm_mktime, "mktime", 1, 1, 0,
scm_frame_free ((char *)lt.tm_zone); scm_frame_free ((char *)lt.tm_zone);
#endif #endif
SCM_CRITICAL_SECTION_START; scm_frame_critical_section (SCM_BOOL_F);
oldenv = setzone (zone, SCM_ARG2, FUNC_NAME); oldenv = setzone (zone, SCM_ARG2, FUNC_NAME);
#ifdef LOCALTIME_CACHE #ifdef LOCALTIME_CACHE
tzset (); tzset ();
@ -585,7 +586,6 @@ SCM_DEFINE (scm_mktime, "mktime", 1, 1, 0,
result = scm_cons (scm_from_long (itime), result = scm_cons (scm_from_long (itime),
filltime (&lt, zoff, zname)); filltime (&lt, zoff, zname));
SCM_CRITICAL_SECTION_END;
if (zname) if (zname)
free (zname); free (zname);