File: abi2.ssa

package info (click to toggle)
qbe 1.2-3
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid, trixie
  • size: 2,004 kB
  • sloc: ansic: 13,368; yacc: 843; ml: 466; sh: 379; python: 232; makefile: 100
file content (19 lines) | stat: -rw-r--r-- 413 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
type :fps = { s, b, s }

export
function s $sum(:fps %p) {
@start
	%f1 =s load %p
	%p8 =l add 8, %p
	%f2 =s load %p8
	%s =s add %f1, %f2
	ret %s
}

# >>> driver
# typedef struct { float f1; char b; float f2; } fps;
# extern float sum(fps);
# int main() { fps x = { 1.23, -1, 2.34 }; return !(sum(x) == 1.23f+2.34f); }
# /* Note the f suffixes above are important
#  * otherwise C does double operations. */
# <<<