File: proto-alpha.s

package info (click to toggle)
clisp 1%3A2.41-1
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k
  • size: 49,804 kB
  • ctags: 16,291
  • sloc: lisp: 75,912; ansic: 49,247; xml: 24,289; asm: 21,993; sh: 11,234; fortran: 6,692; cpp: 2,660; objc: 2,481; makefile: 2,355; perl: 164; sed: 55
file content (54 lines) | stat: -rw-r--r-- 733 bytes parent folder | download | duplicates (11) 
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
 
	.set noreorder
	.set volatile
	.set noat
	.file	1 "proto64.c"
gcc2_compiled.:
__gnu_compiled_c:
.rdata
	.quad 0
	.align 3
$C32:
	.quad 0x7355471143622155
	.align 3
$C33:
	.quad 0xbabebec0dea0ffab
.text
	.align 3
	.globl tramp
	.ent tramp
tramp:
	ldgp $29,0($27)
tramp..ng:
	lda $30,-16($30)
	.frame $30,16,$26,0
	stq $26,0($30)
	.mask 0x4000000,-16
	.prologue 1
	lda $2,$C33
	lda $3,$C32
	ldq $27,0($2)
	ldq $1,0($3)
	jsr $26,($27),0
	ldgp $29,0($26)
	ldq $26,0($30)
	addq $30,16,$30
	ret $31,($26),1
	.end tramp
.rdata
	.align 3
$C34:
	.quad 0xbabebec0dea0ffab
.text
	.align 3
	.globl jump
	.ent jump
jump:
	ldgp $29,0($27)
jump..ng:
	.frame $30,0,$26,0
	.prologue 1
	lda $2,$C34
	ldq $2,0($2)
	jmp $31,($2),0
	.align 4
	.end jump