File: spill.c

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (56 lines) | stat: -rw-r--r-- 1,184 bytes parent folder | download | duplicates (2)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
/*
  !!DESCRIPTION!! register spilling
  !!ORIGIN!!      LCC 4.1 Testsuite
  !!LICENCE!!     own, freely distributeable for non-profit. read CPYRIGHT.LCC
*/

#include "common.h"
#include <stdio.h>

int main(void)
{
    printf("disassemble this program to check the generated code.\n");
    return 0;
}

#ifdef NO_EMPTY_FUNC_ARGS
        f(i){return i+i;}
        f2(i){return f(i)+(i?f(i):1);}
        f3(int i,int *p){
        register r1=0,r2=0,r3=0,r4=0,r5=0,r6=0,r7=0,r8=0,r9=0,r10=0;
                *p++=i?f(i):0;
        }
#else
        f(i){i=f()+f();}
        f2(i){i=f()+(i?f():1);}
        f3(int i,int *p){
        register r1=0,r2=0,r3=0,r4=0,r5=0,r6=0,r7=0,r8=0,r9=0,r10=0;
                *p++=i?f():0;
        }
#endif

#ifdef NO_FLOATS
        signed a[10],b[10];
#else
        double a[10],b[10];
#endif

int i;

f4(){
register r6=0,r7=0,r8=0,r9=0,r10=0,r11=0;
        i=a[i]+b[i] && i && a[i]-b[i];
}
/* f4 causes parent to spill child on vax when odd double regs are enabled */

int j, k, m, n;
#ifdef NO_FLOATS
        signed *A, *B, x;
#else
        double *A, *B, x;
#endif

f5(){
        x=A[k*m]*A[j*m]+B[k*n]*B[j*n];
        x=A[k*m]*B[j*n]-B[k*n]*A[j*m];
}