Fix a (one shot small) leak in language.c
[external/binutils.git] / cpu / mep-h1.cpu
1 ; Copyright 2011 Free Software Foundation, Inc.
2 ;
3 ; Contributed by Red Hat Inc;
4 ;
5 ; This file is part of the GNU Binutils.
6 ;
7 ; This program is free software; you can redistribute it and/or modify
8 ; it under the terms of the GNU General Public License as published by
9 ; the Free Software Foundation; either version 3 of the License, or
10 ; (at your option) any later version.
11 ;
12 ; This program is distributed in the hope that it will be useful,
13 ; but WITHOUT ANY WARRANTY; without even the implied warranty of
14 ; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15 ; GNU General Public License for more details.
16 ;
17 ; You should have received a copy of the GNU General Public License
18 ; along with this program; if not, write to the Free Software
19 ; Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston,
20 ; MA 02110-1301, USA.
21
22 ; Insns introduced for the MeP-h1 core
23 ;
24 (dnci stcb_r "store in control bus space" (VOLATILE (MACH h1))
25      "stcb $rn,($rma)"
26      (+ MAJ_7 rn rma (f-sub4 12))
27      (c-call VOID "do_stcb" rn (and rma #xffff))
28      ((mep (unit u-use-gpr (in usereg rn))
29            (unit u-use-gpr (in usereg rma))
30            (unit u-exec)
31            (unit u-stcb))))
32
33 (dnci ldcb_r "load from control bus space" (VOLATILE (MACH h1) (LATENCY 3))
34      "ldcb $rn,($rma)"
35      (+ MAJ_7 rn rma (f-sub4 13))
36      (set rn (c-call SI "do_ldcb" (and rma #xffff)))
37       ((mep (unit u-use-gpr (in usereg rma))
38             (unit u-ldcb)
39             (unit u-exec)
40             (unit u-ldcb-gpr (out loadreg rn)))))
41
42 (dnci pref "cache prefetch" ((MACH h1) VOLATILE)
43      "pref $cimm4,($rma)"
44      (+ MAJ_7 cimm4 rma (f-sub4 5))
45      (sequence ()
46                (c-call VOID "check_option_dcache" pc)
47                (c-call VOID "do_cache_prefetch" cimm4 rma pc))
48      ((mep (unit u-use-gpr (in usereg rma))
49            (unit u-exec))))