+static const arch_register_class_t *firm_get_reg_class_for_mode(const void *self, const ir_mode *irm)
+{
+ return mode_is_datab(irm) ? ®_classes[CLS_DATAB] : NULL;
+}
+
+static ir_type *firm_abi_get_between_type(void *self) {
+ static ir_type *between_type = NULL;
+
+ if(!between_type) {
+ between_type = new_type_class(new_id_from_str("firm_be_between"));
+ set_type_size_bytes(between_type, 0);
+ }
+
+ return between_type;
+}
+
+static const be_abi_callbacks_t firm_abi_callbacks = {
+ NULL,
+ NULL,
+ firm_abi_get_between_type,
+ NULL,
+ NULL,
+ NULL,
+};
+
+static void firm_get_call_abi(const void *self, ir_type *method_type, be_abi_call_t *abi)
+{
+ const arch_register_class_t *cls = ®_classes[CLS_DATAB];
+ int i, n;
+ be_abi_call_flags_t flags = { { 0, 0, 0, 0, 0 } };
+
+
+ for(i = 0, n = get_method_n_params(method_type); i < n; ++i) {
+ ir_type *t = get_method_param_type(method_type, i);
+ if(is_Primitive_type(t))
+ be_abi_call_param_reg(abi, i, &cls->regs[i]);
+ else
+ be_abi_call_param_stack(abi, i, 1, 0, 0);
+ }
+
+ for(i = 0, n = get_method_n_ress(method_type); i < n; ++i) {
+ ir_type *t = get_method_res_type(method_type, i);
+ if(is_Primitive_type(t))
+ be_abi_call_res_reg(abi, i, &cls->regs[i]);
+ }
+
+ flags.val = 0;
+ be_abi_call_set_flags(abi, flags, &firm_abi_callbacks);
+}
+
+