mirror of
https://gitlab.com/ryandwyer/perfect-dark
synced 2026-06-06 03:28:11 -04:00
Ryan Dwyer
798 lines
24 KiB
C
798 lines
24 KiB
C
#include <ultra64.h>
|
|
#include "constants.h"
|
|
#include "bss.h"
|
|
#include "lib/lib_126b0.h"
|
|
#include "lib/debughud.h"
|
|
#include "lib/memory.h"
|
|
#include "data.h"
|
|
#include "types.h"
|
|
|
|
struct memaspace {
|
|
s32 addr;
|
|
u32 size;
|
|
};
|
|
|
|
struct memaheap {
|
|
u32 unk000;
|
|
struct memaspace spaces[127];
|
|
};
|
|
|
|
u32 var80099470;
|
|
u32 var80099474;
|
|
struct memaheap g_MemaHeap;
|
|
|
|
void memaSwap(struct memaspace *a, struct memaspace *b)
|
|
{
|
|
u32 tempaddr = a->addr;
|
|
u32 tempsize = a->size;
|
|
a->addr = b->addr;
|
|
a->size = b->size;
|
|
b->addr = tempaddr;
|
|
b->size = tempsize;
|
|
}
|
|
|
|
void memaMerge(struct memaspace *a, struct memaspace *b)
|
|
{
|
|
a->size += b->size;
|
|
b->addr = 0;
|
|
b->size = 0;
|
|
}
|
|
|
|
bool memaDefragPass(struct memaheap *heap)
|
|
{
|
|
bool merged = false;
|
|
struct memaspace *prev = &heap->spaces[0];
|
|
struct memaspace *curr = &heap->spaces[1];
|
|
struct memaspace *last = &heap->spaces[124];
|
|
u32 addr = 0;
|
|
|
|
while (curr <= last) {
|
|
if (curr->size != 0) {
|
|
if (curr->addr < addr) {
|
|
memaSwap(curr, prev);
|
|
}
|
|
|
|
if (prev->size + addr == curr->addr) {
|
|
memaMerge(prev, curr);
|
|
curr = prev;
|
|
merged = true;
|
|
}
|
|
|
|
prev = curr;
|
|
addr = curr->addr;
|
|
}
|
|
|
|
curr++;
|
|
}
|
|
|
|
return merged;
|
|
}
|
|
|
|
void memaDefrag(void)
|
|
{
|
|
while (memaDefragPass(&g_MemaHeap));
|
|
}
|
|
|
|
GLOBAL_ASM(
|
|
glabel func00012800
|
|
/* 12800: 27bdffd8 */ addiu $sp,$sp,-40
|
|
/* 12804: afb2001c */ sw $s2,0x1c($sp)
|
|
/* 12808: afb30020 */ sw $s3,0x20($sp)
|
|
/* 1280c: afb10018 */ sw $s1,0x18($sp)
|
|
/* 12810: afb00014 */ sw $s0,0x14($sp)
|
|
/* 12814: 2492000c */ addiu $s2,$a0,0xc
|
|
/* 12818: afbf0024 */ sw $ra,0x24($sp)
|
|
/* 1281c: 02408025 */ or $s0,$s2,$zero
|
|
/* 12820: 249103e4 */ addiu $s1,$a0,0x3e4
|
|
/* 12824: 00009825 */ or $s3,$zero,$zero
|
|
/* 12828: 0232082b */ sltu $at,$s1,$s2
|
|
.L0001282c:
|
|
/* 1282c: 54200020 */ bnezl $at,.L000128b0
|
|
/* 12830: 26730001 */ addiu $s3,$s3,0x1
|
|
.L00012834:
|
|
/* 12834: 8e040004 */ lw $a0,0x4($s0)
|
|
/* 12838: 26050008 */ addiu $a1,$s0,0x8
|
|
/* 1283c: 54800004 */ bnezl $a0,.L00012850
|
|
/* 12840: 8e020008 */ lw $v0,0x8($s0)
|
|
/* 12844: 1000002c */ b .L000128f8
|
|
/* 12848: 02001025 */ or $v0,$s0,$zero
|
|
/* 1284c: 8e020008 */ lw $v0,0x8($s0)
|
|
.L00012850:
|
|
/* 12850: 8e030000 */ lw $v1,0x0($s0)
|
|
/* 12854: 0043082b */ sltu $at,$v0,$v1
|
|
/* 12858: 50200007 */ beqzl $at,.L00012878
|
|
/* 1285c: 00647021 */ addu $t6,$v1,$a0
|
|
/* 12860: 0c0049ac */ jal memaSwap
|
|
/* 12864: 02002025 */ or $a0,$s0,$zero
|
|
/* 12868: 8e040004 */ lw $a0,0x4($s0)
|
|
/* 1286c: 8e020008 */ lw $v0,0x8($s0)
|
|
/* 12870: 8e030000 */ lw $v1,0x0($s0)
|
|
/* 12874: 00647021 */ addu $t6,$v1,$a0
|
|
.L00012878:
|
|
/* 12878: 144e0008 */ bne $v0,$t6,.L0001289c
|
|
/* 1287c: 26050008 */ addiu $a1,$s0,0x8
|
|
/* 12880: 8e0f000c */ lw $t7,0xc($s0)
|
|
/* 12884: ae000008 */ sw $zero,0x8($s0)
|
|
/* 12888: ae00000c */ sw $zero,0xc($s0)
|
|
/* 1288c: 008fc021 */ addu $t8,$a0,$t7
|
|
/* 12890: ae180004 */ sw $t8,0x4($s0)
|
|
/* 12894: 10000018 */ b .L000128f8
|
|
/* 12898: 00a01025 */ or $v0,$a1,$zero
|
|
.L0001289c:
|
|
/* 1289c: 0225082b */ sltu $at,$s1,$a1
|
|
/* 128a0: 1020ffe4 */ beqz $at,.L00012834
|
|
/* 128a4: 00a08025 */ or $s0,$a1,$zero
|
|
/* 128a8: 02408025 */ or $s0,$s2,$zero
|
|
/* 128ac: 26730001 */ addiu $s3,$s3,0x1
|
|
.L000128b0:
|
|
/* 128b0: 2a61007c */ slti $at,$s3,0x7c
|
|
/* 128b4: 5420ffdd */ bnezl $at,.L0001282c
|
|
/* 128b8: 0232082b */ sltu $at,$s1,$s2
|
|
/* 128bc: 0232082b */ sltu $at,$s1,$s2
|
|
/* 128c0: 2402ffff */ addiu $v0,$zero,-1
|
|
/* 128c4: 1420000b */ bnez $at,.L000128f4
|
|
/* 128c8: 02401825 */ or $v1,$s2,$zero
|
|
/* 128cc: 8e040004 */ lw $a0,0x4($s0)
|
|
.L000128d0:
|
|
/* 128d0: 0082082b */ sltu $at,$a0,$v0
|
|
/* 128d4: 50200004 */ beqzl $at,.L000128e8
|
|
/* 128d8: 26100008 */ addiu $s0,$s0,0x8
|
|
/* 128dc: 02001825 */ or $v1,$s0,$zero
|
|
/* 128e0: 00801025 */ or $v0,$a0,$zero
|
|
/* 128e4: 26100008 */ addiu $s0,$s0,0x8
|
|
.L000128e8:
|
|
/* 128e8: 0230082b */ sltu $at,$s1,$s0
|
|
/* 128ec: 5020fff8 */ beqzl $at,.L000128d0
|
|
/* 128f0: 8e040004 */ lw $a0,0x4($s0)
|
|
.L000128f4:
|
|
/* 128f4: 00601025 */ or $v0,$v1,$zero
|
|
.L000128f8:
|
|
/* 128f8: 8fbf0024 */ lw $ra,0x24($sp)
|
|
/* 128fc: 8fb00014 */ lw $s0,0x14($sp)
|
|
/* 12900: 8fb10018 */ lw $s1,0x18($sp)
|
|
/* 12904: 8fb2001c */ lw $s2,0x1c($sp)
|
|
/* 12908: 8fb30020 */ lw $s3,0x20($sp)
|
|
/* 1290c: 03e00008 */ jr $ra
|
|
/* 12910: 27bd0028 */ addiu $sp,$sp,0x28
|
|
);
|
|
|
|
GLOBAL_ASM(
|
|
glabel func00012914
|
|
/* 12914: 3c0f800a */ lui $t7,%hi(var80099470)
|
|
/* 12918: 8def9470 */ lw $t7,%lo(var80099470)($t7)
|
|
/* 1291c: 3c09800a */ lui $t1,%hi(var80099474)
|
|
/* 12920: 8d299474 */ lw $t1,%lo(var80099474)($t1)
|
|
/* 12924: 008fc023 */ subu $t8,$a0,$t7
|
|
/* 12928: 0018c940 */ sll $t9,$t8,0x5
|
|
/* 1292c: 0338c823 */ subu $t9,$t9,$t8
|
|
/* 12930: 0019c880 */ sll $t9,$t9,0x2
|
|
/* 12934: 0329001a */ div $zero,$t9,$t1
|
|
/* 12938: 00003012 */ mflo $a2
|
|
/* 1293c: 3c0b800a */ lui $t3,%hi(g_MemaHeap)
|
|
/* 12940: 256b9478 */ addiu $t3,$t3,%lo(g_MemaHeap)
|
|
/* 12944: 000650c0 */ sll $t2,$a2,0x3
|
|
/* 12948: 014b1021 */ addu $v0,$t2,$t3
|
|
/* 1294c: 8c480010 */ lw $t0,0x10($v0)
|
|
/* 12950: 27bdffe8 */ addiu $sp,$sp,-24
|
|
/* 12954: 2447000c */ addiu $a3,$v0,0xc
|
|
/* 12958: afbf0014 */ sw $ra,0x14($sp)
|
|
/* 1295c: afa40018 */ sw $a0,0x18($sp)
|
|
/* 12960: afa5001c */ sw $a1,0x1c($sp)
|
|
/* 12964: 00807025 */ or $t6,$a0,$zero
|
|
/* 12968: 15200002 */ bnez $t1,.L00012974
|
|
/* 1296c: 00000000 */ nop
|
|
/* 12970: 0007000d */ break 0x7
|
|
.L00012974:
|
|
/* 12974: 2401ffff */ addiu $at,$zero,-1
|
|
/* 12978: 15210004 */ bne $t1,$at,.L0001298c
|
|
/* 1297c: 3c018000 */ lui $at,0x8000
|
|
/* 12980: 17210002 */ bne $t9,$at,.L0001298c
|
|
/* 12984: 00000000 */ nop
|
|
/* 12988: 0006000d */ break 0x6
|
|
.L0001298c:
|
|
/* 1298c: 00e01825 */ or $v1,$a3,$zero
|
|
/* 12990: 51000006 */ beqzl $t0,.L000129ac
|
|
/* 12994: 8c6d0000 */ lw $t5,0x0($v1)
|
|
/* 12998: 8c6c000c */ lw $t4,0xc($v1)
|
|
.L0001299c:
|
|
/* 1299c: 24630008 */ addiu $v1,$v1,0x8
|
|
/* 129a0: 5580fffe */ bnezl $t4,.L0001299c
|
|
/* 129a4: 8c6c000c */ lw $t4,0xc($v1)
|
|
/* 129a8: 8c6d0000 */ lw $t5,0x0($v1)
|
|
.L000129ac:
|
|
/* 129ac: 2401ffff */ addiu $at,$zero,-1
|
|
/* 129b0: 55a1000f */ bnel $t5,$at,.L000129f0
|
|
/* 129b4: 8fb80018 */ lw $t8,0x18($sp)
|
|
/* 129b8: 11000005 */ beqz $t0,.L000129d0
|
|
/* 129bc: 00e01825 */ or $v1,$a3,$zero
|
|
/* 129c0: 8c6efffc */ lw $t6,-0x4($v1)
|
|
.L000129c4:
|
|
/* 129c4: 2463fff8 */ addiu $v1,$v1,-8
|
|
/* 129c8: 55c0fffe */ bnezl $t6,.L000129c4
|
|
/* 129cc: 8c6efffc */ lw $t6,-0x4($v1)
|
|
.L000129d0:
|
|
/* 129d0: 8c6f0000 */ lw $t7,0x0($v1)
|
|
/* 129d4: 3c04800a */ lui $a0,%hi(g_MemaHeap)
|
|
/* 129d8: 55e00005 */ bnezl $t7,.L000129f0
|
|
/* 129dc: 8fb80018 */ lw $t8,0x18($sp)
|
|
/* 129e0: 0c004a00 */ jal func00012800
|
|
/* 129e4: 24849478 */ addiu $a0,$a0,%lo(g_MemaHeap)
|
|
/* 129e8: 00401825 */ or $v1,$v0,$zero
|
|
/* 129ec: 8fb80018 */ lw $t8,0x18($sp)
|
|
.L000129f0:
|
|
/* 129f0: ac780000 */ sw $t8,0x0($v1)
|
|
/* 129f4: 8fb9001c */ lw $t9,0x1c($sp)
|
|
/* 129f8: ac790004 */ sw $t9,0x4($v1)
|
|
/* 129fc: 8fbf0014 */ lw $ra,0x14($sp)
|
|
/* 12a00: 27bd0018 */ addiu $sp,$sp,0x18
|
|
/* 12a04: 03e00008 */ jr $ra
|
|
/* 12a08: 00000000 */ nop
|
|
);
|
|
|
|
void memaInit(void)
|
|
{
|
|
// empty
|
|
}
|
|
|
|
void memaHeapInit(void *heapaddr, u32 heapsize)
|
|
{
|
|
struct memaspace *space;
|
|
|
|
#if VERSION >= VERSION_NTSC_1_0
|
|
heapsize += 0x8e0; // ?!
|
|
#endif
|
|
|
|
g_MemaHeap.unk000 = 0;
|
|
|
|
g_MemaHeap.spaces[0].addr = 0;
|
|
g_MemaHeap.spaces[0].size = 0;
|
|
|
|
g_MemaHeap.spaces[125].addr = 0xffffffff;
|
|
g_MemaHeap.spaces[125].size = 0;
|
|
g_MemaHeap.spaces[126].addr = 0xffffffff;
|
|
g_MemaHeap.spaces[126].size = 0xffffffff;
|
|
|
|
for (space = &g_MemaHeap.spaces[1]; space <= &g_MemaHeap.spaces[124]; space++) {
|
|
space->addr = 0;
|
|
space->size = 0;
|
|
}
|
|
|
|
g_MemaHeap.spaces[1].addr = var80099470 = (u32)heapaddr;
|
|
g_MemaHeap.spaces[1].size = var80099474 = heapsize;
|
|
}
|
|
|
|
/**
|
|
* Example printout of figures:
|
|
*
|
|
* Mem Info
|
|
* memp: MP_LF_LEV
|
|
* F: 0 722352
|
|
* S: 972080 3668704
|
|
* Over: 2946352
|
|
* memp: MP_LF_ETER
|
|
* F: 0 0
|
|
* S: 601728 0
|
|
* mema:
|
|
* LF: 391728
|
|
* Audio Free: 13184
|
|
*
|
|
* Where two figures are shown in one line, the left refers to onboard memory
|
|
* and the right refers to expansion pak memory.
|
|
*
|
|
* F means free.
|
|
* S means size.
|
|
*
|
|
* "Over" shows how much it's over 4MB, if they were to try to fit the game into
|
|
* onboard memory only. This shows "Free" if under 4MB.
|
|
*
|
|
* The ETER (permanent) pool has 0 free space because it's shrunk to fit once
|
|
* the permanent allocations are done during startup. This pool fits entirely
|
|
* in onboard memory, so the expansion size is 0.
|
|
*/
|
|
void memaPrint(void)
|
|
{
|
|
s32 onboard;
|
|
s32 expansion;
|
|
s32 line = 1;
|
|
s32 over;
|
|
char buffer[124];
|
|
|
|
memaDefragPass(&g_MemaHeap);
|
|
|
|
#if VERSION < VERSION_NTSC_1_0
|
|
if (debugIsMemInfoEnabled()) {
|
|
dhudSetFgColour(0xff, 0xff, 0xff, 0xff);
|
|
dhudSetBgColour(0, 0, 0, 0xff);
|
|
|
|
dhudSetPos(30, line);
|
|
dhudPrintString("Mem Info");
|
|
line++;
|
|
|
|
dhudSetPos(30, line);
|
|
dhudPrintString("memp: MP_LF_LEV");
|
|
line++;
|
|
|
|
onboard = memGetFree(MEMPOOL_STAGE, MEMBANK_ONBOARD);
|
|
expansion = memGetFree(MEMPOOL_STAGE, MEMBANK_EXPANSION);
|
|
sprintf(buffer, "F: %d %d", onboard, expansion);
|
|
dhudSetPos(31, line);
|
|
dhudPrintString(buffer);
|
|
line++;
|
|
|
|
onboard = memGetSize(MEMPOOL_STAGE, MEMBANK_ONBOARD);
|
|
expansion = memGetSize(MEMPOOL_STAGE, MEMBANK_EXPANSION);
|
|
sprintf(buffer, "S: %d %d", onboard, expansion);
|
|
dhudSetPos(31, line);
|
|
dhudPrintString(buffer);
|
|
line++;
|
|
|
|
over = memGetSize(MEMPOOL_STAGE, MEMBANK_EXPANSION)
|
|
- memGetFree(MEMPOOL_STAGE, MEMBANK_EXPANSION)
|
|
- memGetFree(MEMPOOL_STAGE, MEMBANK_ONBOARD);
|
|
|
|
if (over >= 0) {
|
|
sprintf(buffer, "Over: %d", over);
|
|
} else {
|
|
sprintf(buffer, "Free: %d", -over);
|
|
}
|
|
|
|
dhudSetPos(31, line);
|
|
dhudPrintString(buffer);
|
|
line++;
|
|
|
|
dhudSetPos(30, line);
|
|
dhudPrintString("memp: MP_LF_ETER");
|
|
line++;
|
|
|
|
onboard = memGetFree(MEMPOOL_PERMANENT, MEMBANK_ONBOARD);
|
|
expansion = memGetFree(MEMPOOL_PERMANENT, MEMBANK_EXPANSION);
|
|
sprintf(buffer, "F: %d %d", onboard, expansion);
|
|
dhudSetPos(31, line);
|
|
dhudPrintString(buffer);
|
|
line++;
|
|
|
|
onboard = memGetSize(MEMPOOL_PERMANENT, MEMBANK_ONBOARD);
|
|
expansion = memGetSize(MEMPOOL_PERMANENT, MEMBANK_EXPANSION);
|
|
sprintf(buffer, "S: %d %d", onboard, expansion);
|
|
dhudSetPos(31, line);
|
|
dhudPrintString(buffer);
|
|
line++;
|
|
|
|
dhudSetPos(30, line);
|
|
dhudPrintString("mema:");
|
|
line++;
|
|
|
|
sprintf(buffer, "LF: %d", memaGetLongestFree());
|
|
dhudSetPos(31, line);
|
|
dhudPrintString(buffer);
|
|
line++;
|
|
|
|
sprintf(buffer, "Audio Free: %d", g_SndHeap.base + (g_SndHeap.len - (u32)g_SndHeap.cur));
|
|
dhudSetPos(30, line);
|
|
dhudPrintString(buffer);
|
|
line++;
|
|
}
|
|
#endif
|
|
}
|
|
|
|
#if VERSION >= VERSION_NTSC_1_0
|
|
GLOBAL_ASM(
|
|
glabel memaAlloc
|
|
/* 12ab0: 27bdffd0 */ addiu $sp,$sp,-48
|
|
/* 12ab4: afb2001c */ sw $s2,0x1c($sp)
|
|
/* 12ab8: afb10018 */ sw $s1,0x18($sp)
|
|
/* 12abc: 00809025 */ or $s2,$a0,$zero
|
|
/* 12ac0: afb50028 */ sw $s5,0x28($sp)
|
|
/* 12ac4: afb00014 */ sw $s0,0x14($sp)
|
|
/* 12ac8: 3c11800a */ lui $s1,%hi(g_MemaHeap+0xc)
|
|
/* 12acc: 3c078009 */ lui $a3,%hi(g_Is4Mb)
|
|
/* 12ad0: afbf002c */ sw $ra,0x2c($sp)
|
|
/* 12ad4: afb40024 */ sw $s4,0x24($sp)
|
|
/* 12ad8: afb30020 */ sw $s3,0x20($sp)
|
|
/* 12adc: 26319484 */ addiu $s1,$s1,%lo(g_MemaHeap+0xc)
|
|
/* 12ae0: 2404ffff */ addiu $a0,$zero,-1
|
|
/* 12ae4: 00004025 */ or $t0,$zero,$zero
|
|
/* 12ae8: 24e70af0 */ addiu $a3,$a3,%lo(g_Is4Mb)
|
|
/* 12aec: 00008025 */ or $s0,$zero,$zero
|
|
/* 12af0: 2415ffff */ addiu $s5,$zero,-1
|
|
/* 12af4: 24060001 */ addiu $a2,$zero,0x1
|
|
/* 12af8: 24050010 */ addiu $a1,$zero,0x10
|
|
.L00012afc:
|
|
/* 12afc: 8e230004 */ lw $v1,0x4($s1)
|
|
/* 12b00: 26100001 */ addiu $s0,$s0,0x1
|
|
/* 12b04: 0072082b */ sltu $at,$v1,$s2
|
|
/* 12b08: 14200011 */ bnez $at,.L00012b50
|
|
/* 12b0c: 00721023 */ subu $v0,$v1,$s2
|
|
/* 12b10: 8e2e0000 */ lw $t6,0x0($s1)
|
|
/* 12b14: 0044082b */ sltu $at,$v0,$a0
|
|
/* 12b18: 12ae000f */ beq $s5,$t6,.L00012b58
|
|
/* 12b1c: 00000000 */ nop
|
|
/* 12b20: 1020000b */ beqz $at,.L00012b50
|
|
/* 12b24: 2c410040 */ sltiu $at,$v0,0x40
|
|
/* 12b28: 00402025 */ or $a0,$v0,$zero
|
|
/* 12b2c: 1420000a */ bnez $at,.L00012b58
|
|
/* 12b30: 02204025 */ or $t0,$s1,$zero
|
|
/* 12b34: 90ef0000 */ lbu $t7,0x0($a3)
|
|
/* 12b38: 0012c082 */ srl $t8,$s2,0x2
|
|
/* 12b3c: 0058082b */ sltu $at,$v0,$t8
|
|
/* 12b40: 10cf0003 */ beq $a2,$t7,.L00012b50
|
|
/* 12b44: 00000000 */ nop
|
|
/* 12b48: 14200003 */ bnez $at,.L00012b58
|
|
/* 12b4c: 00000000 */ nop
|
|
.L00012b50:
|
|
/* 12b50: 1605ffea */ bne $s0,$a1,.L00012afc
|
|
/* 12b54: 26310008 */ addiu $s1,$s1,0x8
|
|
.L00012b58:
|
|
/* 12b58: 55000027 */ bnezl $t0,.L00012bf8
|
|
/* 12b5c: 8d030000 */ lw $v1,0x0($t0)
|
|
/* 12b60: 8e390004 */ lw $t9,0x4($s1)
|
|
/* 12b64: 00008025 */ or $s0,$zero,$zero
|
|
/* 12b68: 24140008 */ addiu $s4,$zero,0x8
|
|
/* 12b6c: 0332082b */ sltu $at,$t9,$s2
|
|
/* 12b70: 10200006 */ beqz $at,.L00012b8c
|
|
/* 12b74: 3c13800a */ lui $s3,%hi(g_MemaHeap)
|
|
/* 12b78: 8e29000c */ lw $t1,0xc($s1)
|
|
.L00012b7c:
|
|
/* 12b7c: 26310008 */ addiu $s1,$s1,0x8
|
|
/* 12b80: 0132082b */ sltu $at,$t1,$s2
|
|
/* 12b84: 5420fffd */ bnezl $at,.L00012b7c
|
|
/* 12b88: 8e29000c */ lw $t1,0xc($s1)
|
|
.L00012b8c:
|
|
/* 12b8c: 8e2a0000 */ lw $t2,0x0($s1)
|
|
/* 12b90: 26739478 */ addiu $s3,$s3,%lo(g_MemaHeap)
|
|
/* 12b94: 56aa0017 */ bnel $s5,$t2,.L00012bf4
|
|
/* 12b98: 02204025 */ or $t0,$s1,$zero
|
|
/* 12b9c: 3c11800a */ lui $s1,%hi(g_MemaHeap+0xc)
|
|
/* 12ba0: 26319484 */ addiu $s1,$s1,%lo(g_MemaHeap+0xc)
|
|
.L00012ba4:
|
|
/* 12ba4: 0c0049bc */ jal memaDefragPass
|
|
/* 12ba8: 02602025 */ or $a0,$s3,$zero
|
|
/* 12bac: 26100001 */ addiu $s0,$s0,0x1
|
|
/* 12bb0: 1614fffc */ bne $s0,$s4,.L00012ba4
|
|
/* 12bb4: 00000000 */ nop
|
|
/* 12bb8: 8e6b0010 */ lw $t3,0x10($s3)
|
|
/* 12bbc: 0172082b */ sltu $at,$t3,$s2
|
|
/* 12bc0: 50200007 */ beqzl $at,.L00012be0
|
|
/* 12bc4: 8e2d0000 */ lw $t5,0x0($s1)
|
|
/* 12bc8: 8e2c000c */ lw $t4,0xc($s1)
|
|
.L00012bcc:
|
|
/* 12bcc: 26310008 */ addiu $s1,$s1,0x8
|
|
/* 12bd0: 0192082b */ sltu $at,$t4,$s2
|
|
/* 12bd4: 5420fffd */ bnezl $at,.L00012bcc
|
|
/* 12bd8: 8e2c000c */ lw $t4,0xc($s1)
|
|
/* 12bdc: 8e2d0000 */ lw $t5,0x0($s1)
|
|
.L00012be0:
|
|
/* 12be0: 56ad0004 */ bnel $s5,$t5,.L00012bf4
|
|
/* 12be4: 02204025 */ or $t0,$s1,$zero
|
|
/* 12be8: 1000000b */ b .L00012c18
|
|
/* 12bec: 00001025 */ or $v0,$zero,$zero
|
|
/* 12bf0: 02204025 */ or $t0,$s1,$zero
|
|
.L00012bf4:
|
|
/* 12bf4: 8d030000 */ lw $v1,0x0($t0)
|
|
.L00012bf8:
|
|
/* 12bf8: 8d0f0004 */ lw $t7,0x4($t0)
|
|
/* 12bfc: 00727021 */ addu $t6,$v1,$s2
|
|
/* 12c00: 01f2c023 */ subu $t8,$t7,$s2
|
|
/* 12c04: ad0e0000 */ sw $t6,0x0($t0)
|
|
/* 12c08: 17000002 */ bnez $t8,.L00012c14
|
|
/* 12c0c: ad180004 */ sw $t8,0x4($t0)
|
|
/* 12c10: ad000000 */ sw $zero,0x0($t0)
|
|
.L00012c14:
|
|
/* 12c14: 00601025 */ or $v0,$v1,$zero
|
|
.L00012c18:
|
|
/* 12c18: 8fbf002c */ lw $ra,0x2c($sp)
|
|
/* 12c1c: 8fb00014 */ lw $s0,0x14($sp)
|
|
/* 12c20: 8fb10018 */ lw $s1,0x18($sp)
|
|
/* 12c24: 8fb2001c */ lw $s2,0x1c($sp)
|
|
/* 12c28: 8fb30020 */ lw $s3,0x20($sp)
|
|
/* 12c2c: 8fb40024 */ lw $s4,0x24($sp)
|
|
/* 12c30: 8fb50028 */ lw $s5,0x28($sp)
|
|
/* 12c34: 03e00008 */ jr $ra
|
|
/* 12c38: 27bd0030 */ addiu $sp,$sp,0x30
|
|
);
|
|
#else
|
|
GLOBAL_ASM(
|
|
glabel memaAlloc
|
|
/* 13324: 27bdffd0 */ addiu $sp,$sp,-48
|
|
/* 13328: afb2001c */ sw $s2,0x1c($sp)
|
|
/* 1332c: afb10018 */ sw $s1,0x18($sp)
|
|
/* 13330: 00809025 */ or $s2,$a0,$zero
|
|
/* 13334: afb50028 */ sw $s5,0x28($sp)
|
|
/* 13338: afb00014 */ sw $s0,0x14($sp)
|
|
/* 1333c: 3c11800a */ lui $s1,0x800a
|
|
/* 13340: afbf002c */ sw $ra,0x2c($sp)
|
|
/* 13344: afb40024 */ sw $s4,0x24($sp)
|
|
/* 13348: afb30020 */ sw $s3,0x20($sp)
|
|
/* 1334c: 2631c404 */ addiu $s1,$s1,-15356
|
|
/* 13350: 2404ffff */ addiu $a0,$zero,-1
|
|
/* 13354: 00002825 */ or $a1,$zero,$zero
|
|
/* 13358: 00008025 */ or $s0,$zero,$zero
|
|
/* 1335c: 2415ffff */ addiu $s5,$zero,-1
|
|
/* 13360: 24060010 */ addiu $a2,$zero,0x10
|
|
.NB00013364:
|
|
/* 13364: 8e230004 */ lw $v1,0x4($s1)
|
|
/* 13368: 26100001 */ addiu $s0,$s0,0x1
|
|
/* 1336c: 0072082b */ sltu $at,$v1,$s2
|
|
/* 13370: 1420000e */ bnez $at,.NB000133ac
|
|
/* 13374: 00721023 */ subu $v0,$v1,$s2
|
|
/* 13378: 8e2e0000 */ lw $t6,0x0($s1)
|
|
/* 1337c: 0044082b */ sltu $at,$v0,$a0
|
|
/* 13380: 00127882 */ srl $t7,$s2,0x2
|
|
/* 13384: 12ae000b */ beq $s5,$t6,.NB000133b4
|
|
/* 13388: 00000000 */ sll $zero,$zero,0x0
|
|
/* 1338c: 10200007 */ beqz $at,.NB000133ac
|
|
/* 13390: 2c410040 */ sltiu $at,$v0,0x40
|
|
/* 13394: 00402025 */ or $a0,$v0,$zero
|
|
/* 13398: 14200006 */ bnez $at,.NB000133b4
|
|
/* 1339c: 02202825 */ or $a1,$s1,$zero
|
|
/* 133a0: 004f082b */ sltu $at,$v0,$t7
|
|
/* 133a4: 14200003 */ bnez $at,.NB000133b4
|
|
/* 133a8: 00000000 */ sll $zero,$zero,0x0
|
|
.NB000133ac:
|
|
/* 133ac: 1606ffed */ bne $s0,$a2,.NB00013364
|
|
/* 133b0: 26310008 */ addiu $s1,$s1,0x8
|
|
.NB000133b4:
|
|
/* 133b4: 54a00027 */ bnezl $a1,.NB00013454
|
|
/* 133b8: 8ca30000 */ lw $v1,0x0($a1)
|
|
/* 133bc: 8e380004 */ lw $t8,0x4($s1)
|
|
/* 133c0: 00008025 */ or $s0,$zero,$zero
|
|
/* 133c4: 24140008 */ addiu $s4,$zero,0x8
|
|
/* 133c8: 0312082b */ sltu $at,$t8,$s2
|
|
/* 133cc: 10200006 */ beqz $at,.NB000133e8
|
|
/* 133d0: 3c13800a */ lui $s3,0x800a
|
|
/* 133d4: 8e39000c */ lw $t9,0xc($s1)
|
|
.NB000133d8:
|
|
/* 133d8: 26310008 */ addiu $s1,$s1,0x8
|
|
/* 133dc: 0332082b */ sltu $at,$t9,$s2
|
|
/* 133e0: 5420fffd */ bnezl $at,.NB000133d8
|
|
/* 133e4: 8e39000c */ lw $t9,0xc($s1)
|
|
.NB000133e8:
|
|
/* 133e8: 8e280000 */ lw $t0,0x0($s1)
|
|
/* 133ec: 2673c3f8 */ addiu $s3,$s3,-15368
|
|
/* 133f0: 56a80017 */ bnel $s5,$t0,.NB00013450
|
|
/* 133f4: 02202825 */ or $a1,$s1,$zero
|
|
/* 133f8: 3c11800a */ lui $s1,0x800a
|
|
/* 133fc: 2631c404 */ addiu $s1,$s1,-15356
|
|
.NB00013400:
|
|
/* 13400: 0c004b24 */ jal memaDefragPass
|
|
/* 13404: 02602025 */ or $a0,$s3,$zero
|
|
/* 13408: 26100001 */ addiu $s0,$s0,0x1
|
|
/* 1340c: 1614fffc */ bne $s0,$s4,.NB00013400
|
|
/* 13410: 00000000 */ sll $zero,$zero,0x0
|
|
/* 13414: 8e690010 */ lw $t1,0x10($s3)
|
|
/* 13418: 0132082b */ sltu $at,$t1,$s2
|
|
/* 1341c: 50200007 */ beqzl $at,.NB0001343c
|
|
/* 13420: 8e2b0000 */ lw $t3,0x0($s1)
|
|
/* 13424: 8e2a000c */ lw $t2,0xc($s1)
|
|
.NB00013428:
|
|
/* 13428: 26310008 */ addiu $s1,$s1,0x8
|
|
/* 1342c: 0152082b */ sltu $at,$t2,$s2
|
|
/* 13430: 5420fffd */ bnezl $at,.NB00013428
|
|
/* 13434: 8e2a000c */ lw $t2,0xc($s1)
|
|
/* 13438: 8e2b0000 */ lw $t3,0x0($s1)
|
|
.NB0001343c:
|
|
/* 1343c: 56ab0004 */ bnel $s5,$t3,.NB00013450
|
|
/* 13440: 02202825 */ or $a1,$s1,$zero
|
|
/* 13444: 1000000b */ beqz $zero,.NB00013474
|
|
/* 13448: 00001025 */ or $v0,$zero,$zero
|
|
/* 1344c: 02202825 */ or $a1,$s1,$zero
|
|
.NB00013450:
|
|
/* 13450: 8ca30000 */ lw $v1,0x0($a1)
|
|
.NB00013454:
|
|
/* 13454: 8cad0004 */ lw $t5,0x4($a1)
|
|
/* 13458: 00726021 */ addu $t4,$v1,$s2
|
|
/* 1345c: 01b27023 */ subu $t6,$t5,$s2
|
|
/* 13460: acac0000 */ sw $t4,0x0($a1)
|
|
/* 13464: 15c00002 */ bnez $t6,.NB00013470
|
|
/* 13468: acae0004 */ sw $t6,0x4($a1)
|
|
/* 1346c: aca00000 */ sw $zero,0x0($a1)
|
|
.NB00013470:
|
|
/* 13470: 00601025 */ or $v0,$v1,$zero
|
|
.NB00013474:
|
|
/* 13474: 8fbf002c */ lw $ra,0x2c($sp)
|
|
/* 13478: 8fb00014 */ lw $s0,0x14($sp)
|
|
/* 1347c: 8fb10018 */ lw $s1,0x18($sp)
|
|
/* 13480: 8fb2001c */ lw $s2,0x1c($sp)
|
|
/* 13484: 8fb30020 */ lw $s3,0x20($sp)
|
|
/* 13488: 8fb40024 */ lw $s4,0x24($sp)
|
|
/* 1348c: 8fb50028 */ lw $s5,0x28($sp)
|
|
/* 13490: 03e00008 */ jr $ra
|
|
/* 13494: 27bd0030 */ addiu $sp,$sp,0x30
|
|
);
|
|
#endif
|
|
|
|
//void *memaAlloc(u32 size)
|
|
//{
|
|
// u32 addr;
|
|
// u32 diff;
|
|
// s32 i;
|
|
//
|
|
// struct memaspace *curr = &g_MemaHeap.spaces[0];
|
|
// u32 bestdiff = 0xffffffff;
|
|
// struct memaspace *best = NULL;
|
|
//
|
|
// // Iterate up to the first 16 spaces, looking for the
|
|
// // smallest space that will accommodate the requested size.
|
|
// for (i = 0; i < 16; i++) {
|
|
// if (curr->size >= size) {
|
|
// if (curr->addr == 0xffffffff) {
|
|
// // Reached the end
|
|
// break;
|
|
// }
|
|
//
|
|
// diff = curr->size - size;
|
|
//
|
|
// if (diff < bestdiff) {
|
|
// bestdiff = diff;
|
|
// best = curr;
|
|
//
|
|
// // Stop looking if the space is small enough
|
|
//#if VERSION >= VERSION_NTSC_1_0
|
|
// if (diff < 64 || (IS8MB() && diff < size / 4))
|
|
//#else
|
|
// if (diff < 64 || diff < size / 4)
|
|
//#endif
|
|
// {
|
|
// break;
|
|
// }
|
|
// }
|
|
// }
|
|
//
|
|
// curr++;
|
|
// }
|
|
//
|
|
// if (best == NULL) {
|
|
// // Keep iterating until we find a space that is big enough to fit.
|
|
// // The last space is marked as size 0xffffffff which prevents this loop
|
|
// // from iterating past the end of the spaces array.
|
|
// while (curr->size < size) {
|
|
// curr++;
|
|
// }
|
|
//
|
|
// if (curr->addr == 0xffffffff) {
|
|
// // There was no space, so attempt to free up some space
|
|
// // by doing several defrag passes
|
|
// for (i = 0; i < 8; i++) {
|
|
// memaDefragPass(&g_MemaHeap);
|
|
// }
|
|
//
|
|
// curr = &g_MemaHeap.spaces[0];
|
|
//
|
|
// while (curr->size < size) {
|
|
// curr++;
|
|
// }
|
|
//
|
|
// if (curr->addr == 0xffffffff) {
|
|
// return NULL;
|
|
// }
|
|
// }
|
|
//
|
|
// best = curr;
|
|
// }
|
|
//
|
|
// addr = best->addr;
|
|
// best->addr += size;
|
|
// best->size -= size;
|
|
//
|
|
// if (best->size == 0) {
|
|
// best->addr = 0;
|
|
// }
|
|
//
|
|
// return (void *)addr;
|
|
//}
|
|
|
|
GLOBAL_ASM(
|
|
glabel func00012c3c
|
|
/* 12c3c: 3c0f800a */ lui $t7,%hi(g_MemaHeap+0xc)
|
|
/* 12c40: 8def9484 */ lw $t7,%lo(g_MemaHeap+0xc)($t7)
|
|
/* 12c44: 3c0e800a */ lui $t6,%hi(g_MemaHeap+0xc)
|
|
/* 12c48: 2407ffff */ addiu $a3,$zero,-1
|
|
/* 12c4c: 25ce9484 */ addiu $t6,$t6,%lo(g_MemaHeap+0xc)
|
|
/* 12c50: 00a03025 */ or $a2,$a1,$zero
|
|
/* 12c54: 10ef000c */ beq $a3,$t7,.L00012c88
|
|
/* 12c58: 01c01025 */ or $v0,$t6,$zero
|
|
/* 12c5c: 8dc30000 */ lw $v1,0x0($t6)
|
|
.L00012c60:
|
|
/* 12c60: 54830006 */ bnel $a0,$v1,.L00012c7c
|
|
/* 12c64: 8c430008 */ lw $v1,0x8($v0)
|
|
/* 12c68: 8c450004 */ lw $a1,0x4($v0)
|
|
/* 12c6c: 00a6082b */ sltu $at,$a1,$a2
|
|
/* 12c70: 50200008 */ beqzl $at,.L00012c94
|
|
/* 12c74: 0066c021 */ addu $t8,$v1,$a2
|
|
/* 12c78: 8c430008 */ lw $v1,0x8($v0)
|
|
.L00012c7c:
|
|
/* 12c7c: 24420008 */ addiu $v0,$v0,0x8
|
|
/* 12c80: 14e3fff7 */ bne $a3,$v1,.L00012c60
|
|
/* 12c84: 00000000 */ nop
|
|
.L00012c88:
|
|
/* 12c88: 03e00008 */ jr $ra
|
|
/* 12c8c: 00001025 */ or $v0,$zero,$zero
|
|
/* 12c90: 0066c021 */ addu $t8,$v1,$a2
|
|
.L00012c94:
|
|
/* 12c94: 00a6c823 */ subu $t9,$a1,$a2
|
|
/* 12c98: ac580000 */ sw $t8,0x0($v0)
|
|
/* 12c9c: 17200002 */ bnez $t9,.L00012ca8
|
|
/* 12ca0: ac590004 */ sw $t9,0x4($v0)
|
|
/* 12ca4: ac400000 */ sw $zero,0x0($v0)
|
|
.L00012ca8:
|
|
/* 12ca8: 00801025 */ or $v0,$a0,$zero
|
|
/* 12cac: 03e00008 */ jr $ra
|
|
/* 12cb0: 00000000 */ nop
|
|
);
|
|
|
|
GLOBAL_ASM(
|
|
glabel func00012cb4
|
|
/* 12cb4: 27bdffe8 */ addiu $sp,$sp,-24
|
|
/* 12cb8: afbf0014 */ sw $ra,0x14($sp)
|
|
/* 12cbc: 0c004a45 */ jal func00012914
|
|
/* 12cc0: 00000000 */ nop
|
|
/* 12cc4: 8fbf0014 */ lw $ra,0x14($sp)
|
|
/* 12cc8: 27bd0018 */ addiu $sp,$sp,0x18
|
|
/* 12ccc: 03e00008 */ jr $ra
|
|
/* 12cd0: 00000000 */ nop
|
|
/* 12cd4: 03e00008 */ jr $ra
|
|
/* 12cd8: 00000000 */ nop
|
|
);
|
|
|
|
/**
|
|
* Find and return the largest amount of contiguous free space in the pool.
|
|
* ie. the biggest allocation that mema can currently make.
|
|
*/
|
|
s32 memaGetLongestFree(void)
|
|
{
|
|
struct memaspace *curr;
|
|
s32 biggest = 0;
|
|
|
|
memaDefrag();
|
|
|
|
curr = &g_MemaHeap.spaces[1];
|
|
|
|
while (curr->addr != -1) {
|
|
if (curr->size > biggest) {
|
|
biggest = curr->size;
|
|
}
|
|
|
|
curr++;
|
|
}
|
|
|
|
if (biggest) {
|
|
return biggest;
|
|
}
|
|
|
|
return 0;
|
|
}
|
|
|
|
GLOBAL_ASM(
|
|
glabel func00012d48
|
|
/* 12d48: 27bdffe8 */ addiu $sp,$sp,-24
|
|
/* 12d4c: 00a6082b */ sltu $at,$a1,$a2
|
|
/* 12d50: afbf0014 */ sw $ra,0x14($sp)
|
|
/* 12d54: afa40018 */ sw $a0,0x18($sp)
|
|
/* 12d58: 10200008 */ beqz $at,.L00012d7c
|
|
/* 12d5c: 00a03825 */ or $a3,$a1,$zero
|
|
/* 12d60: 00852021 */ addu $a0,$a0,$a1
|
|
/* 12d64: 0c004b0f */ jal func00012c3c
|
|
/* 12d68: 00c52823 */ subu $a1,$a2,$a1
|
|
/* 12d6c: 5440000a */ bnezl $v0,.L00012d98
|
|
/* 12d70: 24020001 */ addiu $v0,$zero,0x1
|
|
/* 12d74: 10000008 */ b .L00012d98
|
|
/* 12d78: 00001025 */ or $v0,$zero,$zero
|
|
.L00012d7c:
|
|
/* 12d7c: 00c7082b */ sltu $at,$a2,$a3
|
|
/* 12d80: 10200004 */ beqz $at,.L00012d94
|
|
/* 12d84: 8faf0018 */ lw $t7,0x18($sp)
|
|
/* 12d88: 01e62021 */ addu $a0,$t7,$a2
|
|
/* 12d8c: 0c004b2d */ jal func00012cb4
|
|
/* 12d90: 00e62823 */ subu $a1,$a3,$a2
|
|
.L00012d94:
|
|
/* 12d94: 24020001 */ addiu $v0,$zero,0x1
|
|
.L00012d98:
|
|
/* 12d98: 8fbf0014 */ lw $ra,0x14($sp)
|
|
/* 12d9c: 27bd0018 */ addiu $sp,$sp,0x18
|
|
/* 12da0: 03e00008 */ jr $ra
|
|
/* 12da4: 00000000 */ nop
|
|
/* 12da8: 3c02800a */ lui $v0,%hi(var80099474)
|
|
/* 12dac: 03e00008 */ jr $ra
|
|
/* 12db0: 8c429474 */ lw $v0,%lo(var80099474)($v0)
|
|
);
|