suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix XFORM_SKIP annotation placement that MSVC doesn't like

Browse Source 
svn: r16936
This commit is contained in:
Matthew Flatt 2009-11-21 04:25:01 +00:00
parent 41bf71fa06
commit e7f47a0882
1 changed files with 7 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
src/mzscheme/src/fun.c
View File

@ -7971,10 +7971,12 @@ long scheme_get_milliseconds(void)
#endif
}
#ifdef MZ_XFORM
START_XFORM_SKIP;
#endif
double scheme_get_inexact_milliseconds(void)
/* this function can be called from any OS thread */
{
START_XFORM_SKIP;
#ifdef USE_MACTIME
{
UnsignedWide time;
@ -7999,8 +8001,11 @@ double scheme_get_inexact_milliseconds(void)
# endif
# endif
#endif
END_XFORM_SKIP;
}
#ifdef MZ_XFORM
END_XFORM_SKIP;
#endif
long scheme_get_process_milliseconds(void)
{