Open64 (mfef90, whirl2f, and IR tools)  TAG: version-openad; SVN changeset: 916
setstride.c File Reference
#include <fortran.h>
#include <memory.h>
#include <cray/nassert.h>
#include <cray/portdefs.h>
Include dependency graph for setstride.c:

Go to the source code of this file.

Classes

struct  biword
struct  quadword

Defines

#define BYTE   unsigned char
#define WORD   int64
#define DOUBLEWORD   long double
#define QUADWORD   struct quadword
#define XFER_CASE(TYPE)

Functions

void _set_stride (void *dest, void *src, long count, int elsize, long stride)

Define Documentation

#define BYTE   unsigned char

Definition at line 53 of file setstride.c.

Referenced by _set_stride().

#define DOUBLEWORD   long double

Definition at line 64 of file setstride.c.

Referenced by _set_stride().

#define QUADWORD   struct quadword

Definition at line 69 of file setstride.c.

Referenced by _set_stride().

#define WORD   int64

Definition at line 60 of file setstride.c.

#define XFER_CASE (   TYPE)
Value:
{                                               \
        register TYPE   datum;                  \
        TYPE            *data;                  \
        datum   = *(TYPE *)src;                 \
        data    = (TYPE *)dest;                 \
        for (i = 0; i < count; i++)             \
                data[i*inc]     = datum;        \
}                                               \

Definition at line 72 of file setstride.c.

Referenced by _set_stride().


Function Documentation

void _set_stride ( void *  dest,
void *  src,
long  count,
int  elsize,
long  stride 
)

Definition at line 90 of file setstride.c.

References BYTE, DOUBLEWORD, NULL, QUADWORD, and XFER_CASE.

Referenced by _ld_read().

 All Classes Namespaces Files Functions Variables Typedefs Enumerations Enumerator Friends Defines