File: tramp-mips64.old.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 (42 lines) | stat: -rw-r--r-- 926 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
39
40
41
42
/* Trampoline for mips CPU in 64-bit mode */

/*
 * Copyright 1996-1997 Bruno Haible, <bruno@clisp.org>
 *
 * This is free software distributed under the GNU General Public Licence
 * described in the file COPYING. Contact the author if you don't have this
 * or can't live with it. There is ABSOLUTELY NO WARRANTY, explicit or implied,
 * on this software.
 */

/* Available registers: $2, $3. */

	.set	nobopt
	.set	noreorder
	.text
	.globl	main
	.ent	main
main:
	.end	main
	.globl	tramp
	.ent	tramp
tramp:
#	dli	$2,0x7355471143622155
	lui	$2,0x7355
	ori	$2,$2,0x4711
	dsll	$2,$2,16
	ori	$2,$2,0x4362
	dsll	$2,$2,16
	ori	$2,$2,0x2155
#	dli	$25,0xbabebec0dea0ffab
	lui	$25,0xbabe
	ori	$25,$25,0xbec0
	dsll	$25,$25,16
	ori	$25,$25,0xdea0
	dsll	$25,$25,16
	ori	$25,$25,0xffab
	/* The called function expects to see its own address in $25. */
	j	$25
	/* Some Mips hardware running Irix-4.0.5 needs this nop. */
	nop
	.end	tramp