Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Newer
Older
100644 77 lines (76 sloc) 1.265 kb
fc63f6e jtobey initial import of C::DynaLib 0.51 from CPAN
jtobey authored
1 .verstamp 3 11
2 .set noreorder
3 .set volatile
4 .set noat
5 .file 1 "alpha-cc.c"
6 gcc2_compiled.:
7 __gnu_compiled_c:
8 .text
9 .align 3
10 .globl dynalib_alpha_excuse_for_asm
11 .ent dynalib_alpha_excuse_for_asm
12 dynalib_alpha_excuse_for_asm:
13 ldgp $29,0($27)
14 dynalib_alpha_excuse_for_asm..ng:
15 lda $30,-64($30)
16 .frame $15,64,$26,0
17 stq $26,0($30)
18 stq $15,8($30)
19 .mask 0x4008000,-64
20 bis $30,$30,$15
21 .prologue 1
22 stq $17,24($15)
23 stq $18,32($15)
24 stq $19,40($15)
25 stq $20,48($15)
26 stq $21,56($15)
27 ldq $3,72($15)
28 stq $16,16($15)
29 ldq $5,80($15)
30 ble $3,$34
31 s8addq $3,0,$1
32 lda $2,-4096($30)
33 subq $30,$1,$4
34 cmpult $4,$2,$1
35 beq $1,$36
36 $35:
37 stq $31,0($2)
38 lda $2,-8192($2)
39 cmpule $2,$4,$1
40 beq $1,$35
41 stq $31,0($4)
42 $36:
43 bis $4,$4,$30
44 bis $30,$30,$2
45 ble $3,$34
46 .align 5
47 $39:
48 ldt $f1,0($5)
49 subq $3,1,$3
50 addq $5,8,$5
51 cmple $3,0,$1
52 stt $f1,0($2)
53 addq $2,8,$2
54 beq $1,$39
55 $34:
56 ldq $16,16($15)
57 ldq $17,24($15)
58 ldq $18,32($15)
59 ldq $19,40($15)
60 ldq $20,48($15)
61 ldq $21,56($15)
62 ldt $f16, 16($15)
63 ldq $27,64($15)
64 ldt $f17, 24($15)
65 ldt $f18, 32($15)
66 ldt $f19, 40($15)
67 ldt $f20, 48($15)
68 ldt $f21, 56($15)
69 jsr $26,($27),0
70 ldgp $29,0($26)
71 bis $15,$15,$30
72 ldq $26,0($30)
73 ldq $15,8($30)
74 addq $30,64,$30
75 ret $31,($26),1
76 .end dynalib_alpha_excuse_for_asm
Something went wrong with that request. Please try again.