6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-07-05 06:28:57 +00:00
Code Issues Projects Releases Wiki Activity

Added a comment

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@3348 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
cuz 2005-01-05 21:05:35 +00:00
parent 842ff39d4c
commit 18e3e7cb11
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
libsrc/common/free.s
View File

@ -274,6 +274,11 @@ _free: sta ptr2
; } ; }
; } ; }
; ;
;
; On entry, ptr2 must contain a pointer to the block, which must be at least
; HEAP_MIN_BLOCKSIZE bytes in size, and ptr1 contains the total size of the
; block.
;
; Check if the free list is empty, storing _hfirst into ptr3 for later ; Check if the free list is empty, storing _hfirst into ptr3 for later
@ -330,7 +335,7 @@ SearchFreeList:
dey ; Points to next dey ; Points to next
lda (ptr3),y ; right = right->next; lda (ptr3),y ; right = right->next;
tax tax
iny ; Points to next+1 iny ; Points to next+1
lda (ptr3),y lda (ptr3),y
stx ptr3 stx ptr3
sta ptr3+1 sta ptr3+1
@ -494,13 +499,13 @@ CheckLeftMerge2:
; Do left->next->prev = left ; Do left->next->prev = left
iny ; Points to prev iny ; Points to prev
lda ptr4 ; Low byte of left lda ptr4 ; Low byte of left
sta (ptr1),y sta (ptr1),y
iny iny
lda ptr4+1 ; High byte of left lda ptr4+1 ; High byte of left
sta (ptr1),y sta (ptr1),y
rts ; Done rts ; Done
; This is now the last block, do _heaplast = left ; This is now the last block, do _heaplast = left
@ -514,7 +519,7 @@ CheckLeftMerge2:
; we come here. Do left->next = f. ; we come here. Do left->next = f.
NoLeftMerge: NoLeftMerge:
iny ; Points to next iny ; Points to next
lda ptr2 ; Low byte of left lda ptr2 ; Low byte of left
sta (ptr4),y sta (ptr4),y
iny iny
@ -523,13 +528,13 @@ NoLeftMerge:
; Do f->prev = left ; Do f->prev = left
iny ; Points to prev iny ; Points to prev
lda ptr4 lda ptr4
sta (ptr2),y sta (ptr2),y
iny iny
lda ptr4+1 lda ptr4+1
sta (ptr2),y sta (ptr2),y
rts ; Done rts ; Done