2
* Copyright (c) 2000-2001 Stefan Kral
4
* This program is free software; you can redistribute it and/or modify
5
* it under the terms of the GNU General Public License as published by
6
* the Free Software Foundation; either version 2 of the License, or
7
* (at your option) any later version.
9
* This program is distributed in the hope that it will be useful,
10
* but WITHOUT ANY WARRANTY; without even the implied warranty of
11
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12
* GNU General Public License for more details.
14
* You should have received a copy of the GNU General Public License
15
* along with this program; if not, write to the Free Software
16
* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
24
val fail_unparser : string -> 'a -> 'b
26
val fixedstride_complex_unparser :
29
int -> VFpBasics.vfpaccess option -> k7vaddr
31
val unitstride_complex_unparser :
33
int -> VFpBasics.vfpaccess option -> k7vaddr
35
val strided_real_unparser :
37
int -> VFpBasics.vfpaccess option -> k7vaddr
39
val strided_realofcomplex_unparser_withoffset :
40
vintreg * vintreg * int ->
41
int -> VFpBasics.vfpaccess option -> k7vaddr
43
val strided_imagofcomplex_unparser_withoffset :
44
vintreg * vintreg * int ->
45
int -> VFpBasics.vfpaccess option -> k7vaddr
47
val strided_real_split2_unparser :
48
vintreg * vintreg * int * vintreg ->
49
int -> VFpBasics.vfpaccess option -> k7vaddr
51
val strided_dualreal_unparser :
54
int -> VFpBasics.vfpaccess option -> k7vaddr
56
val strided_complex_unparser :
58
int -> VFpBasics.vfpaccess option -> k7vaddr
60
val strided_complex_split2_unparser :
61
vintreg * vintreg * int * vintreg ->
62
int -> VFpBasics.vfpaccess option -> k7vaddr
64
val strided_hc2hc_unparser_1 :
65
vintreg * vintreg * vintreg * 'a ->
66
int -> VFpBasics.vfpaccess option -> k7vaddr
68
val strided_hc2hc_unparser_2 :
69
vintreg * vintreg * vintreg * int ->
70
int -> VFpBasics.vfpaccess option -> k7vaddr
72
val make_asm_unparser :
73
'a * ('b -> 'c -> k7vaddr) ->
74
'a * ('b -> 'c -> k7vaddr) ->
75
'a * ('b -> 'c -> k7vaddr) ->
76
'c -> 'b -> Variable.array -> 'a * k7vaddr
78
val make_asm_unparser_notwiddle :
79
'a list * ('b -> 'c -> k7vaddr) ->
80
'a list * ('b -> 'c -> k7vaddr) ->
81
'c -> 'b -> Variable.array -> 'a list * k7vaddr
83
val vsimdinstrsToK7vinstrs :
84
(VFpBasics.vfpaccess option ->
85
int -> Variable.array -> k7vinstr list * k7vaddr) ->
86
k7operandsize * vsimdinstr list ->