/[gcl]/gcl/o/plttest.c
ViewVC logotype

Diff of /gcl/o/plttest.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.8 by camm, Sat Jun 18 22:00:44 2005 UTC revision 1.9 by camm, Sun Sep 18 02:48:59 2005 UTC
# Line 7  Line 7 
7      that the compiler will make *direct* reference.  20040308 CM */      that the compiler will make *direct* reference.  20040308 CM */
8    
9  extern int _mcount();  extern int _mcount();
10    #define mmcount _mcount
11    
12  int  int
13  main(int argc,char * argv[],char *envp[]) {  main(int argc,char * argv[],char *envp[]) {
# Line 15  main(int argc,char * argv[],char *envp[] Line 16  main(int argc,char * argv[],char *envp[]
16    char ch=0;    char ch=0;
17    jmp_buf env;    jmp_buf env;
18    double d=0.1;    double d=0.1;
19      long l;
20      unsigned long ul;
21    
22    bzero(&env,sizeof(env));    bzero(&env,sizeof(env));
23    memset(&env,0,sizeof(env));    memset(&env,0,sizeof(env));
24      
25      ul=*(unsigned long *)envp;
26      ul=ul%(ul>>(ul & 0x3));
27      l=*(long *)argv;
28      l=l%(l<<(l & 0x7));
29    
30    getc(f);    ch=getc(f);
31    putc(ch,f);    ch&=putc(ch,f);
32    
33    _mcount();    ch&=mmcount();
34    
35    setjmp(env);    setjmp(env);
36    
37    cos(d);    d=cos(d);
38    sin(d);    d=sin(d);
39    tan(d);    d=tan(d);
40    
41    acos(d);    d=acos(d);
42    asin(d);    d=asin(d);
43    atan(d);    d=atan(d);
44    
45    cosh(d);    d=cosh(d);
46    sinh(d);    d=sinh(d);
47    tanh(d);    d=tanh(d);
48    
49  #ifndef _WIN32  #ifndef _WIN32
50    acosh(d);    d=acosh(d);
51    asinh(d);    d=asinh(d);
52    atanh(d);    d=atanh(d);
53  #endif  #endif
54    
55    exp(d);    d=exp(d);
56    log(d);    d=log(d);
57    
58    sqrt(d);    d=sqrt(d);
59        
60    return 0;    return ul & l & ((unsigned long)d) & ch;
61    
62  }  }

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26