-vxworks includes

git-svn-id: https://openmodelica.org/svn/OpenModelica/trunk@22555 f25d12d1-65f4-0310-ae8a-bbce733d8d8e
OpenModelica · Oct 2, 2014 · cd4b840 · cd4b840
1 parent 352ad76
commit cd4b840
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 3 deletions.
diff --git a/SimulationRuntime/cpp/Include/Core/Math/Functions.h b/SimulationRuntime/cpp/Include/Core/Math/Functions.h
@@ -23,6 +23,10 @@ Copyright (c) 2008, OSMC
 
 #define EPSILON    (std::numeric_limits<double>::epsilon( ))
 
+#if defined(__vxworks)
+#define BOOST_EXTENSION_EXPORT_DECL
+#endif
+
 /// Definition of Signum function
 inline static int sgn (const double &c)
 {
@@ -155,7 +159,7 @@ inline int solveLGS(long int* dim, double* A, double* b)
             dimRHS = 1,                            // number of right hand sides (dimension of b)
             irtrn = 0;                            // return value
 
-        double* p = new double[(int)*dim];        // Pivot elements
+        long int* p = new long int[(int)*dim];        // Pivot elements
 
         // Solution is written to b
         /*dgesv_*/dgesv_(dim,&dimRHS,A,dim,p,b,dim,&irtrn);

diff --git a/SimulationRuntime/cpp/Include/Core/Math/IBlas.h b/SimulationRuntime/cpp/Include/Core/Math/IBlas.h
@@ -7,3 +7,8 @@
     modified 12/3/93, array(1) declarations changed to array(*)
 *************************/
 extern "C" void DCOPY(long int* n, double* dx, long int* incx, double* dy, long int* incy);
+extern "C" void daxpy_(long int *N, double *DA, double *DX, long int *INCX, double *DY, long int *INCY);
+extern "C" void dcopy_(long int *n, double *DX, long int *INCX, double *DY, long int *INCY);
+// y := alpha*A*x + beta*y
+extern "C" void dgemv_(char *trans, long int *m, long int *n, double *alpha, double *a, long int *lda, double *x, long int *incx, double *beta, double *y, long int *incy);
+extern "C" void dscal_(long int *n, double *da, double *dx, long int *incx);
diff --git a/SimulationRuntime/cpp/Include/Core/Math/ILapack.h b/SimulationRuntime/cpp/Include/Core/Math/ILapack.h
@@ -13,8 +13,9 @@
 *  system of equations A * X = B.
 ********************************/
 
-extern "C" void dgesv_(long int *n, long int *nrhs, double *J, long int *ldj, double *pivot,
-                      double *b, long int *ldb, long int *idid);
+extern "C" void dgesv_(long int *n, long int *nrhs, double *J, long int *ldj, long int *pivot,double *b, long int *ldb, long int *idid);
+extern "C" void dgetrf_(long int *m, long int *n, double *a, long int *lda, long int *ipiv, long int *info);
+extern "C" void dgetrs_(char *trans, long int *n, long int *nrhs, double *a, long int *lda, long int *ipiv, double *b, long int *ldb, long int *info);