← Back to branch summary

~ubuntu-branches/ubuntu/hoary/scilab/hoary

« back to all changes in this revision

Viewing changes to routines/int/genmax2.c

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2005-01-09 22:58:21 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20050109225821-473xr8vhgugxxx5j
Tags: 3.0-12
http://bugs.debian.org/255869
changed configure.in to build scilab's own malloc.o, closes: #255869

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/int/genmax2.c
1
1
#include "../machine.h"
2
 
typedef char integer1;
 
2
typedef signed char integer1;
3
3
typedef short integer2;
4
 
/*     Copyright INRIA */
 
4
/*     Author: Serge Steer, Copyright INRIA */
5
5
 
6
6
#define MAX2(Xtype,Ytype) {\
7
7
Xtype *DX;\
19
19
    }\
20
20
}
21
21
 
22
 
int C2F(genmax2)(n, dx, incx, xtyp, dy, ytyp, ind, no)
 
22
void C2F(genmax2)(n, dx, incx, xtyp, dy, ytyp, ind, no)
23
23
integer *n, *no;
24
24
integer *xtyp, *ytyp;
25
25
integer *incx;
29
29
{
30
30
 
31
31
  static integer i,ix;
32
 
 
 
32
  /*  printf("%d %d\n",*xtyp,*ytyp);*/
33
33
 
34
34
  switch (*xtyp) {
35
35
  case 0:
37
37
    case 0:
38
38
      MAX2(double,double);
39
39
      break;
 
40
    case 4:
 
41
      MAX2(double,integer);
 
42
      break;
 
43
    case 2:
 
44
      MAX2(double,integer2);
 
45
      break;
 
46
    case 1:
 
47
      MAX2(double,integer1);
 
48
      break;
 
49
    case 14:
 
50
      MAX2(double,unsigned int);
 
51
      break;
 
52
    case 12:
 
53
      MAX2(double,unsigned short);
 
54
      break;
 
55
    case 11:
 
56
      MAX2(double,unsigned char);
 
57
      break;
40
58
    }
41
59
    break;
42
60
  case 1:
44
62
    case 0:
45
63
      MAX2(integer1,double);
46
64
      break;
 
65
    case 4:
 
66
      MAX2(integer1,integer);
 
67
      break;
 
68
    case 2:
 
69
      MAX2(integer1,integer2);
 
70
      break;
47
71
    case 1:
48
72
      MAX2(integer1,integer1);
49
73
      break;
 
74
    case 14:
 
75
      MAX2(integer1,unsigned int);
 
76
      break;
 
77
    case 12:
 
78
      MAX2(integer1,unsigned short);
 
79
      break;
 
80
    case 11:
 
81
      MAX2(integer1,unsigned char);
 
82
      break;
50
83
    }
51
84
    break;
52
85
  case 2:
54
87
    case 0:
55
88
      MAX2(integer2,double);
56
89
      break;
 
90
    case 4:
 
91
      MAX2(integer2,integer);
 
92
      break;
57
93
    case 2:
58
94
      MAX2(integer2,integer2);
59
95
      break;
60
 
    case 4:
61
 
      MAX2(integer2,integer);
 
96
    case 1:
 
97
      MAX2(integer2,integer1);
 
98
      break;
 
99
    case 14:
 
100
      MAX2(integer2,unsigned int);
62
101
      break;
63
102
    case 12:
64
103
      MAX2(integer2,unsigned short);
65
104
      break;
66
 
    case 14:
67
 
      MAX2(integer2,unsigned int);
 
105
    case 11:
 
106
      MAX2(integer2,unsigned char);
68
107
      break;
69
108
    }
70
109
    break;
73
112
    case 0:
74
113
      MAX2(integer,double);
75
114
      break;
76
 
    case 4:
77
 
      MAX2(integer,integer);
78
 
      break;
79
 
    case 14:
80
 
      MAX2(integer,unsigned int);
 
115
    case 2:
 
116
      MAX2(integer,integer2);
 
117
      break;
 
118
    case 4:
 
119
      MAX2(integer,integer);
 
120
      break;
 
121
    case 11:
 
122
      MAX2(integer,unsigned char);
 
123
      break;
 
124
    case 12:
 
125
      MAX2(integer,unsigned short);
 
126
      break;
 
127
    case 14:
 
128
      MAX2(integer,unsigned int);
 
129
      break;
 
130
    }
 
131
    break;
 
132
  case 11:
 
133
    switch (*ytyp) {
 
134
    case 0:
 
135
      MAX2(unsigned char,double);
 
136
      break;
 
137
    case 4:
 
138
      MAX2(unsigned char,integer);
 
139
      break;
 
140
    case 2:
 
141
      MAX2(unsigned char,integer2);
 
142
      break;
 
143
    case 1:
 
144
      MAX2(unsigned char,integer1);
 
145
      break;
 
146
    case 14:
 
147
      MAX2(unsigned char,unsigned int);
 
148
      break;
 
149
    case 12:
 
150
      MAX2(unsigned char,unsigned short);
 
151
      break;
 
152
    case 11:
 
153
      MAX2(unsigned char,unsigned char);
 
154
      break;
 
155
    }
 
156
    break;
 
157
  case 12:
 
158
    switch (*ytyp) {
 
159
    case 0:
 
160
      MAX2(unsigned short,double);
 
161
      break;
 
162
    case 4:
 
163
      MAX2(unsigned short,integer);
 
164
      break;
 
165
    case 2:
 
166
      MAX2(unsigned short,integer2);
 
167
      break;
 
168
    case 1:
 
169
      MAX2(unsigned short,integer1);
 
170
      break;
 
171
    case 14:
 
172
      MAX2(unsigned short,unsigned int);
 
173
      break;
 
174
    case 12:
 
175
      MAX2(unsigned short,unsigned short);
 
176
      break;
 
177
    case 11:
 
178
      MAX2(unsigned short,unsigned char);
 
179
      break;
 
180
    }
 
181
    break;
 
182
  case 14:
 
183
    switch (*ytyp) {
 
184
    case 0:
 
185
      MAX2(integer,double);
 
186
      break;
 
187
    case 4:
 
188
      MAX2(integer,integer);
 
189
      break;
 
190
    case 2:
 
191
      MAX2(integer,integer2);
 
192
      break;
 
193
    case 1:
 
194
      MAX2(integer,integer1);
 
195
      break;
 
196
    case 14:
 
197
      MAX2(integer,unsigned int);
 
198
      break;
 
199
    case 12:
 
200
      MAX2(integer,unsigned short);
 
201
      break;
 
202
    case 11:
 
203
      MAX2(integer,unsigned char);
81
204
      break;
82
205
    }
83
206
    break;