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

Subversion Repositories theia_gpu

[/] [theia_gpu/] [branches/] [beta_2.0/] [regressions/] [single_core/] [test_arrays_1.vp] - Blame information for rev 218

Details | Compare with Previous | View Log

Line No. Rev Author Line
1 218 diegovalve
#define Result r66
2
 
3
function main()
4
{
5
 
6
         vector a = (3,3,3),b = (2,2,2), c = (2,3,4);
7
         vector result1, result2;
8
 
9
         vector array[ 5 ];
10
         vector caca = (0xcaca,0,0);
11
         array[ c ] = (a + b) * b;
12
         a = 10;
13
         result1 = 0;
14
 
15
         caca = array[ c ] + result1;
16
          if ( caca != a)
17
          {
18
                 Result = 0x100dead;
19
                 exit ;
20
          }
21
 
22
         vector i = (0,0,0);
23
         while ( i.xxx < 5 )
24
         {
25
                array[ i ] = i;
26
                i++;
27
         }
28
 
29
         i = 0;
30
         while ( i.xxx < 5 )
31
         {
32
                vector tmp, boo = (0,0,0);
33
                tmp = array[ i ] + boo;
34
                if ( tmp != i )
35
                {
36
                        Result = 0x200dead;
37
                        exit ;
38
                }
39
                i++;
40
         }
41
 
42
         a = 1;
43
         b = 2;
44
         c = 3;
45
         //This function makes it fail!
46
         //result1 = MyFunction( a,b,c);
47
         Result = 0xaced;
48
         exit ;
49
}
50
 
51
// --------------------------------------------
52
function MyFunction(v1, v2, v3)
53
{
54
        vector a = (0xa,0xa,0xa);
55
        vector foo,i,tmp;
56
        vector array[ 16 ];
57
        foo = 2;
58
        tmp = 0;
59
        a = 0x666;
60
        //a += 2;
61
        R40 = 0xcafe;
62
        v1 += 2;
63
        array[ foo ] = a+a;
64
 
65
        i = 0;
66
        while ( i.xxx < 16 )
67
         {
68
                array[ i ] = a+a-a;
69
                foo = array[ i ] + tmp;
70
                if (foo != a)
71
                {
72
                        Result = 0x300dead;
73
                        Result = 0x300dead;
74
                        exit;
75
                }
76
                i++;
77
         }
78
 
79
        return  a + v1 + v2*v3;
80
}
81
// --------------------------------------------

powered by: WebSVN 2.1.0

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