;  Copyright 2000, 2002 Free Software Foundation, Inc.
; 
;  This file is part of the GNU MP Library.
; 
;  The GNU MP Library is free software; you can redistribute it and/or
;  modify it under the terms of the GNU Lesser General Public License as
;  published by the Free Software Foundation; either version 2.1 of the
;  License, or (at your option) any later version.
; 
;  The GNU MP Library is distributed in the hope that it will be useful,
;  but WITHOUT ANY WARRANTY; without even the implied warranty of
;  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
;  Lesser General Public License for more details.
; 
;  You should have received a copy of the GNU Lesser General Public
;  License along with the GNU MP Library; see the file COPYING.LIB.  If
;  not, write to the Free Software Foundation, Inc., 59 Temple Place -
;  Suite 330, Boston, MA 02111-1307, USA.
;
; Translation of AT&T syntax code by Brian Gladman 

%define       REG_AAAAAAAAAAAAAAAA    mm7 
%define       REG_3333333333333333    mm6 
%define       REG_0F0F0F0F0F0F0F0F    mm5 
%define       REG_0000000000000000    mm4 

%ifndef	PIC
	section	.data
	align   8

Lrodata_AAAAAAAAAAAAAAAA: 
    dd      0AAAAAAAAh
    dd      0AAAAAAAAh

Lrodata_3333333333333333: 
    dd      033333333h
    dd      033333333h

Lrodata_0F0F0F0F0F0F0F0F: 
    dd      00F0F0F0Fh
    dd      00F0F0F0Fh
%endif

%macro	ph_fun	3

	align   32
	 
%ifdef	DLL
	export	%1%2
%endif

%1%2:
    mov     ecx,[PARAM_SIZE]
%ifdef	PIC
    mov     eax,0xAAAAAAAA
    mov     edx,0x33333333
    movd    mm7,eax
    movd    mm6,edx
    mov     eax,0x0F0F0F0F
    punpckldq mm7,mm7
    punpckldq mm6,mm6
    movd    mm5,eax
    movd    mm4,edx
    punpckldq mm5,mm5
%else
    movq    mm7,[Lrodata_AAAAAAAAAAAAAAAA]
    movq    mm6,[Lrodata_3333333333333333]
    movq    mm5,[Lrodata_0F0F0F0F0F0F0F0F]
%endif
	pxor    mm4,mm4
    mov     eax,[PARAM_SRC]
%if	%3 == 1
	mov     edx,[PARAM_SRC2]
%endif
    pxor    mm2,mm2
    shr     ecx,1
    jnc     %%Ltop
    movd    mm1,[eax+ecx*8]
%if	%3 == 1
    movd    mm0,[edx+ecx*8]
    pxor    mm1,mm0
%endif
    or      ecx,ecx
    jmp     %%Lloaded

;  eax src 
;  ebx 
;  ecx counter,qwords,decrementing 
;  edx [hamdist] src2 
; 
;  mm0 (scratch) 
;  mm1 (scratch) 
;  mm2 total (low dword) 
;  mm3 
;  mm4 \ 
;  mm5 | special constants 
;  mm6 | 
;  mm7 / 

	align   16
%%Ltop: 
	movq    mm1,[eax+ecx*8-8]
%if	%3 == 1
	pxor    mm1,[edx+ecx*8-8]
%endif
	dec     ecx
%%Lloaded: 
	movq    mm0,mm1
	pand    mm1,REG_AAAAAAAAAAAAAAAA
	psrlq   mm1,1
	psubd   mm0,mm1  ;  bit pairs 
	movq    mm1,mm0
	psrlq   mm0,2
	pand    mm0,REG_3333333333333333
	pand    mm1,REG_3333333333333333
	paddd   mm0,mm1  ;  nibbles 
    movq    mm1,mm0
    psrlq   mm0,4
    pand    mm0,REG_0F0F0F0F0F0F0F0F
    pand    mm1,REG_0F0F0F0F0F0F0F0F
    paddd   mm0,mm1  ;  bytes 
    psadbw	mm0,mm4
    paddd   mm2,mm0  ;  add to total 
    jnz     %%Ltop
    movd    eax,mm2
    emms
    ret
%endmacro

	section .text
	
%define	PARAM_SIZE  esp+frame+8 
%define PARAM_SRC   esp+frame+4 
%define	frame		0

	global ___gmpn_popcount
	
	ph_fun	___g,mpn_popcount,0

	end