File: dynalloc.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 (27 lines) | stat: -rw-r--r-- 339 bytes parent folder | download 
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
 
# make sure dynamic allocations
# and caller-save regs interact
# soundly

function $g() {
@start
	ret
}

function w $f(w %arg) {
@start
	call $g()
@alloc
	%r =l alloc8 16
	storel 180388626474, %r
	%r8 =l add 8, %r
	storel 180388626474, %r8
	ret %arg
}

export
function w $main() {
@start
	%a =w call $f(w 0)
	%b =w call $f(w 0)
	ret %a
}