forloop_21.s

This contains the following topics and more ADA versus C and Cplus plus Ada_training ADA 2005 for

	.file	"forloop_21.adb"
	.text
	.def	_forloop_21__L_1__B1b___clean.0;	.scl	3;	.type	32;	.endef
_forloop_21__L_1__B1b___clean.0:
	pushl	%ebp
	movl	%esp, %ebp
	subl	$8, %esp
	movl	%ecx, -4(%ebp)
	movl	-4(%ebp), %ecx
	subl	$12, %esp
	pushl	-12(%ecx)
	call	_system__secondary_stack__ss_release
	addl	$16, %esp
	leave
	ret
.globl __ada_forloop_21
	.def	__ada_forloop_21;	.scl	2;	.type	32;	.endef
__ada_forloop_21:
	pushl	%ebp
	movl	%esp, %ebp
	pushl	%edi
	pushl	%esi
	pushl	%ebx
	subl	$540, %esp
	movl	$10, -28(%ebp)
	movl	$50, -32(%ebp)
L2:
	cmpl	$0, -32(%ebp)
	jg	L5
	jmp	L1
L5:
	call	_system__secondary_stack__ss_mark
	movl	%eax, -36(%ebp)
	call	_system__soft_links__get_jmpbuf_address_soft
	movl	%eax, -44(%ebp)
	leal	-88(%ebp), %eax
	leal	-24(%ebp), %edx
	movl	%edx, (%eax)
	movl	$L9, %edx
	movl	%edx, 4(%eax)
	movl	%esp, 8(%eax)
	movl	$0, -540(%ebp)
	jmp	L10
L9:
	leal	24(%ebp), %ebp
	movl	$1, -540(%ebp)
L10:
	cmpl	$0, -540(%ebp)
	je	L8
	subl	$12, %esp
	pushl	-44(%ebp)
	call	_system__soft_links__set_jmpbuf_address_soft
	addl	$16, %esp
	call	_system__soft_links__get_gnat_exception
	movl	%eax, -92(%ebp)
	subl	$8, %esp
	subl	$8, %esp
	movl	_system__soft_links__get_current_excep, %eax
	call	*%eax
	addl	$8, %esp
	pushl	%eax
	leal	-536(%ebp), %eax
	pushl	%eax
	call	_ada__exceptions__save_occurrence
	addl	$16, %esp
	leal	-24(%ebp), %ecx
	call	_forloop_21__L_1__B1b___clean.0
	subl	$12, %esp
	leal	-536(%ebp), %eax
	pushl	%eax
	call	_ada__exceptions__reraise_occurrence_no_defer
L8:
	subl	$12, %esp
	leal	-88(%ebp), %eax
	pushl	%eax
	call	_system__soft_links__set_jmpbuf_address_soft
	addl	$16, %esp
	subl	$8, %esp
	subl	$4, %esp
	pushl	-32(%ebp)
	call	_system__img_int__image_integer
	addl	$8, %esp
	pushl	%edx
	pushl	%eax
	call	_ada__text_io__put__4
	addl	$16, %esp
	subl	$12, %esp
	pushl	-44(%ebp)
	call	_system__soft_links__set_jmpbuf_address_soft
	addl	$16, %esp
	leal	-24(%ebp), %ecx
	call	_forloop_21__L_1__B1b___clean.0
	leal	-32(%ebp), %eax
	decl	(%eax)
	jmp	L2
L1:
	leal	-12(%ebp), %esp
	popl	%ebx
	popl	%esi
	popl	%edi
	popl	%ebp
	ret
	.def	_system__img_int__image_integer;	.scl	3;	.type	32;	.endef
	.def	_ada__text_io__put__4;	.scl	3;	.type	32;	.endef
	.def	_ada__exceptions__reraise_occurrence_no_defer;	.scl	3;	.type	32;	.endef
	.def	_ada__exceptions__save_occurrence;	.scl	3;	.type	32;	.endef
	.def	_system__soft_links__get_gnat_exception;	.scl	3;	.type	32;	.endef
	.def	_system__soft_links__set_jmpbuf_address_soft;	.scl	3;	.type	32;	.endef
	.def	_system__soft_links__get_jmpbuf_address_soft;	.scl	3;	.type	32;	.endef
	.def	_system__secondary_stack__ss_release;	.scl	3;	.type	32;	.endef
	.def	_system__secondary_stack__ss_mark;	.scl	3;	.type	32;	.endef