364 lines
8.3 KiB
C
364 lines
8.3 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.
|
|
*/
|
|
|
|
|
|
|
|
/* End of coptptrload.h */
|
|
|
|
#endif
|