empathicqubit/cc65
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Detect an additional sequence that is used with pointers in register

Browse source 
variables.


git-svn-id: svn://svn.cc65.org/cc65/trunk@5688 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz 2012-06-06 21:51:10 +00:00
parent 279dc29b45
commit fe1c4cd46b
1 changed files with 40 additions and 28 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

68
src/cc65/coptptrload.c
View file

@ -1227,11 +1227,15 @@ unsigned OptPtrLoad15 (CodeSeg* S)
* *
* lda zp * lda zp
* ldx zp+1 * ldx zp+1
* jsr pushax <- optional
* ldy xx * ldy xx
* jsr ldaxidx * jsr ldaxidx
* *
* and replace it by: * and replace it by:
* *
* lda zp <- only if
* ldx zp+1 <- call to
* jsr pushax <- pushax present
* ldy xx * ldy xx
* lda (zp),y * lda (zp),y
* tax * tax
@ -1243,50 +1247,58 @@ unsigned OptPtrLoad15 (CodeSeg* S)
/* Walk over the entries */ /* Walk over the entries */
unsigned I = 0; unsigned I = 0;
while (I < CS_GetEntryCount (S)) { while (I < CS_GetEntryCount (S) - 3) {
CodeEntry* L[4]; CodeEntry* L[5];
unsigned Len; unsigned Len;
/* Get next entry */ /* Get next 3 entries */
L[0] = CS_GetEntry (S, I); CS_GetEntries (S, L, I, 3);
/* Check for the sequence */ /* Check for the start of the sequence */
if (L[0]->OPC == OP65_LDA && L[0]->AM == AM65_ZP && if (L[0]->OPC == OP65_LDA && L[0]->AM == AM65_ZP &&
CS_GetEntries (S, L+1, I+1, 3) &&
!CS_RangeHasLabel (S, I+1, 3) &&
L[1]->OPC == OP65_LDX && L[1]->AM == AM65_ZP && L[1]->OPC == OP65_LDX && L[1]->AM == AM65_ZP &&
!CS_RangeHasLabel (S, I+1, 2) &&
(Len = strlen (L[0]->Arg)) > 0 && (Len = strlen (L[0]->Arg)) > 0 &&
strncmp (L[0]->Arg, L[1]->Arg, Len) == 0 && strncmp (L[0]->Arg, L[1]->Arg, Len) == 0 &&
strcmp (L[1]->Arg + Len, "+1") == 0 && strcmp (L[1]->Arg + Len, "+1") == 0) {
L[2]->OPC == OP65_LDY &&
CE_IsCallTo (L[3], "ldaxidx")) {
CodeEntry* X; unsigned PushAX = CE_IsCallTo (L[2], "pushax");
/* lda (zp),y */ /* Check for the remainder of the sequence */
X = NewCodeEntry (OP65_LDA, AM65_ZP_INDY, L[0]->Arg, 0, L[3]->LI); if (CS_GetEntries (S, L+3, I+3, 1 + PushAX) &&
CS_InsertEntry (S, X, I+4); !CS_RangeHasLabel (S, I+3, 1 + PushAX) &&
L[2+PushAX]->OPC == OP65_LDY &&
CE_IsCallTo (L[3+PushAX], "ldaxidx")) {
/* tax */ CodeEntry* X;
X = NewCodeEntry (OP65_TAX, AM65_IMP, 0, 0, L[3]->LI);
CS_InsertEntry (S, X, I+5);
/* dey */ /* lda (zp),y */
X = NewCodeEntry (OP65_DEY, AM65_IMP, 0, 0, L[3]->LI); X = NewCodeEntry (OP65_LDA, AM65_ZP_INDY, L[0]->Arg, 0, L[3]->LI);
CS_InsertEntry (S, X, I+6); CS_InsertEntry (S, X, I+PushAX+4);
/* lda (zp),y */ /* tax */
X = NewCodeEntry (OP65_LDA, AM65_ZP_INDY, L[0]->Arg, 0, L[3]->LI); X = NewCodeEntry (OP65_TAX, AM65_IMP, 0, 0, L[3]->LI);
CS_InsertEntry (S, X, I+7); CS_InsertEntry (S, X, I+PushAX+5);
/* Remove the old code */ /* dey */
CS_DelEntry (S, I+3); X = NewCodeEntry (OP65_DEY, AM65_IMP, 0, 0, L[3]->LI);
CS_DelEntries (S, I, 2); CS_InsertEntry (S, X, I+PushAX+6);
/* Remember, we had changes */ /* lda (zp),y */
++Changes; X = NewCodeEntry (OP65_LDA, AM65_ZP_INDY, L[0]->Arg, 0, L[3]->LI);
CS_InsertEntry (S, X, I+PushAX+7);
/* Remove the old code */
CS_DelEntry (S, I+PushAX+3);
if (!PushAX) {
CS_DelEntries (S, I, 2);
}
/* Remember, we had changes */
++Changes;
}
} }
/* Next entry */ /* Next entry */