Mercurial > vim

comparison src/if_mzsch.c @ 9961:f4e903ba38d8 v7.4.2254

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
commit https://github.com/vim/vim/commit/54b6352c6f0617ff9c963588ccc7d31815348029 Author: Bram Moolenaar <Bram@vim.org> Date: Fri Aug 26 12:55:09 2016 +0200 patch 7.4.2254 Problem: Compiler warnings in MzScheme code. Solution: Add UNUSED. Remove unreachable code.
author Christian Brabandt <cb@256bit.org>
date Fri, 26 Aug 2016 13:00:07 +0200
parents 4cb5ab124239
children 4aead6a9b7a9
comparison
equal deleted inserted replaced
9960:e745508cf14b 9961:f4e903ba38d8
1006 static THREAD_LOCAL void *tls_space; 1006 static THREAD_LOCAL void *tls_space;
1007 static intptr_t _tls_index = 0; 1007 static intptr_t _tls_index = 0;
1008 # endif 1008 # endif
1009 #endif 1009 #endif
1010 1010
1011 /*
1012 * mzscheme_main() is called early in main().
1013 * We may call scheme_main_setup() which calls mzscheme_env_main() which then
1014 * trampolines into vim_main2(), which never returns.
1015 */
1011 int 1016 int
1012 mzscheme_main() 1017 mzscheme_main(void)
1013 { 1018 {
1014 int argc = 0; 1019 int argc = 0;
1015 char *argv = NULL; 1020 char *argv = NULL;
1016 1021
1017 #ifdef DYNAMIC_MZSCHEME 1022 #ifdef DYNAMIC_MZSCHEME
1034 return mzscheme_env_main(NULL, argc, &argv); 1039 return mzscheme_env_main(NULL, argc, &argv);
1035 #endif 1040 #endif
1036 } 1041 }
1037 1042
1038 static int 1043 static int
1039 mzscheme_env_main(Scheme_Env *env, int argc, char **argv) 1044 mzscheme_env_main(Scheme_Env *env, int argc UNUSED, char **argv UNUSED)
1040 { 1045 {
1041 int vim_main_result;
1042 #ifdef TRAMPOLINED_MZVIM_STARTUP 1046 #ifdef TRAMPOLINED_MZVIM_STARTUP
1043 /* Scheme has created the environment for us */ 1047 /* Scheme has created the environment for us */
1044 environment = env; 1048 environment = env;
1045 #else 1049 #else
1046 # ifdef MZ_PRECISE_GC 1050 # ifdef MZ_PRECISE_GC
1053 int dummy = 0; 1057 int dummy = 0;
1054 stack_base = (void *)&dummy; 1058 stack_base = (void *)&dummy;
1055 # endif 1059 # endif
1056 #endif 1060 #endif
1057 1061
1058 /* mzscheme_main is called as a trampoline from main. 1062 vim_main2();
1059 * We trampoline into vim_main2 1063 /* not reached, vim_main2() will loop until exit() */
1060 * Passing argc, argv through from mzscheme_main 1064
1061 */ 1065 return 0;
1062 vim_main_result = vim_main2();
1063 #if !defined(TRAMPOLINED_MZVIM_STARTUP) && defined(MZ_PRECISE_GC)
1064 /* releasing dummy */
1065 MZ_GC_REG();
1066 MZ_GC_UNREG();
1067 #endif
1068 return vim_main_result;
1069 } 1066 }
1070 1067
1071 static Scheme_Object* 1068 static Scheme_Object*
1072 load_base_module(void *data) 1069 load_base_module(void *data)
1073 { 1070 {