arch/sparc/lib/muldi3.S

   1 /* Copyright (C) 1989, 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
   2
   3 This file is part of GNU CC.
   4
   5 GNU CC is free software; you can redistribute it and/or modify
   6 it under the terms of the GNU General Public License as published by
   7 the Free Software Foundation; either version 2, or (at your option)
   8 any later version.
   9
  10 GNU CC is distributed in the hope that it will be useful,
  11 but WITHOUT ANY WARRANTY; without even the implied warranty of
  12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13 GNU General Public License for more details.
  14
  15 You should have received a copy of the GNU General Public License
  16 along with GNU CC; see the file COPYING.  If not, write to
  17 the Free Software Foundation, 59 Temple Place - Suite 330,
  18 Boston, MA 02111-1307, USA.  */
  19
  20         .text
  21         .align 4
  22         .globl __muldi3
  23 __muldi3:
  24         save  %sp, -104, %sp
  25         wr  %g0, %i1, %y
  26         sra  %i3, 0x1f, %g2
  27         and  %i1, %g2, %g2
  28         andcc  %g0, 0, %g1
  29         mulscc  %g1, %i3, %g1
  30         mulscc  %g1, %i3, %g1
  31         mulscc  %g1, %i3, %g1
  32         mulscc  %g1, %i3, %g1
  33         mulscc  %g1, %i3, %g1
  34         mulscc  %g1, %i3, %g1
  35         mulscc  %g1, %i3, %g1
  36         mulscc  %g1, %i3, %g1
  37         mulscc  %g1, %i3, %g1
  38         mulscc  %g1, %i3, %g1
  39         mulscc  %g1, %i3, %g1
  40         mulscc  %g1, %i3, %g1
  41         mulscc  %g1, %i3, %g1
  42         mulscc  %g1, %i3, %g1
  43         mulscc  %g1, %i3, %g1
  44         mulscc  %g1, %i3, %g1
  45         mulscc  %g1, %i3, %g1
  46         mulscc  %g1, %i3, %g1
  47         mulscc  %g1, %i3, %g1
  48         mulscc  %g1, %i3, %g1
  49         mulscc  %g1, %i3, %g1
  50         mulscc  %g1, %i3, %g1
  51         mulscc  %g1, %i3, %g1
  52         mulscc  %g1, %i3, %g1
  53         mulscc  %g1, %i3, %g1
  54         mulscc  %g1, %i3, %g1
  55         mulscc  %g1, %i3, %g1
  56         mulscc  %g1, %i3, %g1
  57         mulscc  %g1, %i3, %g1
  58         mulscc  %g1, %i3, %g1
  59         mulscc  %g1, %i3, %g1
  60         mulscc  %g1, %i3, %g1
  61         mulscc  %g1, 0, %g1
  62         add  %g1, %g2, %l2
  63         rd  %y, %o1
  64         mov  %o1, %l3
  65         mov  %i1, %o0
  66         mov  %i2, %o1
  67         umul %o0, %o1, %o0
  68         mov  %o0, %l0
  69         mov  %i0, %o0
  70         mov  %i3, %o1
  71         umul %o0, %o1, %o0
  72         add  %l0, %o0, %l0
  73         mov  %l2, %i0
  74         add  %l2, %l0, %i0
  75         ret
  76         restore  %g0, %l3, %o1