~ubuntu-branches/ubuntu/intrepid/ecl/intrepid

« back to all changes in this revision

Viewing changes to src/gmp/mpn/vax/lshift.s

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

src/gmp/mpn/vax/lshift.s

 

1

# VAX mpn_lshift -- left shift.

 

2

 

 

3

# Copyright 1999, 2000, 2001 Free Software Foundation, Inc.

 

4

 

 

5

# This file is part of the GNU MP Library.

 

6

 

 

7

# The GNU MP Library is free software; you can redistribute it and/or modify

 

8

# it under the terms of the GNU Lesser General Public License as published by

 

9

# the Free Software Foundation; either version 2.1 of the License, or (at your

 

10

# option) any later version.

 

11

 

 

12

# The GNU MP Library is distributed in the hope that it will be useful, but

 

13

# WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY

 

14

# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General Public

 

15

# License for more details.

 

16

 

 

17

# You should have received a copy of the GNU Lesser General Public License

 

18

# along with the GNU MP Library; see the file COPYING.LIB.  If not, write to

 

19

# the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,

 

20

# MA 02111-1307, USA.

 

21

 

 

22

 

 

23

# INPUT PARAMETERS

 

24

# rptr          (sp + 4)

 

25

# sptr          (sp + 8)

 

26

# size          (sp + 12)

 

27

# cnt           (sp + 16)

 

28

# r0=retval r1=size r2,r3=itmp r4,r5=otmp       call-used registers

 

29

# r6=sptr r7=rptr r8=cnt r9 r10 r11             call-saved registers

 

30

 

 

31

.text

 

32

        .align 1

 

33

.globl ___gmpn_lshift

 

34

___gmpn_lshift:

 

35

        .word   0x1c0

 

36

        movl    4(ap),r7

 

37

        movl    8(ap),r6

 

38

        movl    12(ap),r1

 

39

        movl    16(ap),r8

 

40

 

 

41

        moval   (r6)[r1],r6

 

42

        moval   (r7)[r1],r7

 

43

        clrl    r3

 

44

        movl    -(r6),r2

 

45

        ashq    r8,r2,r4

 

46

        movl    r5,r0

 

47

        movl    r2,r3

 

48

        decl    r1

 

49

        jeql    Lend

 

50

 

 

51

Loop:   movl    -(r6),r2

 

52

        ashq    r8,r2,r4

 

53

        movl    r5,-(r7)

 

54

        movl    r2,r3

 

55

        sobgtr  r1,Loop

 

56

 

 

57

Lend:   movl    r4,-4(r7)

 

58

        ret

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1