1*5d9d9091SRichard Lowe/* 2*5d9d9091SRichard Lowe * CDDL HEADER START 3*5d9d9091SRichard Lowe * 4*5d9d9091SRichard Lowe * The contents of this file are subject to the terms of the 5*5d9d9091SRichard Lowe * Common Development and Distribution License (the "License"). 6*5d9d9091SRichard Lowe * You may not use this file except in compliance with the License. 7*5d9d9091SRichard Lowe * 8*5d9d9091SRichard Lowe * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE 9*5d9d9091SRichard Lowe * or http://www.opensolaris.org/os/licensing. 10*5d9d9091SRichard Lowe * See the License for the specific language governing permissions 11*5d9d9091SRichard Lowe * and limitations under the License. 12*5d9d9091SRichard Lowe * 13*5d9d9091SRichard Lowe * When distributing Covered Code, include this CDDL HEADER in each 14*5d9d9091SRichard Lowe * file and include the License file at usr/src/OPENSOLARIS.LICENSE. 15*5d9d9091SRichard Lowe * If applicable, add the following below this CDDL HEADER, with the 16*5d9d9091SRichard Lowe * fields enclosed by brackets "[]" replaced with your own identifying 17*5d9d9091SRichard Lowe * information: Portions Copyright [yyyy] [name of copyright owner] 18*5d9d9091SRichard Lowe * 19*5d9d9091SRichard Lowe * CDDL HEADER END 20*5d9d9091SRichard Lowe */ 21*5d9d9091SRichard Lowe 22*5d9d9091SRichard Lowe/* 23*5d9d9091SRichard Lowe * Copyright 2008 Sun Microsystems, Inc. All rights reserved. 24*5d9d9091SRichard Lowe * Use is subject to license terms. 25*5d9d9091SRichard Lowe */ 26*5d9d9091SRichard Lowe 27*5d9d9091SRichard Lowe .file "lshiftl.s" 28*5d9d9091SRichard Lowe 29*5d9d9091SRichard Lowe/ Shift a double long value. 30*5d9d9091SRichard Lowe 31*5d9d9091SRichard Lowe#include "SYS.h" 32*5d9d9091SRichard Lowe 33*5d9d9091SRichard Lowe .set arg,8 34*5d9d9091SRichard Lowe .set cnt,16 35*5d9d9091SRichard Lowe .set ans,0 36*5d9d9091SRichard Lowe 37*5d9d9091SRichard Lowe ENTRY(lshiftl) 38*5d9d9091SRichard Lowe popl %eax 39*5d9d9091SRichard Lowe xchgl %eax,0(%esp) 40*5d9d9091SRichard Lowe 41*5d9d9091SRichard Lowe pushl %eax 42*5d9d9091SRichard Lowe movl arg(%esp),%eax 43*5d9d9091SRichard Lowe movl arg+4(%esp),%edx 44*5d9d9091SRichard Lowe movl cnt(%esp),%ecx 45*5d9d9091SRichard Lowe orl %ecx,%ecx 46*5d9d9091SRichard Lowe jz .lshiftld 47*5d9d9091SRichard Lowe jns .lshiftlp 48*5d9d9091SRichard Lowe 49*5d9d9091SRichard Lowe/ We are doing a negative (right) shift 50*5d9d9091SRichard Lowe 51*5d9d9091SRichard Lowe negl %ecx 52*5d9d9091SRichard Lowe 53*5d9d9091SRichard Lowe.lshiftln: 54*5d9d9091SRichard Lowe sarl $1,%edx 55*5d9d9091SRichard Lowe rcrl $1,%eax 56*5d9d9091SRichard Lowe loop .lshiftln 57*5d9d9091SRichard Lowe jmp .lshiftld 58*5d9d9091SRichard Lowe 59*5d9d9091SRichard Lowe/ We are doing a positive (left) shift 60*5d9d9091SRichard Lowe 61*5d9d9091SRichard Lowe.lshiftlp: 62*5d9d9091SRichard Lowe shll $1,%eax 63*5d9d9091SRichard Lowe rcll $1,%edx 64*5d9d9091SRichard Lowe loop .lshiftlp 65*5d9d9091SRichard Lowe 66*5d9d9091SRichard Lowe/ We are done. 67*5d9d9091SRichard Lowe 68*5d9d9091SRichard Lowe.lshiftld: 69*5d9d9091SRichard Lowe movl %eax,%ecx 70*5d9d9091SRichard Lowe popl %eax 71*5d9d9091SRichard Lowe movl %ecx,ans(%eax) 72*5d9d9091SRichard Lowe movl %edx,ans+4(%eax) 73*5d9d9091SRichard Lowe 74*5d9d9091SRichard Lowe ret 75*5d9d9091SRichard Lowe SET_SIZE(lshiftl) 76