diff options
| author | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-22 07:41:48 +0000 |
|---|---|---|
| committer | fxcoudert <fxcoudert@138bc75d-0d04-0410-961f-82ee72b054a4> | 2006-10-22 07:41:48 +0000 |
| commit | 4e8e57b0ce67551ca61b7883e73586ba805f0a61 (patch) | |
| tree | 06dcf4cc8adb7c0677545a92f9a81873ed2e8051 /gcc/fortran/trans.h | |
| parent | 9c384dcabc464328ebe0e4da1da978416882e344 (diff) | |
| download | gcc-4e8e57b0ce67551ca61b7883e73586ba805f0a61.tar.gz | |
PR fortran/26025
* lang.opt: Add -fexternal-blas and -fblas-matmul-limit options.
* options.c (gfc_init_options): Initialize new flags.
(gfc_handle_option): Handle new flags.
* gfortran.h (gfc_option): Add flag_external_blas and
blas_matmul_limit flags.
* trans-expr.c (gfc_conv_function_call): Use new argument
append_args, appending it at the end of the argument list
built for a function call.
* trans-stmt.c (gfc_trans_call): Use NULL_TREE for the new
append_args argument to gfc_trans_call.
* trans.h (gfc_conv_function_call): Update prototype.
* trans-decl.c (gfc_build_intrinsic_function_decls): Add
prototypes for BLAS ?gemm routines.
* trans-intrinsic.c (gfc_conv_intrinsic_funcall): Generate the
extra arguments given to the library matmul function, and give
them to gfc_conv_function_call.
* invoke.texi: Add documentation for -fexternal-blas and
-fblas-matmul-limit.
* m4/matmul.m4: Add possible call to gemm routine.
* generated/matmul_r8.c: Regenerate.
* generated/matmul_r16.c: Regenerate.
* generated/matmul_c8.c: Regenerate.
* generated/matmul_i8.c: Regenerate.
* generated/matmul_c16.c: Regenerate.
* generated/matmul_r10.c: Regenerate.
* generated/matmul_r4.c: Regenerate.
* generated/matmul_c10.c: Regenerate.
* generated/matmul_c4.c: Regenerate.
* generated/matmul_i4.c: Regenerate.
* generated/matmul_i16.c: Regenerate.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@117948 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/fortran/trans.h')
| -rw-r--r-- | gcc/fortran/trans.h | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gcc/fortran/trans.h b/gcc/fortran/trans.h index 13c21aa2581..e8bb1d5d6aa 100644 --- a/gcc/fortran/trans.h +++ b/gcc/fortran/trans.h @@ -303,7 +303,8 @@ void gfc_conv_intrinsic_function (gfc_se *, gfc_expr *); int gfc_is_intrinsic_libcall (gfc_expr *); /* Also used to CALL subroutines. */ -int gfc_conv_function_call (gfc_se *, gfc_symbol *, gfc_actual_arglist *); +int gfc_conv_function_call (gfc_se *, gfc_symbol *, gfc_actual_arglist *, + tree); /* gfc_trans_* shouldn't call push/poplevel, use gfc_push/pop_scope */ /* Generate code for a scalar assignment. */ @@ -507,6 +508,12 @@ extern GTY(()) tree gfor_fndecl_math_exponent8; extern GTY(()) tree gfor_fndecl_math_exponent10; extern GTY(()) tree gfor_fndecl_math_exponent16; +/* BLAS functions. */ +extern GTY(()) tree gfor_fndecl_sgemm; +extern GTY(()) tree gfor_fndecl_dgemm; +extern GTY(()) tree gfor_fndecl_cgemm; +extern GTY(()) tree gfor_fndecl_zgemm; + /* String functions. */ extern GTY(()) tree gfor_fndecl_compare_string; extern GTY(()) tree gfor_fndecl_concat_string; |