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

avoid compiler warning

Browse Source
This commit is contained in:
Matthew Flatt 2014-04-05 07:31:58 -06:00
parent 6d54632319
commit 15630b5245
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
racket/src/racket/include/scheme.h
View File

@ -244,10 +244,17 @@ typedef struct FSSpec mzFSSpec;
uses __extension__. This breaks the 3m xform. */
#if defined(MZ_XFORM) && defined(strcpy)
START_XFORM_SKIP;
# ifdef __clang__
# pragma clang diagnostic push
# pragma clang diagnostic ignored "-Wunused-function"
# endif
static inline void _mzstrcpy(char *a, const char *b)
{
strcpy(a, b);
}
# ifdef __clang__
# pragma clang diagnostic pop
# endif
END_XFORM_SKIP;
# undef strcpy
# define strcpy _mzstrcpy