quinn-os/my-basic
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*added ticks for bcb compiling.

Browse Source
This commit is contained in:
Wang Renxin 2017-01-10 19:41:36 +08:00
parent 0e497f0b07
commit 6119ca5061
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
shell/main.c
View File

@ -38,6 +38,9 @@
#elif !defined MB_CP_BORLANDC && !defined MB_CP_TCC
# include <unistd.h>
#endif /* MB_CP_VC */
#ifdef MB_CP_BORLANDC
# include <Windows.h>
#endif /* MB_CP_BORLANDC */
#ifndef MB_CP_VC
# include <stdint.h>
#endif /* MB_CP_VC */
@ -1230,7 +1233,7 @@ static bool_t _process_parameters(int argc, char* argv[]) {
#endif /* MB_OS_WIN */
#define _HAS_TICKS
#if defined MB_CP_VC
#if defined MB_CP_VC || defined MB_CP_BORLANDC
static int_t _ticks(void) {
LARGE_INTEGER li;
double freq = 0.0;
@ -1266,9 +1269,9 @@ static int_t _ticks(void) {
return (int_t)(ts.tv_sec * 1000 + ts.tv_nsec / 1000000);
}
#else /* MB_CP_VC */
#else /* MB_CP_VC || MB_CP_BORLANDC */
# undef _HAS_TICKS
#endif /* MB_CP_VC */
#endif /* MB_CP_VC || MB_CP_BORLANDC */
#ifdef _HAS_TICKS
static int ticks(struct mb_interpreter_t* s, void** l) {