OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-dev/] [or1k-gcc/] [gcc/] [testsuite/] [gcc.c-torture/] [compile/] [pr27907.c] - Blame information for rev 801

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 688 jeremybenn
typedef double fann_type;
2
typedef struct { } _G_fpos64_t;
3
struct fann_neuron
4
{
5
    fann_type value;
6
}
7
__attribute__ ((packed));
8
struct fann_layer
9
{
10
    struct fann_neuron *last_neuron;
11
};
12
struct fann
13
{
14
    struct fann_layer *first_layer;
15
};
16
fann_run (struct fann *ann, fann_type * input)
17
{
18
  struct fann_layer *layer_it, *layer_it2, *last_layer;
19
  for (layer_it = ann->first_layer + 1; layer_it != last_layer; layer_it++)
20
    {
21
      ((layer_it - 1)->last_neuron - 1)->value = 1;
22
    }
23
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.