File: cache-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 (31 lines) | stat: -rw-r--r-- 430 bytes parent folder | download | duplicates (16) 
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
 
	.code
	.IMPORT $global$,DATA
	.IMPORT $$dyncall,MILLICODE
; gcc_compiled.:
	.code

	.align 4
	.EXPORT __TR_clear_cache,ENTRY,PRIV_LEV=3,ARGW0=GR,ARGW1=GR
	.label __TR_clear_cache
	.PROC
	.CALLINFO FRAME=0,NO_CALLS
	.ENTRY
	fdc 0(0,%r26)
	fdc 0(0,%r25)
	sync
	mfsp %sr0,%r19
	ldsid (0,%r26),%r20
	mtsp %r20,%sr0
	fic 0(%sr0,%r26)
	fic 0(%sr0,%r25)
	sync
	mtsp %r19,%sr0
	nop
	nop
	nop
	nop
	nop
	nop
	bv,n 0(%r2)
	.EXIT
	.PROCEND