FLA_macro_ptr_defs.h
Go to the documentation of this file.00001
00002
00003
00004
00005
00006
00007
00008
00009
00010
00011
00012
00013
00014
00015
00016
00017
00018
00019
00020
00021
00022
00023
00024
00025
00026
00027
00028
00029
00030
00031
00032
00033 #include "FLA_type_defs.h"
00034
00035
00036
00037 #define FLA_CONSTANT_I_OFFSET 0
00038 #define FLA_CONSTANT_S_OFFSET ( sizeof(double) )
00039 #define FLA_CONSTANT_D_OFFSET ( sizeof(double) + sizeof(double) )
00040 #define FLA_CONSTANT_C_OFFSET ( sizeof(double) + sizeof(double) + sizeof(double) )
00041 #define FLA_CONSTANT_Z_OFFSET ( sizeof(double) + sizeof(double) + sizeof(double) + sizeof( scomplex ) )
00042
00043 #define FLA_INT_PTR( x ) \
00044 ( ((x).base)->datatype == FLA_CONSTANT ? \
00045 ( int * ) ( ( ( char * ) ((x).base)->buffer ) + FLA_CONSTANT_I_OFFSET ) : \
00046 ( ( ( int * ) ((x).base)->buffer ) + ( size_t ) (x).offn * ((x).base)->ldim + (x).offm ) )
00047
00048 #define FLA_FLOAT_PTR( x ) \
00049 ( ((x).base)->datatype == FLA_CONSTANT ? \
00050 ( float * ) ( ( ( char * ) ((x).base)->buffer ) + FLA_CONSTANT_S_OFFSET ) : \
00051 ( ( ( float * ) ((x).base)->buffer ) + ( size_t ) (x).offn * ((x).base)->ldim + (x).offm ) )
00052
00053 #define FLA_DOUBLE_PTR( x ) \
00054 ( ((x).base)->datatype == FLA_CONSTANT ? \
00055 ( double * ) ( ( ( char * ) ((x).base)->buffer ) + FLA_CONSTANT_D_OFFSET ) : \
00056 ( ( ( double * ) ((x).base)->buffer ) + ( size_t ) (x).offn * ((x).base)->ldim + (x).offm ) )
00057
00058 #define FLA_COMPLEX_PTR( x ) \
00059 ( ((x).base)->datatype == FLA_CONSTANT ? \
00060 ( scomplex * ) ( ( ( char * ) ((x).base)->buffer ) + FLA_CONSTANT_C_OFFSET ) : \
00061 ( ( ( scomplex * ) ((x).base)->buffer ) + ( size_t ) (x).offn * ((x).base)->ldim + (x).offm ) )
00062
00063 #define FLA_DOUBLE_COMPLEX_PTR( x ) \
00064 ( ((x).base)->datatype == FLA_CONSTANT ? \
00065 ( dcomplex * ) ( ( ( char * ) ((x).base)->buffer ) + FLA_CONSTANT_Z_OFFSET ) : \
00066 ( ( ( dcomplex * ) ((x).base)->buffer ) + ( size_t ) (x).offn * ((x).base)->ldim + (x).offm ) )