File: vecadd.s

package info (click to toggle)
gdb-doc 16.3-1
  • links: PTS, VCS
  • area: non-free
  • in suites: forky, sid, trixie
  • size: 244,264 kB
  • sloc: ansic: 2,134,731; asm: 375,582; exp: 206,875; cpp: 73,639; makefile: 70,232; sh: 26,038; python: 13,697; yacc: 11,341; ada: 7,358; xml: 6,098; perl: 5,077; pascal: 3,389; tcl: 2,986; f90: 2,764; lisp: 1,984; cs: 879; lex: 738; sed: 228; awk: 181; objc: 137; fortran: 57
file content (65 lines) | stat: -rw-r--r-- 882 bytes parent folder | download | duplicates (33) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
 
# mach: bfin

.include "testutils.inc"
	start

// create two short vectors v_a, v_b
//   where each element of v_a is the index
//   where each element of v_b is 128-index
	R2 = 0;
	loadsym P0, v_a;
	loadsym P1, v_b;
	P2 = 0;
	R3 = 128 (X);
	R0 = 0;
	R1 = 128 (X);
L$1:
	W [ P0 ++ ] = R0;
	W [ P1 ++ ] = R1;
	R0 += 1;
	R1 += -1;
	CC = R0 < R3;
	IF CC JUMP L$1 (BP);

	loadsym P0, v_a;
	loadsym P1, v_b;

	CALL vecadd;

	loadsym P0, v_c;
	R2 = 0;
	R3 = 128 (X);
L$3:
	R0 = W [ P0 ++ ] (X);
	DBGA ( R0.L , 128 );
	R2 += 1;
	CC = R2 < R3;
	IF CC JUMP L$3;
	_DBG R6;
	pass

vecadd:

	loadsym I0, v_a;
	loadsym I1, v_b;
	loadsym I2, v_c;

	P5 = 128 (X);
	LSETUP ( L$2 , L$2end ) LC0 = P5 >> 1;
	R0 = [ I0 ++ ];
	R1 = [ I1 ++ ];
L$2:
	R2 = R0 +|+ R1 || R0 = [ I0 ++ ] || R1 = [ I1 ++ ];
L$2end:
	[ I2 ++ ] = R2;


	RTS;

	.data
v_a:
	.space (512);
v_b:
	.space (512);
v_c:
	.space (512);