Remove some unused external C code

OpenModelica · Apr 15, 2016 · 4ed2f2b · 4ed2f2b
1 parent cfcd347
commit 4ed2f2b
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 9 deletions.
diff --git a/Compiler/Util/System.mo b/Compiler/Util/System.mo
@@ -635,7 +635,8 @@ end getHasInnerOuterDefinitions;
 public function tmpTick
   "returns a tick that can be reset"
   output Integer tickNo;
-  external "C" tickNo = SystemImpl_tmpTick(OpenModelica.threadData()) annotation(Library = "omcruntime");
+algorithm
+  tickNo := tmpTickIndex(index=0);
 end tmpTick;
 
 public function tmpTickReset

diff --git a/Compiler/runtime/systemimpl.c b/Compiler/runtime/systemimpl.c
@@ -2181,11 +2181,13 @@ extern int SystemImpl_tmpTickMaximum(threadData_t *threadData, int index)
   return data->tmp_tick_max_no[index];
 }
 
+#if defined(OPENMODELICA_BOOTSTRAPPING_STAGE_1)
 extern int SystemImpl_tmpTick(threadData_t *threadData)
 {
   int res = SystemImpl_tmpTickIndex(threadData,0);
   return res;
 }
+#endif
 
 extern void SystemImpl_tmpTickReset(threadData_t *threadData, int start)
 {
@@ -2296,14 +2298,6 @@ double SystemImpl__realRand(void)
   return tinymt64_generate_double(&system_random_seed);
 }
 
-/* Returns an integer (0,n] (i.e. the highest value is n-1)
- * TODO: Remove once we update the bootstrapping tarball
- */
-int SystemImpl__intRand(int n)
-{
-  return (int) SystemImpl__realRand()*n;
-}
-
 /* Returns an integer [0,n) using the C function rand() */
 int SystemImpl__intRandom(int n)
 {