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 #endif
} }
#ifdef MZ_XFORM
START_XFORM_SKIP;
#endif
double scheme_get_inexact_milliseconds(void) double scheme_get_inexact_milliseconds(void)
/* this function can be called from any OS thread */ /* this function can be called from any OS thread */
{ {
START_XFORM_SKIP;
#ifdef USE_MACTIME #ifdef USE_MACTIME
{ {
UnsignedWide time; UnsignedWide time;
@ -7999,8 +8001,11 @@ double scheme_get_inexact_milliseconds(void)
# endif # endif
# endif # endif
#endif #endif
END_XFORM_SKIP;
} }
#ifdef MZ_XFORM
END_XFORM_SKIP;
#endif
long scheme_get_process_milliseconds(void) long scheme_get_process_milliseconds(void)
{ {