Change integer type in CBLAS function signatures to f77_int, and add proper const-correctness to BLAS layer.

frame/compat/bla_hemv.c

@@ -43,13 +43,13 @@
 \
 void PASTEF77(ch,blasname) \
      ( \
-       f77_char* uploa, \
-       f77_int*  m, \
-       ftype*    alpha, \
-       ftype*    a, f77_int* lda, \
-       ftype*    x, f77_int* incx, \
-       ftype*    beta, \
-       ftype*    y, f77_int* incy  \
+       const f77_char* uploa, \
+       const f77_int*  m, \
+       const ftype*    alpha, \
+       const ftype*    a, const f77_int* lda, \
+       const ftype*    x, const f77_int* incx, \
+       const ftype*    beta, \
+             ftype*    y, const f77_int* incy  \
      ) \
 { \
 	uplo_t  blis_uploa; \
@@ -84,8 +84,8 @@ void PASTEF77(ch,blasname) \
 \
 	/* If the input increments are negative, adjust the pointers so we can
 	   use positive increments instead. */ \
-	bli_convert_blas_incv( m0, x, *incx, x0, incx0 ); \
-	bli_convert_blas_incv( m0, y, *incy, y0, incy0 ); \
+	bli_convert_blas_incv( m0, (ftype*)x, *incx, x0, incx0 ); \
+	bli_convert_blas_incv( m0, (ftype*)y, *incy, y0, incy0 ); \
 \
 	/* Set the row and column strides of A. */ \
 	rs_a = 1; \
@@ -98,10 +98,10 @@ void PASTEF77(ch,blasname) \
 	  BLIS_NO_CONJUGATE, \
 	  BLIS_NO_CONJUGATE, \
 	  m0, \
-	  alpha, \
-	  a,  rs_a, cs_a, \
+	  (ftype*)alpha, \
+	  (ftype*)a,  rs_a, cs_a, \
 	  x0, incx0, \
-	  beta, \
+	  (ftype*)beta, \
 	  y0, incy0, \
 	  NULL  \
 	); \