mirror of https://github.com/cc65/cc65.git
411 lines
9.2 KiB
C
411 lines
9.2 KiB
C
/*****************************************************************************/
|
|
/* */
|
|
/* coptptrload.h */
|
|
/* */
|
|
/* Optimize loads through pointers */
|
|
/* */
|
|
/* */
|
|
/* */
|
|
/* (C) 2001-2009 Ullrich von Bassewitz */
|
|
/* Roemerstrasse 52 */
|
|
/* D-70794 Filderstadt */
|
|
/* EMail: uz@cc65.org */
|
|
/* */
|
|
/* */
|
|
/* This software is provided 'as-is', without any expressed or implied */
|
|
/* warranty. In no event will the authors be held liable for any damages */
|
|
/* arising from the use of this software. */
|
|
/* */
|
|
/* Permission is granted to anyone to use this software for any purpose, */
|
|
/* including commercial applications, and to alter it and redistribute it */
|
|
/* freely, subject to the following restrictions: */
|
|
/* */
|
|
/* 1. The origin of this software must not be misrepresented; you must not */
|
|
/* claim that you wrote the original software. If you use this software */
|
|
/* in a product, an acknowledgment in the product documentation would be */
|
|
/* appreciated but is not required. */
|
|
/* 2. Altered source versions must be plainly marked as such, and must not */
|
|
/* be misrepresented as being the original software. */
|
|
/* 3. This notice may not be removed or altered from any source */
|
|
/* distribution. */
|
|
/* */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
#ifndef COPTPTRLOAD_H
|
|
#define COPTPTRLOAD_H
|
|
|
|
|
|
|
|
/* cc65 */
|
|
#include "codeseg.h"
|
|
|
|
|
|
|
|
/*****************************************************************************/
|
|
/* Code */
|
|
/*****************************************************************************/
|
|
|
|
|
|
|
|
unsigned OptPtrLoad1 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** clc
|
|
** adc xxx
|
|
** tay
|
|
** txa
|
|
** adc yyy
|
|
** tax
|
|
** tya
|
|
** ldy
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** clc
|
|
** adc xxx
|
|
** sta ptr1
|
|
** txa
|
|
** adc yyy
|
|
** sta ptr1+1
|
|
** ldy
|
|
** ldx #$00
|
|
** lda (ptr1),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad2 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** adc xxx
|
|
** pha
|
|
** txa
|
|
** iny
|
|
** adc yyy
|
|
** tax
|
|
** pla
|
|
** ldy
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** adc xxx
|
|
** sta ptr1
|
|
** txa
|
|
** iny
|
|
** adc yyy
|
|
** sta ptr1+1
|
|
** ldy
|
|
** ldx #$00
|
|
** lda (ptr1),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad3 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** lda #<(label+0)
|
|
** ldx #>(label+0)
|
|
** clc
|
|
** adc xxx
|
|
** bcc L
|
|
** inx
|
|
** L: ldy #$00
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy xxx
|
|
** ldx #$00
|
|
** lda label,y
|
|
*/
|
|
|
|
unsigned OptPtrLoad4 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** lda #<(label+0)
|
|
** ldx #>(label+0)
|
|
** ldy #$xx
|
|
** clc
|
|
** adc (sp),y
|
|
** bcc L
|
|
** inx
|
|
** L: ldy #$00
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy #$xx
|
|
** lda (sp),y
|
|
** tay
|
|
** ldx #$00
|
|
** lda label,y
|
|
*/
|
|
|
|
unsigned OptPtrLoad5 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** jsr pushax
|
|
** ldx #$00
|
|
** lda yyy
|
|
** jsr tosaddax
|
|
** ldy #$00
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** sta ptr1
|
|
** stx ptr1+1
|
|
** ldy yyy
|
|
** lda (ptr1),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad6 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** jsr pushax
|
|
** ldy xxx
|
|
** ldx #$00
|
|
** lda (sp),y
|
|
** jsr tosaddax
|
|
** ldy #$00
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** sta ptr1
|
|
** stx ptr1+1
|
|
** ldy xxx
|
|
** lda (sp),y
|
|
** tay
|
|
** lda (ptr1),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad7 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** jsr aslax1/shlax1
|
|
** clc
|
|
** adc xxx
|
|
** tay
|
|
** txa
|
|
** adc yyy
|
|
** tax
|
|
** tya
|
|
** ldy zzz
|
|
** jsr ldaxidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** stx tmp1
|
|
** asl a
|
|
** rol tmp1
|
|
** clc
|
|
** adc xxx
|
|
** sta ptr1
|
|
** lda tmp1
|
|
** adc yyy
|
|
** sta ptr1+1
|
|
** ldy zzz
|
|
** lda (ptr1),y
|
|
** tax
|
|
** dey
|
|
** lda (ptr1),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad11 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** clc
|
|
** adc xxx
|
|
** bcc L
|
|
** inx
|
|
** L: ldy #$00
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy xxx
|
|
** sta ptr1
|
|
** stx ptr1+1
|
|
** ldx #$00
|
|
** lda (ptr1),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad12 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** lda regbank+n
|
|
** ldx regbank+n+1
|
|
** sta regsave
|
|
** stx regsave+1
|
|
** clc
|
|
** adc #$01
|
|
** bcc L0005
|
|
** inx
|
|
** L: sta regbank+n
|
|
** stx regbank+n+1
|
|
** lda regsave
|
|
** ldx regsave+1
|
|
** ldy #$00
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy #$00
|
|
** ldx #$00
|
|
** lda (regbank+n),y
|
|
** inc regbank+n
|
|
** bne L1
|
|
** inc regbank+n+1
|
|
** L1: tay <- only if flags are used
|
|
**
|
|
** This function must execute before OptPtrLoad7!
|
|
**
|
|
*/
|
|
|
|
unsigned OptPtrLoad13 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** lda zp
|
|
** ldx zp+1
|
|
** ldy xx
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy xx
|
|
** ldx #$00
|
|
** lda (zp),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad14 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** lda zp
|
|
** ldx zp+1
|
|
** (anything that doesn't change a/x)
|
|
** ldy xx
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** lda zp
|
|
** ldx zp+1
|
|
** (anything that doesn't change a/x)
|
|
** ldy xx
|
|
** ldx #$00
|
|
** lda (zp),y
|
|
**
|
|
** Must execute before OptPtrLoad10!
|
|
*/
|
|
|
|
unsigned OptPtrLoad15 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** lda zp
|
|
** ldx zp+1
|
|
** ldy xx
|
|
** jsr ldaxidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy xx
|
|
** lda (zp),y
|
|
** tax
|
|
** dey
|
|
** lda (zp),y
|
|
*/
|
|
|
|
unsigned OptPtrLoad16 (CodeSeg* S);
|
|
/* Search for the sequence
|
|
**
|
|
** ldy ...
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy ...
|
|
** stx ptr1+1
|
|
** sta ptr1
|
|
** ldx #$00
|
|
** lda (ptr1),y
|
|
**
|
|
** This step must be executed *after* OptPtrLoad1!
|
|
*/
|
|
|
|
unsigned OptPtrLoad17 (CodeSeg* S);
|
|
/* Search for the sequence
|
|
**
|
|
** ldy ...
|
|
** jsr ldaxidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy ...
|
|
** sta ptr1
|
|
** stx ptr1+1
|
|
** lda (ptr1),y
|
|
** tax
|
|
** dey
|
|
** lda (ptr1),y
|
|
**
|
|
** This step must be executed *after* OptPtrLoad9! While code size increases
|
|
** by more than 200%, inlining will greatly improve visibility for the
|
|
** optimizer, so often part of the code gets improved later. So we will mark
|
|
** the step with less than 200% so it gets executed when -Oi is in effect.
|
|
*/
|
|
|
|
unsigned OptPtrLoad18 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** ldx #$xx
|
|
** lda #$yy
|
|
** clc
|
|
** adc xxx
|
|
** bcc L
|
|
** inx
|
|
** L: ldy #$00
|
|
** jsr ldauidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** ldy xxx
|
|
** ldx #$00
|
|
** lda $xxyy,y
|
|
**
|
|
** This is similar to OptPtrLoad3 but works on a constant address
|
|
** instead of a label. Also, the initial X and A loads are reversed.
|
|
*/
|
|
|
|
|
|
unsigned OptPtrLoad19 (CodeSeg* S);
|
|
/* Search for the sequence:
|
|
**
|
|
** ldx #0
|
|
** and #mask (any value < 0x80)
|
|
** jsr aslax1/shlax1
|
|
** clc
|
|
** adc #<(label+0)
|
|
** tay
|
|
** txa
|
|
** adc #>(label+0)
|
|
** tax
|
|
** tya
|
|
** ldy #$01
|
|
** jsr ldaxidx
|
|
**
|
|
** and replace it by:
|
|
**
|
|
** and #mask (remove if == 0x7F)
|
|
** asl
|
|
** tay
|
|
** lda label,y
|
|
** ldx label+1,y
|
|
*/
|
|
|
|
|
|
/* End of coptptrload.h */
|
|
|
|
#endif
|