File: proto-hppa.s

package info (click to toggle)
clisp 1%3A2.33.2-10
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 36,532 kB
  • ctags: 13,235
  • sloc: lisp: 65,550; ansic: 35,636; asm: 23,001; sh: 14,153; xml: 13,470; fortran: 6,490; objc: 2,481; makefile: 2,069; perl: 164; sed: 55
file content (38 lines) | stat: -rw-r--r-- 675 bytes parent folder | download | duplicates (8) 
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
 
	.code
	.IMPORT $global$,DATA
	.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
	.code

	.align 4
	.EXPORT tramp,ENTRY,PRIV_LEV=3,RTNVAL=GR
	.label tramp
	.PROC
	.CALLINFO FRAME=64,CALLS,SAVE_RP
	.ENTRY
	stw %r2,-20(0,%r30)
	ldo 64(%r30),%r30
	ldil L'1934968593,%r19
	ldo R'1934968593(%r19),%r29
	ldil L'-1161904448,%r28
	ldo R'-1161904448(%r28),%r28
	copy %r28,%r22
	.CALL	ARGW0=GR
	bl $$dyncall,%r31
	copy %r31,%r2
	ldw -84(0,%r30),%r2
	bv 0(%r2)
	ldo -64(%r30),%r30
	.EXIT
	.PROCEND
	.align 4
	.EXPORT jump,ENTRY,PRIV_LEV=3,RTNVAL=GR
	.label jump
	.PROC
	.CALLINFO FRAME=0,NO_CALLS
	.ENTRY
	ldil L'-1161904448,%r19
	ldo R'-1161904448(%r19),%r19
	bv,n 0(%r19)
	.EXIT
	.PROCEND