OpenCores
URL https://opencores.org/ocsvn/openrisc/openrisc/trunk

Subversion Repositories openrisc

[/] [openrisc/] [trunk/] [gnu-old/] [binutils-2.18.50/] [gas/] [testsuite/] [gas/] [i386/] [equ.s] - Rev 816

Compare with Previous | Blame | View Log

 .text
_start:
 
 .att_syntax prefix
 .equ r, -1
 .equ s, -1
	movl	$r, %eax
	movl	(r), %eax
 .equ r, xtrn
	movl	$r, %eax
	movl	r, %eax
 .equ r, %ecx
 .equ s, %fs
	testl	r, r
	movl	s:(r,r,4), r
 .equ x, %st(1)
	fadd	x
 
 .if r <> %ecx
 .err
 .endif
 .if r == s
 .err
 .endif
 
 .intel_syntax noprefix
 .equ r, -2
 .equ s, -2
	mov	eax, r
	mov	eax, [r]
 .equ r, xtrn
	mov	eax, offset r
	mov	eax, [r]
 .equ r, edx
 .equ s, gs
	test	r, r
	mov	r, s:[r+r*8]
	mov	r, s:[8*r+r]
	fadd	x
 .equ x, st(7)
	fadd	x
 
 .if s <> gs
 .err
 .endif
 .if s == x
 .err
 .endif
 
 .equ r, -3
 .equ s, -3
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.