path: root/pprofile.a

	string	asis

	macro
	lea	&r,&a
	lwz	&r,&a{TC}(RTOC)
	endm

; MACOSX		set	1
; POWER601		set	1
ALLOCATION_PROFILE	set	1
USE_TEMPORARY_MEMORY	set	1
CHECK_STACK_OVERFLOWS	set	0
MODULE_NAMES	set	1

 if POWER601
	macro
	time_hi	&r
	dialect	Power
	mfrtcu	&r
	dialect	PowerPC
	endm

	macro
	time_lo	&r
	dialect	Power
	mfrtcl	&r
	dialect	PowerPC
	endm
 else
	macro
	time_hi	&r
	mftbu	&r
	endm

	macro
	time_lo	&r
	mftb	&r
	endm
 endif

d0:	set	r24
d1:	set	r25
d2:	set	r26
d3:	set	r27
d4:	set	r28
d5:	set	r29
d6:	set	r30
d7:	set	r31

a0:	set	r23
a1:	set	r22
a2:	set	r21
a3:	set	r20
a4:	set	r19
a5:	set	r18
a6:	set	r17

o0:	set	r3
o1:	set	r4
o2:	set	r5
o3:	set	r6
o4:	set	r7
o5:	set	r8

g2:	set	r9
g3:	set	r10

g0:	set	r11
g1:	set	r12

int_reg	set	r16
char_reg	set	r15
real_reg	set	r14
bool_reg	set	r13

 if POWER601
lo1e9	set	1000000000 % 65536
hi1e9	set	(1000000000 / 65536)+1
 endif

	export	init_profiler
	export	profile_r
	export 	profile_l
	export 	profile_l2
	export 	profile_n
	export 	profile_n2
	export 	profile_s
	export 	profile_s2
	export 	profile_t
	export	profile_ti
	export	write_profile_information
	export	write_profile_stack

 if USE_TEMPORARY_MEMORY
	import	.TempNewHandle
	import	.TempHLock
	import	.TempHUnlock
	import	.TempDisposeHandle
 else
	import	.NewPtr
 endif
	import	.Gestalt
	import	__STRING__
	import	openF
	import	closeF
	import	writeFC
	import	writeFI
	import	print_error
	import	new_file_creator
	import	stack_size
	import	.er_print_string
	import	.er_print_char
	import	.create_profile_file_name
 if CHECK_STACK_OVERFLOWS
	import	.Debugger
 endif

FunctionProfile: 	record
next:		ds.l	1
time_hi:		ds.l	1
time_lo:		ds.l	1
n_profiler_calls:	ds.l	1
n_strict_calls:	ds.l	1
n_lazy_calls:	ds.l	1
n_curried_calls:	ds.l	1
n_words_allocated:	ds.l	1
name:		ds.l	1
		endr
	
	csect	.profile_t
profile_ti:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	lea	r5,profile_globals
	b	profile_t_

profile_t:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	mflr	r12
	lea	r5,profile_globals
	mtctr	r12
	mtlr	r0
profile_t_:
	lwz	r6,Globals.stack_pointer(r5)

	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	lwzu	r4,-4(r6)
	stw	r6,Globals.stack_pointer(r5)
	stw	r4,Globals.last_tail_call(r5)

 if POWER601	
	sub.	r10,r10,r8
	sub	r9,r9,r7
	bge+	@no_borrow
	addis	r10,r10,hi1e9
	addi	r10,r10,lo1e9
	subi	r9,r9,1
@no_borrow:
 else
	subc	r10,r10,r8
	subfe	r9,r7,r9
 endif
	lwz	r8,FunctionProfile.time_lo(r4)
	lwz	r7,FunctionProfile.time_hi(r4)

 if POWER601
	add	r8,r8,r10
	add	r7,r7,r9

	subis	r9,r8,hi1e9
	cmpwi	0,r9,lo1e9

	lwz	r6,FunctionProfile.n_profiler_calls(r4)

	blt+	@no_carry

	subi	r8,r9,lo1e9
	addi	r7,r7,1

@no_carry:
 else
	addc	r8,r8,r10
	lwz	r6,FunctionProfile.n_profiler_calls(r4)
	adde	r7,r7,r9
 endif
	addi	r6,r6,1
	stw	r7,FunctionProfile.time_hi(r4)
	stw	r8,FunctionProfile.time_lo(r4)
	stw	r6,FunctionProfile.n_profiler_calls(r4)

 if ALLOCATION_PROFILE
	lwz	r11,Globals.n_words_free(r5)
	stw	d7,Globals.n_words_free(r5)
	lwz	r12,FunctionProfile.n_words_allocated(r4)
	sub	r11,r11,d7
	add	r12,r12,r11	
	stw	r12,FunctionProfile.n_words_allocated(r4)
 endif

@store_clock:
	time_hi	r9
	stw	r9,Globals.time_hi(r5)
	time_lo	r10
	time_hi	r4
	stw	r10,Globals.time_lo(r5)
	cmpw	0,r4,r9
	beqctr+

	b	@store_clock

	csect	.profile_r
profile_r:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	lea	r5,profile_globals

	lwz	r6,Globals.stack_pointer(r5)

	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	lwzu	r4,-4(r6)
	li	r3,0
	stw	r6,Globals.stack_pointer(r5)
	stw	r3,Globals.last_tail_call(r5)
	
 if POWER601	
	sub.	r10,r10,r8
	sub	r9,r9,r7
	bge+	@no_borrow
	addis	r10,r10,hi1e9
	addi	r10,r10,lo1e9
	subi	r9,r9,1
@no_borrow:
 else
	subc	r10,r10,r8
	subfe	r9,r7,r9
 endif

	lwz	r8,FunctionProfile.time_lo(r4)
	lwz	r7,FunctionProfile.time_hi(r4)

 if POWER601	
	add	r8,r8,r10
	add	r7,r7,r9

	subis	r9,r8,hi1e9
	cmpwi	0,r9,lo1e9

	lwz	r6,FunctionProfile.n_profiler_calls(r4)

	blt+	@no_carry

	subi	r8,r9,lo1e9
	addi	r7,r7,1

@no_carry:
 else
	addc	r8,r8,r10
	lwz	r6,FunctionProfile.n_profiler_calls(r4)
	adde	r7,r7,r9
 endif

	addi	r6,r6,1
	stw	r7,FunctionProfile.time_hi(r4)
	stw	r8,FunctionProfile.time_lo(r4)
	stw	r6,FunctionProfile.n_profiler_calls(r4)

 if ALLOCATION_PROFILE
	lwz	r11,Globals.n_words_free(r5)
	stw	d7,Globals.n_words_free(r5)
	lwz	r12,FunctionProfile.n_words_allocated(r4)
	sub	r11,r11,d7
	add	r12,r12,r11	
	stw	r12,FunctionProfile.n_words_allocated(r4)
 endif

@store_clock:
	time_hi	r9
	stw	r9,Globals.time_hi(r5)
	time_lo	r10
	time_hi	r4
	stw	r10,Globals.time_lo(r5)
	cmpw	0,r4,r9
	beqlr+

	b	@store_clock

	csect	.profile_l
profile_l:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	mflr	r12
	lea	r5,profile_globals
	lwz	r4,0(r3)
	mtctr	r12
		
	cmpwi	0,r4,0
	beql	allocate_function_profile_record

	lwz	r3,Globals.last_tail_call(r5)
	lwz	r6,Globals.stack_pointer(r5)
	cmpwi	0,r3,0
	
	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	bne	@use_tail_calling_function

	lwz	r3,-4(r6)
@c_use_tail_calling_function:

	stw	r4,0(r6)
	addi	r6,r6,4
 if CHECK_STACK_OVERFLOWS
	lwz	r12,Globals.end_profile_stack(r5)
 endif
	stw	r6,Globals.stack_pointer(r5)
 if CHECK_STACK_OVERFLOWS
	cmpw	r6,r12
	bge	profile_stack_overflow
 endif
	lwz	r6,FunctionProfile.n_curried_calls(r4)
	mtlr	r0
	addi	r6,r6,1
	stw	r6,FunctionProfile.n_curried_calls(r4)
	b	profile_n_

@use_tail_calling_function:
	li	r12,0
	stw	r12,Globals.last_tail_call(r5)
	b	@c_use_tail_calling_function

	csect	.profile_l2
profile_l2:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	mflr	r12
	lea	r5,profile_globals
	lwz	r4,0(r3)
	mtctr	r12
		
	cmpwi	0,r4,0
	beql	allocate_function_profile_record

	lwz	r3,Globals.last_tail_call(r5)
	lwz	r6,Globals.stack_pointer(r5)
	cmpwi	0,r3,0
	
	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	bne	@use_tail_calling_function

	lwz	r3,-4(r6)
@c_use_tail_calling_function:

	stw	r4,0(r6)
	stw	r4,4(r6)
	addi	r6,r6,8
 if CHECK_STACK_OVERFLOWS
	lwz	r12,Globals.end_profile_stack(r5)
 endif
	stw	r6,Globals.stack_pointer(r5)
 if CHECK_STACK_OVERFLOWS 
	cmpw	r6,r12
	bge	profile_stack_overflow
 endif

	lwz	r6,FunctionProfile.n_curried_calls(r4)
	mtlr	r0
	addi	r6,r6,1
	stw	r6,FunctionProfile.n_curried_calls(r4)	
	b	profile_n_

@use_tail_calling_function:
	li	r12,0
	stw	r12,Globals.last_tail_call(r5)
	b	@c_use_tail_calling_function

	csect	.profile_n
profile_n:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	mflr	r12
	lea	r5,profile_globals
	lwz	r4,0(r3)
	mtctr	r12
		
	cmpwi	0,r4,0
	beql	allocate_function_profile_record

	lwz	r3,Globals.last_tail_call(r5)
	lwz	r6,Globals.stack_pointer(r5)
	cmpwi	0,r3,0
	
	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	bne	@use_tail_calling_function

	lwz	r3,-4(r6)
@c_use_tail_calling_function:

	stw	r4,0(r6)
	addi	r6,r6,4
 if CHECK_STACK_OVERFLOWS
	lwz	r12,Globals.end_profile_stack(r5)
 endif
	stw	r6,Globals.stack_pointer(r5)
 if CHECK_STACK_OVERFLOWS 
	cmpw	r6,r12
	bge	profile_stack_overflow
 endif

	lwz	r6,FunctionProfile.n_lazy_calls(r4)
	mtlr	r0
	addi	r6,r6,1
	stw	r6,FunctionProfile.n_lazy_calls(r4)
	b	profile_n_

@use_tail_calling_function:
	li	r12,0
	stw	r12,Globals.last_tail_call(r5)
	b	@c_use_tail_calling_function

	csect	.profile_n2
profile_n2:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	mflr	r12
	lea	r5,profile_globals
	lwz	r4,0(r3)
	mtctr	r12
		
	cmpwi	0,r4,0
	beql	allocate_function_profile_record

	lwz	r3,Globals.last_tail_call(r5)
	lwz	r6,Globals.stack_pointer(r5)
	cmpwi	0,r3,0
	
	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	bne	@use_tail_calling_function

	lwz	r3,-4(r6)
@c_use_tail_calling_function:

	stw	r4,0(r6)
	stw	r4,4(r6)
	addi	r6,r6,8
 if CHECK_STACK_OVERFLOWS
	lwz	r12,Globals.end_profile_stack(r5)
 endif
	stw	r6,Globals.stack_pointer(r5)
 if CHECK_STACK_OVERFLOWS 
	cmpw	r6,r12
	bge	profile_stack_overflow
 endif

	lwz	r6,FunctionProfile.n_lazy_calls(r4)
	mtlr	r0
	addi	r6,r6,1
	stw	r6,FunctionProfile.n_lazy_calls(r4)	
	b	profile_n_

@use_tail_calling_function:
	li	r12,0
	stw	r12,Globals.last_tail_call(r5)
	b	@c_use_tail_calling_function

	csect	.profile_s2
profile_s2:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	mflr	r12
	lea	r5,profile_globals
	lwz	r4,0(r3)
	mtctr	r12
		
	cmpwi	0,r4,0
	beql	allocate_function_profile_record

	lwz	r3,Globals.last_tail_call(r5)
	lwz	r6,Globals.stack_pointer(r5)
	cmpwi	0,r3,0
	
	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	bne	@use_tail_calling_function

	lwz	r3,-4(r6)
@c_use_tail_calling_function:

	stw	r4,0(r6)
	stw	r4,4(r6)
	addi	r6,r6,8
 if CHECK_STACK_OVERFLOWS
	lwz	r12,Globals.end_profile_stack(r5)
 endif
	stw	r6,Globals.stack_pointer(r5)
 if CHECK_STACK_OVERFLOWS 
	cmpw	r6,r12
	bge	profile_stack_overflow
 endif
	b	profile_s_

@use_tail_calling_function:
	li	r12,0
	stw	r12,Globals.last_tail_call(r5)
	b	@c_use_tail_calling_function

	csect	.profile_s
profile_s:
@read_clock:
	time_hi	r9
	time_lo	r10
	time_hi	r4
	cmpw	0,r4,r9
	bne-	@read_clock

	mflr	r12
	lea	r5,profile_globals
	lwz	r4,0(r3)
	mtctr	r12
		
	cmpwi	0,r4,0
	beql	allocate_function_profile_record

	lwz	r3,Globals.last_tail_call(r5)
	lwz	r6,Globals.stack_pointer(r5)
	cmpwi	0,r3,0
	
	lwz	r7,Globals.time_hi(r5)
	lwz	r8,Globals.time_lo(r5)

	bne	use_tail_calling_function0

	lwz	r3,-4(r6)
c_use_tail_calling_function0:

	stw	r4,0(r6)
	addi	r6,r6,4
 if CHECK_STACK_OVERFLOWS
	lwz	r12,Globals.end_profile_stack(r5)
 endif
	stw	r6,Globals.stack_pointer(r5)
 if CHECK_STACK_OVERFLOWS 
	cmpw	r6,r12
	bge	profile_stack_overflow
 endif

profile_s_:
	lwz	r6,FunctionProfile.n_strict_calls(r4)
	mtlr	r0
	addi	r6,r6,1
	stw	r6,FunctionProfile.n_strict_calls(r4)

profile_n_:
 if POWER601	
	sub.	r10,r10,r8
	sub	r9,r9,r7
	bge+	@no_borrow
	addis	r10,r10,hi1e9
	addi	r10,r10,lo1e9
	subi	r9,r9,1
@no_borrow:
 else
	subc	r10,r10,r8
	subfe	r9,r7,r9
 endif

	lwz	r8,FunctionProfile.time_lo(r3)
	lwz	r7,FunctionProfile.time_hi(r3)
	
 if POWER601	
	add	r8,r8,r10
	add	r7,r7,r9

	subis	r9,r8,hi1e9
	cmpwi	0,r9,lo1e9

	lwz	r6,FunctionProfile.n_profiler_calls(r3)

	blt+	@no_carry

	subi	r8,r9,lo1e9
	addi	r7,r7,1

@no_carry:
 else
	addc	r8,r8,r10
	lwz	r6,FunctionProfile.n_profiler_calls(r3)
	adde	r7,r7,r9
 endif
	addi	r6,r6,1
	stw	r7,FunctionProfile.time_hi(r3)
	stw	r8,FunctionProfile.time_lo(r3)
	stw	r6,FunctionProfile.n_profiler_calls(r3)

 if ALLOCATION_PROFILE
	lwz	r11,Globals.n_words_free(r5)
	stw	d7,Globals.n_words_free(r5)
	lwz	r12,FunctionProfile.n_words_allocated(r3)
	sub	r11,r11,d7
	add	r12,r12,r11	
	stw	r12,FunctionProfile.n_words_allocated(r3)
 endif

@store_clock:
	time_hi	r9
	stw	r9,Globals.time_hi(r5)
	time_lo	r10
	time_hi	r4
	stw	r10,Globals.time_lo(r5)
	cmpw	0,r4,r9
	beqctr+
	
	b	@store_clock

use_tail_calling_function0:
	li	r12,0
	stw	r12,Globals.last_tail_call(r5)
	b	c_use_tail_calling_function0

allocate_function_profile_record:
	lwz	r6,Globals.n_free_records_in_block(r5)
	lwz	r4,Globals.last_allocated_block(r5)
	cmpwi	0,r6,0
	bne+	no_alloc

	stw	r0,-4(sp)
	stw	r3,-8(sp)
	stw	r9,-12(sp)
	stw	r10,-16(sp)
	mfctr	r11
	stw	r11,-20(sp)
	mflr	r12
	stw	r12,-24(sp)
	
 if USE_TEMPORARY_MEMORY
	li	r3,(128*FunctionProfile)+4
 else
	li	r3,128*FunctionProfile
 endif
 if MACOSX
 	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(64+32+28)(sp)
 else
	stwu	sp,-(64+32)(sp)
 endif
 if USE_TEMPORARY_MEMORY
 	bl	allocate_temp_memory_handle
 else
	bl	.NewPtr
	nop
 endif
 if MACOSX
	lwz	sp,0(sp)
 else
	addi	sp,sp,64+32
 endif	
	and.	r4,r3,r3
	
	lwz	r12,-24(sp)
	lwz	r11,-20(sp)
	mtlr	r12
	lwz	r10,-16(sp)
	mtctr	r11
	lwz	r9,-12(sp)
	lwz	r3,-8(sp)
	lwz	r0,-4(sp)

	lea	r5,profile_globals

	beq	profiler_memory_error

 if USE_TEMPORARY_MEMORY
	lwz	r6,Globals.temp_handle_list(r5)
	stw	r4,Globals.temp_handle_list(r5)
	lwz	r4,0(r4)
	stw	r6,0(r4)
	addi	r4,r4,4
 endif
	li	r6,128
	stw	r4,Globals.last_allocated_block(r5)	

no_alloc:	
	subi	r6,r6,1
	stw	r6,Globals.n_free_records_in_block(r5)
	addi	r7,r4,FunctionProfile
	stw	r7,Globals.last_allocated_block(r5)

	lwz	r6,Globals.profile_records(r5)
	li	r8,0
	stw	r8,FunctionProfile.time_hi(r4)
	stw	r8,FunctionProfile.time_lo(r4)
	stw	r8,FunctionProfile.n_profiler_calls(r4)
	stw	r8,FunctionProfile.n_strict_calls(r4)
	stw	r8,FunctionProfile.n_lazy_calls(r4)
	stw	r8,FunctionProfile.n_curried_calls(r4)
	stw	r8,FunctionProfile.n_words_allocated(r4)
	stw	r6,FunctionProfile.next(r4)
	stw	r4,Globals.profile_records(r5)
	stw	r3,FunctionProfile.name(r4)
	
	stw	r4,0(r3)
	blr

	csect	.write_profile_information
write_profile_information:
	lea	o0,profile_file_name

	mflr	r0
	stwu	r0,-4(sp)
 if MACOSX
 	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(64+28)(sp)
 else
	stwu	sp,-64(sp)
 endif
	bl	.create_profile_file_name
	nop
 if MACOSX
 	lwz	sp,0(sp)
	lwz	r0,0(sp)
	addi	sp,sp,4
 else
	lwz	r0,64(sp)
	addi	sp,sp,68
 endif
	mtlr	r0

	lea	d3,new_file_creator
	li	d5,'T'*256+'I'
	lwz	d4,0(d3)
	addis	d5,d5,'P'*256+'R'
	stw	d5,0(d3)

	li	d0,1
	lea	a0,profile_file_name

	mflr	r0
	stwu	r0,-4(sp)	
	bl	openF
	mtlr	r0

	stw	d4,0(d3)

	cmpwi	0,d2,0
	beq	cannot_open
	
	mflr	r0
	li	d3,0
	stw	r0,-4(sp)
	stwu	d3,-8(sp)
	
 if MACOSX
 	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(64+28)(sp)
 else
	stwu	sp,-64(sp)
 endif
	stw	d3,64(sp)
	li	r3,'u'*256+'t'
	addi	r4,sp,64
	addis	r3,r3,'c'*256+'p'
	bl	.Gestalt
	nop

	lwz	d2,64(sp)
	stwu	r0,-4(sp)	
	bl	writeFI_space
	mtlr	r0

	stw	d3,64(sp)
	li	r3,'l'*256+'k'
	addi	r4,sp,64
	addis	r3,r3,'p'*256+'c'
	bl	.Gestalt
	nop
	
	lwz	d2,64(sp)
	stwu	r0,-4(sp)	
	bl	writeFI_space
	mtlr	r0

	stw	d3,64(sp)
	li	r3,'l'*256+'k'
	addi	r4,sp,64
	addis	r3,r3,'b'*256+'c'
	bl	.Gestalt
	nop

	lwz	d2,64(sp)
	stwu	r0,-4(sp)	
	bl	writeFI
	mtlr	r0
	
	li	d2,13
	stwu	r0,-4(sp)	
	bl	writeFC
	mtlr	r0

 if MACOSX
 	lwz	sp,0(sp)
	lwz	r0,4(sp)
	addi	sp,sp,8
 else
	lwz	r0,68(sp)
	addi	sp,sp,72
 endif
	mtlr	r0

	lea	d2,profile_globals
	lwz	d2,Globals.profile_records(d2)

write_profile_lp:	
	cmpwi	0,d2,0
	beq	end_list

	lwz	d3,FunctionProfile.name(d2)
	stwu	d2,-4(sp)
	
#if MODULE_NAMES
	stwu	d3,-4(sp)

	lwz	d3,-4(d3)
	lwz	d2,0(d3)
	addi	d3,d3,3

write_module_name_lp:
	subic.	d2,d2,1
	blt	end_module_name
	
	stw	d2,-4(sp)
	lbzu	d2,1(d3)

	mflr	r0

	stw	d3,-8(sp)

	stwu	r0,-12(sp)	
	bl	writeFC
	mtlr	r0

	lwz	d2,4(sp)
	lwz	d3,0(sp)
	addi	sp,sp,8
	b	write_module_name_lp

end_module_name:
	li	d2,' '

	mflr	r0
	stwu	r0,-4(sp)	
	bl	writeFC
	mtlr	r0	

	lwz	d3,0(sp)
	addi	sp,sp,4
#endif

	addi	d3,d3,3
	
write_function_name_lp:
	lbzu	d2,1(d3)
	cmpwi	0,d2,0
	beq	end_function_name

	stw	d3,-4(sp)

	mflr	r0
	stwu	r0,-8(sp)	
	bl	writeFC
	mtlr	r0	

	lwz	d3,0(sp)
	addi	sp,sp,4
	b	write_function_name_lp

end_function_name:
	li	d2,' '

	mflr	r0
	stwu	r0,-4(sp)	
	bl	writeFC

	lwz	d2,0(sp)	
	lwz	d2,FunctionProfile.n_strict_calls(d2)
	stwu	r0,-4(sp)	
	bl	writeFI_space

	lwz	d2,0(sp)	
	lwz	d2,FunctionProfile.n_lazy_calls(d2)
	stwu	r0,-4(sp)	
	bl	writeFI_space

	lwz	d2,0(sp)	
	lwz	d2,FunctionProfile.n_curried_calls(d2)
	stwu	r0,-4(sp)
	bl	writeFI_space

	lwz	d2,0(sp)	
	lwz	d2,FunctionProfile.n_profiler_calls(d2)
	stwu	r0,-4(sp)
	bl	writeFI_space

	lwz	d2,0(sp)
	lwz	d2,FunctionProfile.n_words_allocated(d2)
	stwu	r0,-4(sp)	
	bl	writeFI_space

	lwz	d2,0(sp)
	lwz	d2,FunctionProfile.time_hi(d2)
	stwu	r0,-4(sp)	
	bl	writeFI_space

	lwz	d2,0(sp)	
	lwz	d2,FunctionProfile.time_lo(d2)
	stwu	r0,-4(sp)	
	bl	writeFI

	li	d2,13
	stwu	r0,-4(sp)	
	bl	writeFC
	mtlr	r0

	lwz	d2,0(sp)
	addi	sp,sp,4
	lwz	d2,FunctionProfile.next(d2)
	b	write_profile_lp

writeFI_space:
	mflr	r0
	stwu	r0,-4(sp)	
	bl	writeFI
	mtlr	r0

	li	d2,' '
	b	writeFC

end_list:
	mflr	r0
	stwu	r0,-4(sp)	
	bl	closeF
	mtlr	r0	

cannot_open:

 if USE_TEMPORARY_MEMORY
 	mflr	r0
  if MACOSX
 	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(96+28)(sp)
  else
	stwu	sp,-96(sp)
  endif
	stw	r0,96-4(sp)
	lea	r5,profile_globals
	lwz	r3,Globals.profile_stack_handle(r5)
 	bl	free_temp_memory_handle

	lea	r5,profile_globals

	stw	r31,96-8(sp)
	
	lwz	r31,Globals.temp_handle_list(r5)
	b	free_temp_handles
	
free_temp_handles_lp:
	mr	r3,r31
	lwz	r31,0(r31)
	lwz	r31,0(r31)
	bl	free_temp_memory_handle

free_temp_handles:
	cmpwi	0,r31,0
	bne	free_temp_handles_lp

	lwz	r31,96-8(sp)
	
	lwz	r0,96-4(sp)
  if MACOSX
	lwz	sp,0(sp)
  else
	addi	sp,sp,96
  endif
 	mtlr	r0
 endif
	lwz	r0,0(sp)
	addi	sp,sp,4
	blr

	csect	.write_profile_stack
write_profile_stack:
	mflr	r0
	lea	d0,profile_globals
	stwu	r0,-4(sp)
	lwz	d0,Globals.stack_pointer(d0)

	cmpwi	0,d0,0
	beq	@stack_not_initialised

 if MACOSX
 	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(64+28)(sp)
 else
	stwu	sp,-64(sp)
 endif
	lea	o0,stack_trace_string
	bl	.er_print_string
	nop
 if MACOSX
 	lwz	sp,0(sp)
 else
	addi	sp,sp,64
 endif

 if 1
	li	d2,12
 else
	li	d2,24
 endif
@write_functions_on_stack
	lwzu	d1,-4(d0)
	cmpwi	0,d1,0
	beq	@end_profile_stack
		
	lwz	o0,FunctionProfile.name(d1)

 if MACOSX
 	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(64+28)(sp)
 else
	stwu	sp,-64(sp)
 endif
	addi	o0,o0,4
	bl	.er_print_string
	nop
	li	o0,13
	bl	.er_print_char
	nop
 if MACOSX
 	lwz	sp,0(sp)
 else
	addi	sp,sp,64
 endif

	subic.	d2,d2,1
 if 0
	b	@write_functions_on_stack
 else
	bne	@write_functions_on_stack
 endif

@end_profile_stack:
@stack_not_initialised:
	lwz	r0,0(sp)
	mtlr	r0
	lwz	r0,4(sp)
	addi	sp,sp,8
	blr

	csect	.init_profiler
init_profiler:
 if 0
	mflr	r0
	stw	r0,-4(sp)
	stwu	sp,-64(sp)

	bl	.Debugger
	nop
	
	lwz	r0,64-4(sp)
	addi	sp,sp,64
	mtlr	r0
 endif

	mflr	r0
	stwu	r0,-4(sp)

 if MACOSX
 	subi	sp,sp,8
	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(64+28)(sp)
 else
	stwu	sp,-72(sp)
 endif
	li	r3,0
	addi	r4,sp,64
	stw	r3,64(sp)
	li	r3,'u'*256+'t'
	addis	r3,r3,'c'*256+'p'
	bl	.Gestalt
	nop
	lwz	r3,64(sp)
 if MACOSX
 	lwz	sp,0(sp)
	addi	sp,sp,8
 else
	addi	sp,sp,72
 endif

	cmpwi	0,r3,257
 if POWER601
	bne	init_profiler_error1
 else
	beq	init_profiler_error1
 endif

 if 1
	lea	r3,stack_size
	lwz	r3,0(r3)
	addi	r3,r3,4095
	rlwinm	r3,r3,0,0,31-12
 else
	li	r3,   (512*1024) % 65536
	addis	r3,r3,(512*1024) / 65536
 endif

 if MACOSX
 	mr	g0,sp
 	ori	sp,sp,28
 	stwu	g0,-(64+28)(sp)
 else
	stwu	sp,-64(sp)
 endif
 if USE_TEMPORARY_MEMORY
 	bl	allocate_temp_memory_handle
 else
	bl	.NewPtr
	nop
 endif
 if MACOSX
 	lwz	sp,0(sp)
 else
	addi	sp,sp,64
 endif
	lea	r5,profile_globals

	and.	r9,r3,r3
	beq	init_profiler_error

 if USE_TEMPORARY_MEMORY
	stw	r9,Globals.profile_stack_handle(r5)
 	lwz	r9,0(r9)
	li	r0,0
	stw	r0,Globals.temp_handle_list(r5)
 endif
 if CHECK_STACK_OVERFLOWS
  if 1
	lea	r3,stack_size
	lwz	r3,0(r3)
  else
	li	r3,   (512*1024) % 65536
	addis	r3,r3,(512*1024) / 65536
  endif
	add	r3,r3,r9
	stw	r3,Globals.end_profile_stack(r5)
 endif
	lea	r3,start_string
	bl	allocate_function_profile_record

	lwz	r0,0(sp)
	addi	sp,sp,4
	mtlr	r0

	li	r0,0
	stw	r4,4(r9)
	stw	r0,0(r9)
	addi	r9,r9,8
	stw	r9,Globals.stack_pointer(r5)
	stw	r0,Globals.last_tail_call(r5)
	stw	d7,Globals.n_words_free(r5)

	lwz	r0,0(sp)
	addi	sp,sp,4

@store_clock:
	time_hi	r9
	stw	r9,Globals.time_hi(r5)
	time_lo	r10
	time_hi	r4
	stw	r10,Globals.time_lo(r5)
	cmpw	0,r4,r9
	beqlr+

	b	@store_clock

 if USE_TEMPORARY_MEMORY
allocate_temp_memory_handle:
	mflr	r0
	stw	r31,-4(sp)
	stw	r0,8(sp)
	stwu	sp,-96(sp)

	addi	r4,sp,56
	bl	.TempNewHandle
	nop

	mr.	r31,r3
	beq	return_r31

	addi	r4,sp,56
	bl	.TempHLock
	nop

	lha	r0,56(sp)
	cmpwi	r0,0
	beq+	return_r31

	mr	r3,r31
	addi	r4,sp,56
	bl	.TempDisposeHandle
	nop

	li	r31,0
return_r31:
	lwz	r0,104(sp)
	mr	r3,r31
	mtlr	r0
	addi	sp,sp,96
	lwz	r31,-4(sp)
	blr

free_temp_memory_handle:
	mflr	r0
	stw	r3,-4(sp)
	stw	r0,8(sp)
	stwu	sp,-96(sp)

	addi	r4,sp,56
	bl	.TempHUnlock
	nop

	lwz	r3,96-4(sp)
	addi	r4,sp,56
	bl	.TempDisposeHandle
	nop

	lwz	r0,104(sp)
	addi	sp,sp,96
	mtlr	r0
	blr
 endif

init_profiler_error1:
	lea	o0,wrong_processor
	lea	r5,profile_globals
	li	r4,0
	stw	r4,Globals.stack_pointer(r5)
	b	print_error
init_profiler_error:
	lea	o0,not_enough_memory_for_profile_stack
	lea	r5,profile_globals
	li	r4,0
	stw	r4,Globals.stack_pointer(r5)
	b	print_error
profiler_memory_error:
	lea	o0,not_enough_memory_for_profiler
	b	print_error
 if CHECK_STACK_OVERFLOWS 
profile_stack_overflow:
	mflr	r0
	stw	r0,-4(sp)
	stwu	sp,-64(sp)

	bl	.Debugger
	nop
	
	lwz	r0,64-4(sp)
	addi	sp,sp,64
	mtlr	r0
	b	profile_stack_overflow
 endif


	csect	data{RW}
Globals:		record
n_free_records_in_block:ds.l	1 ; 0 n free records in block
last_allocated_block:	ds.l	1 ; 4 latest allocated block
profile_records:	ds.l	1 ; 8 profile record list
time_hi:		ds.l	1 ; 12 clock
time_lo:		ds.l	1
stack_pointer:	ds.l	1 ; 20 stack pointer
last_tail_call	ds.l	1 ; 24 last tail calling function
n_words_free:	ds.l	1
 if USE_TEMPORARY_MEMORY
temp_handle_list	ds.l	1
profile_stack_handle	ds.l	1
 endif
 if CHECK_STACK_OVERFLOWS
end_profile_stack	ds.l	1
 endif
		endr

	align	2
profile_globals: ds	Globals

profile_file_name:
	dc.l	__STRING__+2
	dc.l	0
	ds.b	32
	align	2
 if MODULE_NAMES
m_system:
	dc.l	6
	dc.b	'System'
	dc.b	0,0
	dc.l	m_system
 endif
start_string:
	dc.l	0
	dc.b	'start'
	dc.b	0
	align	2
not_enough_memory_for_profile_stack:
	dc.b	'not enough memory for profile stack'
	dc.b	13
	dc.b	0
not_enough_memory_for_profiler:
	dc.b	'not enough memory for profiler'
	dc.b	13
	dc.b	0
wrong_processor:
 if POWER601
	dc.b	'Not a PowerPC601 processor (don''t use profiling option for 601)'
 else
 	dc.b	'This is a PowerPC601 processor (use profiling option for 601)'
 endif
	dc.b	13
	dc.b	0
stack_trace_string:
	dc.b	'Stack trace:'
	dc.b	13
	dc.b	0
	align	2

	macro
	te	&address
	tc	&address{TC},&address
	endm

	toc
	
	te	profile_globals
	te	profile_file_name
	te	not_enough_memory_for_profile_stack
	te	not_enough_memory_for_profiler
	te	wrong_processor
	te	start_string
	te	stack_trace_string
	te	new_file_creator
	te	stack_size