33 lines
705 B
Perl
33 lines
705 B
Perl
|
/* n_pragma.t: _Pragma() operator */
|
||
|
|
/* based on the proposal to C99 by Bill Homer */
|
||
|
|
|
||
|
|
#define Machine_B
|
||
|
|
|
||
|
|
#include "pragmas.h"
|
||
|
|
|
||
|
|
/* #pragma vfunction */
|
||
|
|
Fast_call
|
||
|
|
void f(int n, double * a, double * b) {
|
||
|
|
/* #pragma ivdep */
|
||
|
|
Independent
|
||
|
|
while(n-- > 0) {
|
||
|
|
*a++ += *b++;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#define f(N, A, B) \
|
||
|
|
{ int n = (N), double * a = (A), double * b = (B); \
|
||
|
|
Independent while(n-- > 0) { *a++ += *b++; } \
|
||
|
|
}
|
||
|
|
|
||
|
|
#define EXPRAG(x) _Pragma(#x)
|
||
|
|
#define PRAGMA(x) EXPRAG(x)
|
||
|
|
#define LIBFUNC xyz
|
||
|
|
|
||
|
|
int libfunc() { ... }
|
||
|
|
|
||
|
|
/* Direct the linker to define alternate entry points for libfunc. */
|
||
|
|
/* #pragma duplicate libfunc as (lib_func,xyz) */
|
||
|
|
PRAGMA( duplicate libfunc as (lib_func,LIBFUNC) )
|
||
|
|
|