rts/gmp/mpn/hppa/hppa1_1/umul.s

   1 ; Copyright (C) 1999 Free Software Foundation, Inc.
   2
   3 ; This file is part of the GNU MP Library.
   4
   5 ; The GNU MP Library is free software; you can redistribute it and/or modify
   6 ; it under the terms of the GNU Lesser General Public License as published by
   7 ; the Free Software Foundation; either version 2.1 of the License, or (at your
   8 ; option) any later version.
   9
  10 ; The GNU MP Library is distributed in the hope that it will be useful, but
  11 ; WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
  12 ; or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public
  13 ; License for more details.
  14
  15 ; You should have received a copy of the GNU Lesser General Public License
  16 ; along with the GNU MP Library; see the file COPYING.LIB.  If not, write to
  17 ; the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
  18 ; MA 02111-1307, USA.
  19
  20         .code
  21         .export         __umul_ppmm
  22         .align 4
  23 __umul_ppmm
  24         .proc
  25         .callinfo frame=64,no_calls
  26         .entry
  27
  28         ldo 64(%r30),%r30
  29         stw %r25,-16(0,%r30)
  30         fldws -16(0,%r30),%fr22R
  31         stw %r24,-16(0,%r30)
  32         fldws -16(0,%r30),%fr22L
  33         xmpyu %fr22R,%fr22L,%fr22
  34         fstds %fr22,-16(0,%r30)
  35         ldw -16(0,%r30),%r28
  36         ldw -12(0,%r30),%r29
  37         stw %r29,0(0,%r26)
  38         bv 0(%r2)
  39         ldo -64(%r30),%r30
  40
  41         .exit
  42         .procend