Coverage Report

Created: 2026-09-14 07:34

next uncovered line (L), next uncovered region (R), next uncovered branch (B)
/src/ghostpdl/tiff/libtiff/tif_dirread.c
Line
Count
Source
1
/*
2
 * Copyright (c) 1988-1997 Sam Leffler
3
 * Copyright (c) 1991-1997 Silicon Graphics, Inc.
4
 *
5
 * Permission to use, copy, modify, distribute, and sell this software and
6
 * its documentation for any purpose is hereby granted without fee, provided
7
 * that (i) the above copyright notices and this permission notice appear in
8
 * all copies of the software and related documentation, and (ii) the names of
9
 * Sam Leffler and Silicon Graphics may not be used in any advertising or
10
 * publicity relating to the software without the specific, prior written
11
 * permission of Sam Leffler and Silicon Graphics.
12
 *
13
 * THE SOFTWARE IS PROVIDED "AS-IS" AND WITHOUT WARRANTY OF ANY KIND,
14
 * EXPRESS, IMPLIED OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
15
 * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
16
 *
17
 * IN NO EVENT SHALL SAM LEFFLER OR SILICON GRAPHICS BE LIABLE FOR
18
 * ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF ANY KIND,
19
 * OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
20
 * WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND ON ANY THEORY OF
21
 * LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE
22
 * OF THIS SOFTWARE.
23
 */
24
25
/*
26
 * TIFF Library.
27
 *
28
 * Directory Read Support Routines.
29
 */
30
31
/* Suggested pending improvements:
32
 * - add a field 'field_info' to the TIFFDirEntry structure, and set that with
33
 *   the pointer to the appropriate TIFFField structure early on in
34
 *   TIFFReadDirectory, so as to eliminate current possibly repetitive lookup.
35
 */
36
37
#include "tiffconf.h"
38
#include "tiffiop.h"
39
#include <float.h>
40
#include <limits.h>
41
#include <stdlib.h>
42
#include <string.h>
43
44
56.7k
#define FAILED_FII ((uint32_t)-1)
45
46
#ifdef HAVE_IEEEFP
47
#define TIFFCvtIEEEFloatToNative(tif, n, fp)
48
#define TIFFCvtIEEEDoubleToNative(tif, n, dp)
49
#else
50
extern void TIFFCvtIEEEFloatToNative(TIFF *, uint32_t, float *);
51
extern void TIFFCvtIEEEDoubleToNative(TIFF *, uint32_t, double *);
52
#endif
53
54
enum TIFFReadDirEntryErr
55
{
56
    TIFFReadDirEntryErrOk = 0,
57
    TIFFReadDirEntryErrCount = 1,
58
    TIFFReadDirEntryErrType = 2,
59
    TIFFReadDirEntryErrIo = 3,
60
    TIFFReadDirEntryErrRange = 4,
61
    TIFFReadDirEntryErrPsdif = 5,
62
    TIFFReadDirEntryErrSizesan = 6,
63
    TIFFReadDirEntryErrAlloc = 7,
64
};
65
66
static enum TIFFReadDirEntryErr
67
TIFFReadDirEntryByte(TIFF *tif, TIFFDirEntry *direntry, uint8_t *value);
68
static enum TIFFReadDirEntryErr
69
TIFFReadDirEntrySbyte(TIFF *tif, TIFFDirEntry *direntry, int8_t *value);
70
static enum TIFFReadDirEntryErr
71
TIFFReadDirEntryShort(TIFF *tif, TIFFDirEntry *direntry, uint16_t *value);
72
static enum TIFFReadDirEntryErr
73
TIFFReadDirEntrySshort(TIFF *tif, TIFFDirEntry *direntry, int16_t *value);
74
static enum TIFFReadDirEntryErr
75
TIFFReadDirEntryLong(TIFF *tif, TIFFDirEntry *direntry, uint32_t *value);
76
static enum TIFFReadDirEntryErr
77
TIFFReadDirEntrySlong(TIFF *tif, TIFFDirEntry *direntry, int32_t *value);
78
static enum TIFFReadDirEntryErr
79
TIFFReadDirEntryLong8(TIFF *tif, TIFFDirEntry *direntry, uint64_t *value);
80
static enum TIFFReadDirEntryErr
81
TIFFReadDirEntrySlong8(TIFF *tif, TIFFDirEntry *direntry, int64_t *value);
82
static enum TIFFReadDirEntryErr
83
TIFFReadDirEntryFloat(TIFF *tif, TIFFDirEntry *direntry, float *value);
84
static enum TIFFReadDirEntryErr
85
TIFFReadDirEntryDouble(TIFF *tif, TIFFDirEntry *direntry, double *value);
86
static enum TIFFReadDirEntryErr
87
TIFFReadDirEntryIfd8(TIFF *tif, TIFFDirEntry *direntry, uint64_t *value);
88
89
static enum TIFFReadDirEntryErr
90
TIFFReadDirEntryArray(TIFF *tif, TIFFDirEntry *direntry, uint32_t *count,
91
                      uint32_t desttypesize, void **value);
92
static enum TIFFReadDirEntryErr
93
TIFFReadDirEntryByteArray(TIFF *tif, TIFFDirEntry *direntry, uint8_t **value);
94
static enum TIFFReadDirEntryErr
95
TIFFReadDirEntrySbyteArray(TIFF *tif, TIFFDirEntry *direntry, int8_t **value);
96
static enum TIFFReadDirEntryErr
97
TIFFReadDirEntryShortArray(TIFF *tif, TIFFDirEntry *direntry, uint16_t **value);
98
static enum TIFFReadDirEntryErr
99
TIFFReadDirEntrySshortArray(TIFF *tif, TIFFDirEntry *direntry, int16_t **value);
100
static enum TIFFReadDirEntryErr
101
TIFFReadDirEntryLongArray(TIFF *tif, TIFFDirEntry *direntry, uint32_t **value);
102
static enum TIFFReadDirEntryErr
103
TIFFReadDirEntrySlongArray(TIFF *tif, TIFFDirEntry *direntry, int32_t **value);
104
static enum TIFFReadDirEntryErr
105
TIFFReadDirEntryLong8Array(TIFF *tif, TIFFDirEntry *direntry, uint64_t **value);
106
static enum TIFFReadDirEntryErr
107
TIFFReadDirEntrySlong8Array(TIFF *tif, TIFFDirEntry *direntry, int64_t **value);
108
static enum TIFFReadDirEntryErr
109
TIFFReadDirEntryFloatArray(TIFF *tif, TIFFDirEntry *direntry, float **value);
110
static enum TIFFReadDirEntryErr
111
TIFFReadDirEntryDoubleArray(TIFF *tif, TIFFDirEntry *direntry, double **value);
112
static enum TIFFReadDirEntryErr
113
TIFFReadDirEntryIfd8Array(TIFF *tif, TIFFDirEntry *direntry, uint64_t **value);
114
115
static enum TIFFReadDirEntryErr
116
TIFFReadDirEntryPersampleShort(TIFF *tif, TIFFDirEntry *direntry,
117
                               uint16_t *value);
118
119
static void TIFFReadDirEntryCheckedByte(TIFF *tif, TIFFDirEntry *direntry,
120
                                        uint8_t *value);
121
static void TIFFReadDirEntryCheckedSbyte(TIFF *tif, TIFFDirEntry *direntry,
122
                                         int8_t *value);
123
static void TIFFReadDirEntryCheckedShort(TIFF *tif, TIFFDirEntry *direntry,
124
                                         uint16_t *value);
125
static void TIFFReadDirEntryCheckedSshort(TIFF *tif, TIFFDirEntry *direntry,
126
                                          int16_t *value);
127
static void TIFFReadDirEntryCheckedLong(TIFF *tif, TIFFDirEntry *direntry,
128
                                        uint32_t *value);
129
static void TIFFReadDirEntryCheckedSlong(TIFF *tif, TIFFDirEntry *direntry,
130
                                         int32_t *value);
131
static enum TIFFReadDirEntryErr
132
TIFFReadDirEntryCheckedLong8(TIFF *tif, TIFFDirEntry *direntry,
133
                             uint64_t *value);
134
static enum TIFFReadDirEntryErr
135
TIFFReadDirEntryCheckedSlong8(TIFF *tif, TIFFDirEntry *direntry,
136
                              int64_t *value);
137
static enum TIFFReadDirEntryErr
138
TIFFReadDirEntryCheckedRational(TIFF *tif, TIFFDirEntry *direntry,
139
                                double *value);
140
static enum TIFFReadDirEntryErr
141
TIFFReadDirEntryCheckedSrational(TIFF *tif, TIFFDirEntry *direntry,
142
                                 double *value);
143
static void TIFFReadDirEntryCheckedFloat(TIFF *tif, TIFFDirEntry *direntry,
144
                                         float *value);
145
static enum TIFFReadDirEntryErr
146
TIFFReadDirEntryCheckedDouble(TIFF *tif, TIFFDirEntry *direntry, double *value);
147
#if 0
148
static enum TIFFReadDirEntryErr
149
TIFFReadDirEntryCheckedRationalDirect(TIFF *tif, TIFFDirEntry *direntry,
150
                                      TIFFRational_t *value);
151
#endif
152
static enum TIFFReadDirEntryErr
153
TIFFReadDirEntryCheckRangeByteSbyte(int8_t value);
154
static enum TIFFReadDirEntryErr
155
TIFFReadDirEntryCheckRangeByteShort(uint16_t value);
156
static enum TIFFReadDirEntryErr
157
TIFFReadDirEntryCheckRangeByteSshort(int16_t value);
158
static enum TIFFReadDirEntryErr
159
TIFFReadDirEntryCheckRangeByteLong(uint32_t value);
160
static enum TIFFReadDirEntryErr
161
TIFFReadDirEntryCheckRangeByteSlong(int32_t value);
162
static enum TIFFReadDirEntryErr
163
TIFFReadDirEntryCheckRangeByteLong8(uint64_t value);
164
static enum TIFFReadDirEntryErr
165
TIFFReadDirEntryCheckRangeByteSlong8(int64_t value);
166
167
static enum TIFFReadDirEntryErr
168
TIFFReadDirEntryCheckRangeSbyteByte(uint8_t value);
169
static enum TIFFReadDirEntryErr
170
TIFFReadDirEntryCheckRangeSbyteShort(uint16_t value);
171
static enum TIFFReadDirEntryErr
172
TIFFReadDirEntryCheckRangeSbyteSshort(int16_t value);
173
static enum TIFFReadDirEntryErr
174
TIFFReadDirEntryCheckRangeSbyteLong(uint32_t value);
175
static enum TIFFReadDirEntryErr
176
TIFFReadDirEntryCheckRangeSbyteSlong(int32_t value);
177
static enum TIFFReadDirEntryErr
178
TIFFReadDirEntryCheckRangeSbyteLong8(uint64_t value);
179
static enum TIFFReadDirEntryErr
180
TIFFReadDirEntryCheckRangeSbyteSlong8(int64_t value);
181
182
static enum TIFFReadDirEntryErr
183
TIFFReadDirEntryCheckRangeShortSbyte(int8_t value);
184
static enum TIFFReadDirEntryErr
185
TIFFReadDirEntryCheckRangeShortSshort(int16_t value);
186
static enum TIFFReadDirEntryErr
187
TIFFReadDirEntryCheckRangeShortLong(uint32_t value);
188
static enum TIFFReadDirEntryErr
189
TIFFReadDirEntryCheckRangeShortSlong(int32_t value);
190
static enum TIFFReadDirEntryErr
191
TIFFReadDirEntryCheckRangeShortLong8(uint64_t value);
192
static enum TIFFReadDirEntryErr
193
TIFFReadDirEntryCheckRangeShortSlong8(int64_t value);
194
195
static enum TIFFReadDirEntryErr
196
TIFFReadDirEntryCheckRangeSshortShort(uint16_t value);
197
static enum TIFFReadDirEntryErr
198
TIFFReadDirEntryCheckRangeSshortLong(uint32_t value);
199
static enum TIFFReadDirEntryErr
200
TIFFReadDirEntryCheckRangeSshortSlong(int32_t value);
201
static enum TIFFReadDirEntryErr
202
TIFFReadDirEntryCheckRangeSshortLong8(uint64_t value);
203
static enum TIFFReadDirEntryErr
204
TIFFReadDirEntryCheckRangeSshortSlong8(int64_t value);
205
206
static enum TIFFReadDirEntryErr
207
TIFFReadDirEntryCheckRangeLongSbyte(int8_t value);
208
static enum TIFFReadDirEntryErr
209
TIFFReadDirEntryCheckRangeLongSshort(int16_t value);
210
static enum TIFFReadDirEntryErr
211
TIFFReadDirEntryCheckRangeLongSlong(int32_t value);
212
static enum TIFFReadDirEntryErr
213
TIFFReadDirEntryCheckRangeLongLong8(uint64_t value);
214
static enum TIFFReadDirEntryErr
215
TIFFReadDirEntryCheckRangeLongSlong8(int64_t value);
216
217
static enum TIFFReadDirEntryErr
218
TIFFReadDirEntryCheckRangeSlongLong(uint32_t value);
219
static enum TIFFReadDirEntryErr
220
TIFFReadDirEntryCheckRangeSlongLong8(uint64_t value);
221
static enum TIFFReadDirEntryErr
222
TIFFReadDirEntryCheckRangeSlongSlong8(int64_t value);
223
224
static enum TIFFReadDirEntryErr
225
TIFFReadDirEntryCheckRangeLong8Sbyte(int8_t value);
226
static enum TIFFReadDirEntryErr
227
TIFFReadDirEntryCheckRangeLong8Sshort(int16_t value);
228
static enum TIFFReadDirEntryErr
229
TIFFReadDirEntryCheckRangeLong8Slong(int32_t value);
230
static enum TIFFReadDirEntryErr
231
TIFFReadDirEntryCheckRangeLong8Slong8(int64_t value);
232
233
static enum TIFFReadDirEntryErr
234
TIFFReadDirEntryCheckRangeSlong8Long8(uint64_t value);
235
236
static enum TIFFReadDirEntryErr TIFFReadDirEntryData(TIFF *tif, uint64_t offset,
237
                                                     tmsize_t size, void *dest);
238
static void TIFFReadDirEntryOutputErr(TIFF *tif, enum TIFFReadDirEntryErr err,
239
                                      const char *module, const char *tagname,
240
                                      int recover);
241
242
static void TIFFReadDirectoryCheckOrder(TIFF *tif, TIFFDirEntry *dir,
243
                                        uint16_t dircount);
244
static TIFFDirEntry *TIFFReadDirectoryFindEntry(TIFF *tif, TIFFDirEntry *dir,
245
                                                uint16_t dircount,
246
                                                uint16_t tagid);
247
static void TIFFReadDirectoryFindFieldInfo(TIFF *tif, uint16_t tagid,
248
                                           uint32_t *fii);
249
250
static int EstimateStripByteCounts(TIFF *tif, TIFFDirEntry *dir,
251
                                   uint16_t dircount);
252
static void MissingRequired(TIFF *, const char *);
253
static int CheckDirCount(TIFF *, TIFFDirEntry *, uint32_t);
254
static uint16_t TIFFFetchDirectory(TIFF *tif, uint64_t diroff,
255
                                   TIFFDirEntry **pdir, uint64_t *nextdiroff);
256
static int TIFFFetchNormalTag(TIFF *, TIFFDirEntry *, int recover);
257
static int TIFFFetchStripThing(TIFF *tif, TIFFDirEntry *dir, uint32_t nstrips,
258
                               uint64_t **lpp);
259
static int TIFFFetchSubjectDistance(TIFF *, TIFFDirEntry *);
260
static void ChopUpSingleUncompressedStrip(TIFF *);
261
static void TryChopUpUncompressedBigTiff(TIFF *);
262
static uint64_t TIFFReadUInt64(const uint8_t *value);
263
static int _TIFFGetMaxColorChannels(uint16_t photometric);
264
265
static int _TIFFFillStrilesInternal(TIFF *tif, int loadStripByteCount);
266
267
typedef union _UInt64Aligned_t
268
{
269
    double d;
270
    uint64_t l;
271
    uint32_t i[2];
272
    uint16_t s[4];
273
    uint8_t c[8];
274
} UInt64Aligned_t;
275
276
/*
277
  Unaligned safe copy of a uint64_t value from an octet array.
278
*/
279
static uint64_t TIFFReadUInt64(const uint8_t *value)
280
646
{
281
646
    UInt64Aligned_t result;
282
283
646
    result.c[0] = value[0];
284
646
    result.c[1] = value[1];
285
646
    result.c[2] = value[2];
286
646
    result.c[3] = value[3];
287
646
    result.c[4] = value[4];
288
646
    result.c[5] = value[5];
289
646
    result.c[6] = value[6];
290
646
    result.c[7] = value[7];
291
292
646
    return result.l;
293
646
}
294
295
static enum TIFFReadDirEntryErr
296
TIFFReadDirEntryByte(TIFF *tif, TIFFDirEntry *direntry, uint8_t *value)
297
31
{
298
31
    enum TIFFReadDirEntryErr err;
299
31
    if (direntry->tdir_count != 1)
300
5
        return (TIFFReadDirEntryErrCount);
301
26
    switch (direntry->tdir_type)
302
26
    {
303
0
        case TIFF_BYTE:
304
0
        case TIFF_UNDEFINED: /* Support to read TIFF_UNDEFINED with
305
                                field_readcount==1 */
306
0
            TIFFReadDirEntryCheckedByte(tif, direntry, value);
307
0
            return (TIFFReadDirEntryErrOk);
308
2
        case TIFF_SBYTE:
309
2
        {
310
2
            int8_t m;
311
2
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
312
2
            err = TIFFReadDirEntryCheckRangeByteSbyte(m);
313
2
            if (err != TIFFReadDirEntryErrOk)
314
0
                return (err);
315
2
            *value = (uint8_t)m;
316
2
            return (TIFFReadDirEntryErrOk);
317
2
        }
318
2
        case TIFF_SHORT:
319
2
        {
320
2
            uint16_t m;
321
2
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
322
2
            err = TIFFReadDirEntryCheckRangeByteShort(m);
323
2
            if (err != TIFFReadDirEntryErrOk)
324
1
                return (err);
325
1
            *value = (uint8_t)m;
326
1
            return (TIFFReadDirEntryErrOk);
327
2
        }
328
4
        case TIFF_SSHORT:
329
4
        {
330
4
            int16_t m;
331
4
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
332
4
            err = TIFFReadDirEntryCheckRangeByteSshort(m);
333
4
            if (err != TIFFReadDirEntryErrOk)
334
2
                return (err);
335
2
            *value = (uint8_t)m;
336
2
            return (TIFFReadDirEntryErrOk);
337
4
        }
338
0
        case TIFF_LONG:
339
0
        {
340
0
            uint32_t m;
341
0
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
342
0
            err = TIFFReadDirEntryCheckRangeByteLong(m);
343
0
            if (err != TIFFReadDirEntryErrOk)
344
0
                return (err);
345
0
            *value = (uint8_t)m;
346
0
            return (TIFFReadDirEntryErrOk);
347
0
        }
348
2
        case TIFF_SLONG:
349
2
        {
350
2
            int32_t m;
351
2
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
352
2
            err = TIFFReadDirEntryCheckRangeByteSlong(m);
353
2
            if (err != TIFFReadDirEntryErrOk)
354
2
                return (err);
355
0
            *value = (uint8_t)m;
356
0
            return (TIFFReadDirEntryErrOk);
357
2
        }
358
11
        case TIFF_LONG8:
359
11
        {
360
11
            uint64_t m;
361
11
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
362
11
            if (err != TIFFReadDirEntryErrOk)
363
2
                return (err);
364
9
            err = TIFFReadDirEntryCheckRangeByteLong8(m);
365
9
            if (err != TIFFReadDirEntryErrOk)
366
5
                return (err);
367
4
            *value = (uint8_t)m;
368
4
            return (TIFFReadDirEntryErrOk);
369
9
        }
370
4
        case TIFF_SLONG8:
371
4
        {
372
4
            int64_t m;
373
4
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
374
4
            if (err != TIFFReadDirEntryErrOk)
375
0
                return (err);
376
4
            err = TIFFReadDirEntryCheckRangeByteSlong8(m);
377
4
            if (err != TIFFReadDirEntryErrOk)
378
4
                return (err);
379
0
            *value = (uint8_t)m;
380
0
            return (TIFFReadDirEntryErrOk);
381
4
        }
382
1
        default:
383
1
            return (TIFFReadDirEntryErrType);
384
26
    }
385
26
}
386
387
static enum TIFFReadDirEntryErr
388
TIFFReadDirEntrySbyte(TIFF *tif, TIFFDirEntry *direntry, int8_t *value)
389
0
{
390
0
    enum TIFFReadDirEntryErr err;
391
0
    if (direntry->tdir_count != 1)
392
0
        return (TIFFReadDirEntryErrCount);
393
0
    switch (direntry->tdir_type)
394
0
    {
395
0
        case TIFF_BYTE:
396
0
        case TIFF_UNDEFINED: /* Support to read TIFF_UNDEFINED with
397
                                field_readcount==1 */
398
0
        {
399
0
            uint8_t m;
400
0
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
401
0
            err = TIFFReadDirEntryCheckRangeSbyteByte(m);
402
0
            if (err != TIFFReadDirEntryErrOk)
403
0
                return (err);
404
0
            *value = (int8_t)m;
405
0
            return (TIFFReadDirEntryErrOk);
406
0
        }
407
0
        case TIFF_SBYTE:
408
0
        {
409
0
            TIFFReadDirEntryCheckedSbyte(tif, direntry, value);
410
0
            return (TIFFReadDirEntryErrOk);
411
0
        }
412
0
        case TIFF_SHORT:
413
0
        {
414
0
            uint16_t m;
415
0
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
416
0
            err = TIFFReadDirEntryCheckRangeSbyteShort(m);
417
0
            if (err != TIFFReadDirEntryErrOk)
418
0
                return (err);
419
0
            *value = (int8_t)m;
420
0
            return (TIFFReadDirEntryErrOk);
421
0
        }
422
0
        case TIFF_SSHORT:
423
0
        {
424
0
            int16_t m;
425
0
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
426
0
            err = TIFFReadDirEntryCheckRangeSbyteSshort(m);
427
0
            if (err != TIFFReadDirEntryErrOk)
428
0
                return (err);
429
0
            *value = (int8_t)m;
430
0
            return (TIFFReadDirEntryErrOk);
431
0
        }
432
0
        case TIFF_LONG:
433
0
        {
434
0
            uint32_t m;
435
0
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
436
0
            err = TIFFReadDirEntryCheckRangeSbyteLong(m);
437
0
            if (err != TIFFReadDirEntryErrOk)
438
0
                return (err);
439
0
            *value = (int8_t)m;
440
0
            return (TIFFReadDirEntryErrOk);
441
0
        }
442
0
        case TIFF_SLONG:
443
0
        {
444
0
            int32_t m;
445
0
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
446
0
            err = TIFFReadDirEntryCheckRangeSbyteSlong(m);
447
0
            if (err != TIFFReadDirEntryErrOk)
448
0
                return (err);
449
0
            *value = (int8_t)m;
450
0
            return (TIFFReadDirEntryErrOk);
451
0
        }
452
0
        case TIFF_LONG8:
453
0
        {
454
0
            uint64_t m;
455
0
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
456
0
            if (err != TIFFReadDirEntryErrOk)
457
0
                return (err);
458
0
            err = TIFFReadDirEntryCheckRangeSbyteLong8(m);
459
0
            if (err != TIFFReadDirEntryErrOk)
460
0
                return (err);
461
0
            *value = (int8_t)m;
462
0
            return (TIFFReadDirEntryErrOk);
463
0
        }
464
0
        case TIFF_SLONG8:
465
0
        {
466
0
            int64_t m;
467
0
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
468
0
            if (err != TIFFReadDirEntryErrOk)
469
0
                return (err);
470
0
            err = TIFFReadDirEntryCheckRangeSbyteSlong8(m);
471
0
            if (err != TIFFReadDirEntryErrOk)
472
0
                return (err);
473
0
            *value = (int8_t)m;
474
0
            return (TIFFReadDirEntryErrOk);
475
0
        }
476
0
        default:
477
0
            return (TIFFReadDirEntryErrType);
478
0
    }
479
0
} /*-- TIFFReadDirEntrySbyte() --*/
480
481
static enum TIFFReadDirEntryErr
482
TIFFReadDirEntryShort(TIFF *tif, TIFFDirEntry *direntry, uint16_t *value)
483
1.83k
{
484
1.83k
    enum TIFFReadDirEntryErr err;
485
1.83k
    if (direntry->tdir_count != 1)
486
284
        return (TIFFReadDirEntryErrCount);
487
1.55k
    switch (direntry->tdir_type)
488
1.55k
    {
489
13
        case TIFF_BYTE:
490
13
        {
491
13
            uint8_t m;
492
13
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
493
13
            *value = (uint16_t)m;
494
13
            return (TIFFReadDirEntryErrOk);
495
0
        }
496
29
        case TIFF_SBYTE:
497
29
        {
498
29
            int8_t m;
499
29
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
500
29
            err = TIFFReadDirEntryCheckRangeShortSbyte(m);
501
29
            if (err != TIFFReadDirEntryErrOk)
502
1
                return (err);
503
28
            *value = (uint16_t)m;
504
28
            return (TIFFReadDirEntryErrOk);
505
29
        }
506
1.41k
        case TIFF_SHORT:
507
1.41k
            TIFFReadDirEntryCheckedShort(tif, direntry, value);
508
1.41k
            return (TIFFReadDirEntryErrOk);
509
30
        case TIFF_SSHORT:
510
30
        {
511
30
            int16_t m;
512
30
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
513
30
            err = TIFFReadDirEntryCheckRangeShortSshort(m);
514
30
            if (err != TIFFReadDirEntryErrOk)
515
2
                return (err);
516
28
            *value = (uint16_t)m;
517
28
            return (TIFFReadDirEntryErrOk);
518
30
        }
519
8
        case TIFF_LONG:
520
8
        {
521
8
            uint32_t m;
522
8
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
523
8
            err = TIFFReadDirEntryCheckRangeShortLong(m);
524
8
            if (err != TIFFReadDirEntryErrOk)
525
2
                return (err);
526
6
            *value = (uint16_t)m;
527
6
            return (TIFFReadDirEntryErrOk);
528
8
        }
529
21
        case TIFF_SLONG:
530
21
        {
531
21
            int32_t m;
532
21
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
533
21
            err = TIFFReadDirEntryCheckRangeShortSlong(m);
534
21
            if (err != TIFFReadDirEntryErrOk)
535
4
                return (err);
536
17
            *value = (uint16_t)m;
537
17
            return (TIFFReadDirEntryErrOk);
538
21
        }
539
5
        case TIFF_LONG8:
540
5
        {
541
5
            uint64_t m;
542
5
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
543
5
            if (err != TIFFReadDirEntryErrOk)
544
1
                return (err);
545
4
            err = TIFFReadDirEntryCheckRangeShortLong8(m);
546
4
            if (err != TIFFReadDirEntryErrOk)
547
4
                return (err);
548
0
            *value = (uint16_t)m;
549
0
            return (TIFFReadDirEntryErrOk);
550
4
        }
551
16
        case TIFF_SLONG8:
552
16
        {
553
16
            int64_t m;
554
16
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
555
16
            if (err != TIFFReadDirEntryErrOk)
556
6
                return (err);
557
10
            err = TIFFReadDirEntryCheckRangeShortSlong8(m);
558
10
            if (err != TIFFReadDirEntryErrOk)
559
10
                return (err);
560
0
            *value = (uint16_t)m;
561
0
            return (TIFFReadDirEntryErrOk);
562
10
        }
563
12
        default:
564
12
            return (TIFFReadDirEntryErrType);
565
1.55k
    }
566
1.55k
} /*-- TIFFReadDirEntryShort() --*/
567
568
static enum TIFFReadDirEntryErr
569
TIFFReadDirEntrySshort(TIFF *tif, TIFFDirEntry *direntry, int16_t *value)
570
0
{
571
0
    enum TIFFReadDirEntryErr err;
572
0
    if (direntry->tdir_count != 1)
573
0
        return (TIFFReadDirEntryErrCount);
574
0
    switch (direntry->tdir_type)
575
0
    {
576
0
        case TIFF_BYTE:
577
0
        {
578
0
            uint8_t m;
579
0
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
580
0
            *value = (int16_t)m;
581
0
            return (TIFFReadDirEntryErrOk);
582
0
        }
583
0
        case TIFF_SBYTE:
584
0
        {
585
0
            int8_t m;
586
0
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
587
0
            *value = (int16_t)m;
588
0
            return (TIFFReadDirEntryErrOk);
589
0
        }
590
0
        case TIFF_SHORT:
591
0
        {
592
0
            uint16_t m;
593
0
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
594
0
            err = TIFFReadDirEntryCheckRangeSshortShort(m);
595
0
            if (err != TIFFReadDirEntryErrOk)
596
0
                return (err);
597
0
            *value = (uint16_t)m;
598
0
            return (TIFFReadDirEntryErrOk);
599
0
        }
600
0
        case TIFF_SSHORT:
601
0
            TIFFReadDirEntryCheckedSshort(tif, direntry, value);
602
0
            return (TIFFReadDirEntryErrOk);
603
0
        case TIFF_LONG:
604
0
        {
605
0
            uint32_t m;
606
0
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
607
0
            err = TIFFReadDirEntryCheckRangeSshortLong(m);
608
0
            if (err != TIFFReadDirEntryErrOk)
609
0
                return (err);
610
0
            *value = (int16_t)m;
611
0
            return (TIFFReadDirEntryErrOk);
612
0
        }
613
0
        case TIFF_SLONG:
614
0
        {
615
0
            int32_t m;
616
0
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
617
0
            err = TIFFReadDirEntryCheckRangeSshortSlong(m);
618
0
            if (err != TIFFReadDirEntryErrOk)
619
0
                return (err);
620
0
            *value = (int16_t)m;
621
0
            return (TIFFReadDirEntryErrOk);
622
0
        }
623
0
        case TIFF_LONG8:
624
0
        {
625
0
            uint64_t m;
626
0
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
627
0
            if (err != TIFFReadDirEntryErrOk)
628
0
                return (err);
629
0
            err = TIFFReadDirEntryCheckRangeSshortLong8(m);
630
0
            if (err != TIFFReadDirEntryErrOk)
631
0
                return (err);
632
0
            *value = (int16_t)m;
633
0
            return (TIFFReadDirEntryErrOk);
634
0
        }
635
0
        case TIFF_SLONG8:
636
0
        {
637
0
            int64_t m;
638
0
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
639
0
            if (err != TIFFReadDirEntryErrOk)
640
0
                return (err);
641
0
            err = TIFFReadDirEntryCheckRangeSshortSlong8(m);
642
0
            if (err != TIFFReadDirEntryErrOk)
643
0
                return (err);
644
0
            *value = (int16_t)m;
645
0
            return (TIFFReadDirEntryErrOk);
646
0
        }
647
0
        default:
648
0
            return (TIFFReadDirEntryErrType);
649
0
    }
650
0
} /*-- TIFFReadDirEntrySshort() --*/
651
652
static enum TIFFReadDirEntryErr
653
TIFFReadDirEntryLong(TIFF *tif, TIFFDirEntry *direntry, uint32_t *value)
654
1.70k
{
655
1.70k
    enum TIFFReadDirEntryErr err;
656
1.70k
    if (direntry->tdir_count != 1)
657
43
        return (TIFFReadDirEntryErrCount);
658
1.66k
    switch (direntry->tdir_type)
659
1.66k
    {
660
99
        case TIFF_BYTE:
661
99
        {
662
99
            uint8_t m;
663
99
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
664
99
            *value = (uint32_t)m;
665
99
            return (TIFFReadDirEntryErrOk);
666
0
        }
667
20
        case TIFF_SBYTE:
668
20
        {
669
20
            int8_t m;
670
20
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
671
20
            err = TIFFReadDirEntryCheckRangeLongSbyte(m);
672
20
            if (err != TIFFReadDirEntryErrOk)
673
0
                return (err);
674
20
            *value = (uint32_t)m;
675
20
            return (TIFFReadDirEntryErrOk);
676
20
        }
677
1.12k
        case TIFF_SHORT:
678
1.12k
        {
679
1.12k
            uint16_t m;
680
1.12k
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
681
1.12k
            *value = (uint32_t)m;
682
1.12k
            return (TIFFReadDirEntryErrOk);
683
20
        }
684
46
        case TIFF_SSHORT:
685
46
        {
686
46
            int16_t m;
687
46
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
688
46
            err = TIFFReadDirEntryCheckRangeLongSshort(m);
689
46
            if (err != TIFFReadDirEntryErrOk)
690
0
                return (err);
691
46
            *value = (uint32_t)m;
692
46
            return (TIFFReadDirEntryErrOk);
693
46
        }
694
296
        case TIFF_LONG:
695
296
            TIFFReadDirEntryCheckedLong(tif, direntry, value);
696
296
            return (TIFFReadDirEntryErrOk);
697
52
        case TIFF_SLONG:
698
52
        {
699
52
            int32_t m;
700
52
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
701
52
            err = TIFFReadDirEntryCheckRangeLongSlong(m);
702
52
            if (err != TIFFReadDirEntryErrOk)
703
1
                return (err);
704
51
            *value = (uint32_t)m;
705
51
            return (TIFFReadDirEntryErrOk);
706
52
        }
707
12
        case TIFF_LONG8:
708
12
        {
709
12
            uint64_t m;
710
12
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
711
12
            if (err != TIFFReadDirEntryErrOk)
712
4
                return (err);
713
8
            err = TIFFReadDirEntryCheckRangeLongLong8(m);
714
8
            if (err != TIFFReadDirEntryErrOk)
715
5
                return (err);
716
3
            *value = (uint32_t)m;
717
3
            return (TIFFReadDirEntryErrOk);
718
8
        }
719
16
        case TIFF_SLONG8:
720
16
        {
721
16
            int64_t m;
722
16
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
723
16
            if (err != TIFFReadDirEntryErrOk)
724
3
                return (err);
725
13
            err = TIFFReadDirEntryCheckRangeLongSlong8(m);
726
13
            if (err != TIFFReadDirEntryErrOk)
727
5
                return (err);
728
8
            *value = (uint32_t)m;
729
8
            return (TIFFReadDirEntryErrOk);
730
13
        }
731
1
        default:
732
1
            return (TIFFReadDirEntryErrType);
733
1.66k
    }
734
1.66k
} /*-- TIFFReadDirEntryLong() --*/
735
736
static enum TIFFReadDirEntryErr
737
TIFFReadDirEntrySlong(TIFF *tif, TIFFDirEntry *direntry, int32_t *value)
738
0
{
739
0
    enum TIFFReadDirEntryErr err;
740
0
    if (direntry->tdir_count != 1)
741
0
        return (TIFFReadDirEntryErrCount);
742
0
    switch (direntry->tdir_type)
743
0
    {
744
0
        case TIFF_BYTE:
745
0
        {
746
0
            uint8_t m;
747
0
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
748
0
            *value = (int32_t)m;
749
0
            return (TIFFReadDirEntryErrOk);
750
0
        }
751
0
        case TIFF_SBYTE:
752
0
        {
753
0
            int8_t m;
754
0
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
755
0
            *value = (int32_t)m;
756
0
            return (TIFFReadDirEntryErrOk);
757
0
        }
758
0
        case TIFF_SHORT:
759
0
        {
760
0
            uint16_t m;
761
0
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
762
0
            *value = (int32_t)m;
763
0
            return (TIFFReadDirEntryErrOk);
764
0
        }
765
0
        case TIFF_SSHORT:
766
0
        {
767
0
            int16_t m;
768
0
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
769
0
            *value = (int32_t)m;
770
0
            return (TIFFReadDirEntryErrOk);
771
0
        }
772
0
        case TIFF_LONG:
773
0
        {
774
0
            uint32_t m;
775
0
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
776
0
            err = TIFFReadDirEntryCheckRangeSlongLong(m);
777
0
            if (err != TIFFReadDirEntryErrOk)
778
0
                return (err);
779
0
            *value = (int32_t)m;
780
0
            return (TIFFReadDirEntryErrOk);
781
0
        }
782
0
        case TIFF_SLONG:
783
0
            TIFFReadDirEntryCheckedSlong(tif, direntry, value);
784
0
            return (TIFFReadDirEntryErrOk);
785
0
        case TIFF_LONG8:
786
0
        {
787
0
            uint64_t m;
788
0
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
789
0
            if (err != TIFFReadDirEntryErrOk)
790
0
                return (err);
791
0
            err = TIFFReadDirEntryCheckRangeSlongLong8(m);
792
0
            if (err != TIFFReadDirEntryErrOk)
793
0
                return (err);
794
0
            *value = (int32_t)m;
795
0
            return (TIFFReadDirEntryErrOk);
796
0
        }
797
0
        case TIFF_SLONG8:
798
0
        {
799
0
            int64_t m;
800
0
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
801
0
            if (err != TIFFReadDirEntryErrOk)
802
0
                return (err);
803
0
            err = TIFFReadDirEntryCheckRangeSlongSlong8(m);
804
0
            if (err != TIFFReadDirEntryErrOk)
805
0
                return (err);
806
0
            *value = (int32_t)m;
807
0
            return (TIFFReadDirEntryErrOk);
808
0
        }
809
0
        default:
810
0
            return (TIFFReadDirEntryErrType);
811
0
    }
812
0
} /*-- TIFFReadDirEntrySlong() --*/
813
814
static enum TIFFReadDirEntryErr
815
TIFFReadDirEntryLong8(TIFF *tif, TIFFDirEntry *direntry, uint64_t *value)
816
0
{
817
0
    enum TIFFReadDirEntryErr err;
818
0
    if (direntry->tdir_count != 1)
819
0
        return (TIFFReadDirEntryErrCount);
820
0
    switch (direntry->tdir_type)
821
0
    {
822
0
        case TIFF_BYTE:
823
0
        {
824
0
            uint8_t m;
825
0
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
826
0
            *value = (uint64_t)m;
827
0
            return (TIFFReadDirEntryErrOk);
828
0
        }
829
0
        case TIFF_SBYTE:
830
0
        {
831
0
            int8_t m;
832
0
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
833
0
            err = TIFFReadDirEntryCheckRangeLong8Sbyte(m);
834
0
            if (err != TIFFReadDirEntryErrOk)
835
0
                return (err);
836
0
            *value = (uint64_t)m;
837
0
            return (TIFFReadDirEntryErrOk);
838
0
        }
839
0
        case TIFF_SHORT:
840
0
        {
841
0
            uint16_t m;
842
0
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
843
0
            *value = (uint64_t)m;
844
0
            return (TIFFReadDirEntryErrOk);
845
0
        }
846
0
        case TIFF_SSHORT:
847
0
        {
848
0
            int16_t m;
849
0
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
850
0
            err = TIFFReadDirEntryCheckRangeLong8Sshort(m);
851
0
            if (err != TIFFReadDirEntryErrOk)
852
0
                return (err);
853
0
            *value = (uint64_t)m;
854
0
            return (TIFFReadDirEntryErrOk);
855
0
        }
856
0
        case TIFF_LONG:
857
0
        {
858
0
            uint32_t m;
859
0
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
860
0
            *value = (uint64_t)m;
861
0
            return (TIFFReadDirEntryErrOk);
862
0
        }
863
0
        case TIFF_SLONG:
864
0
        {
865
0
            int32_t m;
866
0
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
867
0
            err = TIFFReadDirEntryCheckRangeLong8Slong(m);
868
0
            if (err != TIFFReadDirEntryErrOk)
869
0
                return (err);
870
0
            *value = (uint64_t)m;
871
0
            return (TIFFReadDirEntryErrOk);
872
0
        }
873
0
        case TIFF_LONG8:
874
0
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, value);
875
0
            return (err);
876
0
        case TIFF_SLONG8:
877
0
        {
878
0
            int64_t m;
879
0
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
880
0
            if (err != TIFFReadDirEntryErrOk)
881
0
                return (err);
882
0
            err = TIFFReadDirEntryCheckRangeLong8Slong8(m);
883
0
            if (err != TIFFReadDirEntryErrOk)
884
0
                return (err);
885
0
            *value = (uint64_t)m;
886
0
            return (TIFFReadDirEntryErrOk);
887
0
        }
888
0
        default:
889
0
            return (TIFFReadDirEntryErrType);
890
0
    }
891
0
} /*-- TIFFReadDirEntryLong8() --*/
892
893
static enum TIFFReadDirEntryErr
894
TIFFReadDirEntrySlong8(TIFF *tif, TIFFDirEntry *direntry, int64_t *value)
895
0
{
896
0
    enum TIFFReadDirEntryErr err;
897
0
    if (direntry->tdir_count != 1)
898
0
        return (TIFFReadDirEntryErrCount);
899
0
    switch (direntry->tdir_type)
900
0
    {
901
0
        case TIFF_BYTE:
902
0
        {
903
0
            uint8_t m;
904
0
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
905
0
            *value = (int64_t)m;
906
0
            return (TIFFReadDirEntryErrOk);
907
0
        }
908
0
        case TIFF_SBYTE:
909
0
        {
910
0
            int8_t m;
911
0
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
912
0
            *value = (int64_t)m;
913
0
            return (TIFFReadDirEntryErrOk);
914
0
        }
915
0
        case TIFF_SHORT:
916
0
        {
917
0
            uint16_t m;
918
0
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
919
0
            *value = (int64_t)m;
920
0
            return (TIFFReadDirEntryErrOk);
921
0
        }
922
0
        case TIFF_SSHORT:
923
0
        {
924
0
            int16_t m;
925
0
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
926
0
            *value = (int64_t)m;
927
0
            return (TIFFReadDirEntryErrOk);
928
0
        }
929
0
        case TIFF_LONG:
930
0
        {
931
0
            uint32_t m;
932
0
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
933
0
            *value = (int64_t)m;
934
0
            return (TIFFReadDirEntryErrOk);
935
0
        }
936
0
        case TIFF_SLONG:
937
0
        {
938
0
            int32_t m;
939
0
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
940
0
            *value = (int64_t)m;
941
0
            return (TIFFReadDirEntryErrOk);
942
0
        }
943
0
        case TIFF_LONG8:
944
0
        {
945
0
            uint64_t m;
946
0
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
947
0
            if (err != TIFFReadDirEntryErrOk)
948
0
                return (err);
949
0
            err = TIFFReadDirEntryCheckRangeSlong8Long8(m);
950
0
            if (err != TIFFReadDirEntryErrOk)
951
0
                return (err);
952
0
            *value = (int64_t)m;
953
0
            return (TIFFReadDirEntryErrOk);
954
0
        }
955
0
        case TIFF_SLONG8:
956
0
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, value);
957
0
            return (err);
958
0
        default:
959
0
            return (TIFFReadDirEntryErrType);
960
0
    }
961
0
} /*-- TIFFReadDirEntrySlong8() --*/
962
963
static enum TIFFReadDirEntryErr
964
TIFFReadDirEntryFloat(TIFF *tif, TIFFDirEntry *direntry, float *value)
965
190
{
966
190
    enum TIFFReadDirEntryErr err;
967
190
    if (direntry->tdir_count != 1)
968
40
        return (TIFFReadDirEntryErrCount);
969
150
    switch (direntry->tdir_type)
970
150
    {
971
4
        case TIFF_BYTE:
972
4
        {
973
4
            uint8_t m;
974
4
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
975
4
            *value = (float)m;
976
4
            return (TIFFReadDirEntryErrOk);
977
0
        }
978
2
        case TIFF_SBYTE:
979
2
        {
980
2
            int8_t m;
981
2
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
982
2
            *value = (float)m;
983
2
            return (TIFFReadDirEntryErrOk);
984
0
        }
985
5
        case TIFF_SHORT:
986
5
        {
987
5
            uint16_t m;
988
5
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
989
5
            *value = (float)m;
990
5
            return (TIFFReadDirEntryErrOk);
991
0
        }
992
1
        case TIFF_SSHORT:
993
1
        {
994
1
            int16_t m;
995
1
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
996
1
            *value = (float)m;
997
1
            return (TIFFReadDirEntryErrOk);
998
0
        }
999
18
        case TIFF_LONG:
1000
18
        {
1001
18
            uint32_t m;
1002
18
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
1003
18
            *value = (float)m;
1004
18
            return (TIFFReadDirEntryErrOk);
1005
0
        }
1006
3
        case TIFF_SLONG:
1007
3
        {
1008
3
            int32_t m;
1009
3
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
1010
3
            *value = (float)m;
1011
3
            return (TIFFReadDirEntryErrOk);
1012
0
        }
1013
5
        case TIFF_LONG8:
1014
5
        {
1015
5
            uint64_t m;
1016
5
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
1017
5
            if (err != TIFFReadDirEntryErrOk)
1018
3
                return (err);
1019
2
            *value = (float)m;
1020
2
            return (TIFFReadDirEntryErrOk);
1021
5
        }
1022
8
        case TIFF_SLONG8:
1023
8
        {
1024
8
            int64_t m;
1025
8
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
1026
8
            if (err != TIFFReadDirEntryErrOk)
1027
6
                return (err);
1028
2
            *value = (float)m;
1029
2
            return (TIFFReadDirEntryErrOk);
1030
8
        }
1031
52
        case TIFF_RATIONAL:
1032
52
        {
1033
52
            double m;
1034
52
            err = TIFFReadDirEntryCheckedRational(tif, direntry, &m);
1035
52
            if (err != TIFFReadDirEntryErrOk)
1036
12
                return (err);
1037
40
            *value = (float)m;
1038
40
            return (TIFFReadDirEntryErrOk);
1039
52
        }
1040
30
        case TIFF_SRATIONAL:
1041
30
        {
1042
30
            double m;
1043
30
            err = TIFFReadDirEntryCheckedSrational(tif, direntry, &m);
1044
30
            if (err != TIFFReadDirEntryErrOk)
1045
12
                return (err);
1046
18
            *value = (float)m;
1047
18
            return (TIFFReadDirEntryErrOk);
1048
30
        }
1049
0
        case TIFF_FLOAT:
1050
0
            TIFFReadDirEntryCheckedFloat(tif, direntry, value);
1051
0
            return (TIFFReadDirEntryErrOk);
1052
10
        case TIFF_DOUBLE:
1053
10
        {
1054
10
            double m;
1055
10
            err = TIFFReadDirEntryCheckedDouble(tif, direntry, &m);
1056
10
            if (err != TIFFReadDirEntryErrOk)
1057
4
                return (err);
1058
6
            if ((m > FLT_MAX) || (m < -FLT_MAX))
1059
1
                return (TIFFReadDirEntryErrRange);
1060
5
            *value = (float)m;
1061
5
            return (TIFFReadDirEntryErrOk);
1062
6
        }
1063
12
        default:
1064
12
            return (TIFFReadDirEntryErrType);
1065
150
    }
1066
150
}
1067
1068
static enum TIFFReadDirEntryErr
1069
TIFFReadDirEntryDouble(TIFF *tif, TIFFDirEntry *direntry, double *value)
1070
10
{
1071
10
    enum TIFFReadDirEntryErr err;
1072
10
    if (direntry->tdir_count != 1)
1073
3
        return (TIFFReadDirEntryErrCount);
1074
7
    switch (direntry->tdir_type)
1075
7
    {
1076
1
        case TIFF_BYTE:
1077
1
        {
1078
1
            uint8_t m;
1079
1
            TIFFReadDirEntryCheckedByte(tif, direntry, &m);
1080
1
            *value = (double)m;
1081
1
            return (TIFFReadDirEntryErrOk);
1082
0
        }
1083
0
        case TIFF_SBYTE:
1084
0
        {
1085
0
            int8_t m;
1086
0
            TIFFReadDirEntryCheckedSbyte(tif, direntry, &m);
1087
0
            *value = (double)m;
1088
0
            return (TIFFReadDirEntryErrOk);
1089
0
        }
1090
1
        case TIFF_SHORT:
1091
1
        {
1092
1
            uint16_t m;
1093
1
            TIFFReadDirEntryCheckedShort(tif, direntry, &m);
1094
1
            *value = (double)m;
1095
1
            return (TIFFReadDirEntryErrOk);
1096
0
        }
1097
1
        case TIFF_SSHORT:
1098
1
        {
1099
1
            int16_t m;
1100
1
            TIFFReadDirEntryCheckedSshort(tif, direntry, &m);
1101
1
            *value = (double)m;
1102
1
            return (TIFFReadDirEntryErrOk);
1103
0
        }
1104
0
        case TIFF_LONG:
1105
0
        {
1106
0
            uint32_t m;
1107
0
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
1108
0
            *value = (double)m;
1109
0
            return (TIFFReadDirEntryErrOk);
1110
0
        }
1111
1
        case TIFF_SLONG:
1112
1
        {
1113
1
            int32_t m;
1114
1
            TIFFReadDirEntryCheckedSlong(tif, direntry, &m);
1115
1
            *value = (double)m;
1116
1
            return (TIFFReadDirEntryErrOk);
1117
0
        }
1118
2
        case TIFF_LONG8:
1119
2
        {
1120
2
            uint64_t m;
1121
2
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, &m);
1122
2
            if (err != TIFFReadDirEntryErrOk)
1123
1
                return (err);
1124
1
            *value = (double)m;
1125
1
            return (TIFFReadDirEntryErrOk);
1126
2
        }
1127
0
        case TIFF_SLONG8:
1128
0
        {
1129
0
            int64_t m;
1130
0
            err = TIFFReadDirEntryCheckedSlong8(tif, direntry, &m);
1131
0
            if (err != TIFFReadDirEntryErrOk)
1132
0
                return (err);
1133
0
            *value = (double)m;
1134
0
            return (TIFFReadDirEntryErrOk);
1135
0
        }
1136
0
        case TIFF_RATIONAL:
1137
0
            err = TIFFReadDirEntryCheckedRational(tif, direntry, value);
1138
0
            return (err);
1139
0
        case TIFF_SRATIONAL:
1140
0
            err = TIFFReadDirEntryCheckedSrational(tif, direntry, value);
1141
0
            return (err);
1142
0
        case TIFF_FLOAT:
1143
0
        {
1144
0
            float m;
1145
0
            TIFFReadDirEntryCheckedFloat(tif, direntry, &m);
1146
0
            *value = (double)m;
1147
0
            return (TIFFReadDirEntryErrOk);
1148
0
        }
1149
1
        case TIFF_DOUBLE:
1150
1
            err = TIFFReadDirEntryCheckedDouble(tif, direntry, value);
1151
1
            return (err);
1152
0
        default:
1153
0
            return (TIFFReadDirEntryErrType);
1154
7
    }
1155
7
}
1156
1157
static enum TIFFReadDirEntryErr
1158
TIFFReadDirEntryIfd8(TIFF *tif, TIFFDirEntry *direntry, uint64_t *value)
1159
40
{
1160
40
    enum TIFFReadDirEntryErr err;
1161
40
    if (direntry->tdir_count != 1)
1162
13
        return (TIFFReadDirEntryErrCount);
1163
27
    switch (direntry->tdir_type)
1164
27
    {
1165
15
        case TIFF_LONG:
1166
18
        case TIFF_IFD:
1167
18
        {
1168
18
            uint32_t m;
1169
18
            TIFFReadDirEntryCheckedLong(tif, direntry, &m);
1170
18
            *value = (uint64_t)m;
1171
18
            return (TIFFReadDirEntryErrOk);
1172
15
        }
1173
8
        case TIFF_LONG8:
1174
8
        case TIFF_IFD8:
1175
8
            err = TIFFReadDirEntryCheckedLong8(tif, direntry, value);
1176
8
            return (err);
1177
1
        default:
1178
1
            return (TIFFReadDirEntryErrType);
1179
27
    }
1180
27
}
1181
1182
2.42k
#define INITIAL_THRESHOLD (1024 * 1024)
1183
300
#define THRESHOLD_MULTIPLIER 10
1184
#define MAX_THRESHOLD                                                          \
1185
75
    (THRESHOLD_MULTIPLIER * THRESHOLD_MULTIPLIER * THRESHOLD_MULTIPLIER *      \
1186
75
     INITIAL_THRESHOLD)
1187
1188
static enum TIFFReadDirEntryErr TIFFReadDirEntryDataAndRealloc(TIFF *tif,
1189
                                                               uint64_t offset,
1190
                                                               tmsize_t size,
1191
                                                               void **pdest)
1192
2.35k
{
1193
2.35k
#if SIZEOF_SIZE_T == 8
1194
2.35k
    tmsize_t threshold = INITIAL_THRESHOLD;
1195
2.35k
#endif
1196
2.35k
    tmsize_t already_read = 0;
1197
1198
2.35k
    assert(!isMapped(tif));
1199
1200
2.35k
    if (!SeekOK(tif, offset))
1201
1.00k
        return (TIFFReadDirEntryErrIo);
1202
1203
    /* On 64 bit processes, read first a maximum of 1 MB, then 10 MB, etc */
1204
    /* so as to avoid allocating too much memory in case the file is too */
1205
    /* short. We could ask for the file size, but this might be */
1206
    /* expensive with some I/O layers (think of reading a gzipped file) */
1207
    /* Restrict to 64 bit processes, so as to avoid reallocs() */
1208
    /* on 32 bit processes where virtual memory is scarce.  */
1209
2.52k
    while (already_read < size)
1210
1.34k
    {
1211
1.34k
        void *new_dest;
1212
1.34k
        tmsize_t bytes_read;
1213
1.34k
        tmsize_t to_read = size - already_read;
1214
1.34k
#if SIZEOF_SIZE_T == 8
1215
1.34k
        if (to_read >= threshold && threshold < MAX_THRESHOLD)
1216
75
        {
1217
75
            to_read = threshold;
1218
75
            threshold *= THRESHOLD_MULTIPLIER;
1219
75
        }
1220
1.34k
#endif
1221
1222
1.34k
        new_dest =
1223
1.34k
            (uint8_t *)_TIFFreallocExt(tif, *pdest, already_read + to_read);
1224
1.34k
        if (new_dest == NULL)
1225
0
        {
1226
0
            TIFFErrorExtR(tif, tif->tif_name,
1227
0
                          "Failed to allocate memory for %s "
1228
0
                          "(%" TIFF_SSIZE_FORMAT
1229
0
                          " elements of %" TIFF_SSIZE_FORMAT " bytes each)",
1230
0
                          "TIFFReadDirEntryArray", (tmsize_t)1,
1231
0
                          already_read + to_read);
1232
0
            return TIFFReadDirEntryErrAlloc;
1233
0
        }
1234
1.34k
        *pdest = new_dest;
1235
1236
1.34k
        bytes_read = TIFFReadFile(tif, (char *)*pdest + already_read, to_read);
1237
1.34k
        already_read += bytes_read;
1238
1.34k
        if (bytes_read != to_read)
1239
166
        {
1240
166
            return TIFFReadDirEntryErrIo;
1241
166
        }
1242
1.34k
    }
1243
1.18k
    return TIFFReadDirEntryErrOk;
1244
1.34k
}
1245
1246
/* Caution: if raising that value, make sure int32 / uint32 overflows can't
1247
 * occur elsewhere */
1248
6.87k
#define MAX_SIZE_TAG_DATA 2147483647U
1249
1250
static enum TIFFReadDirEntryErr
1251
TIFFReadDirEntryArrayWithLimit(TIFF *tif, TIFFDirEntry *direntry,
1252
                               uint32_t *count, uint32_t desttypesize,
1253
                               void **value, uint64_t maxcount)
1254
3.78k
{
1255
3.78k
    int typesize;
1256
3.78k
    uint32_t datasize;
1257
3.78k
    void *data;
1258
3.78k
    uint64_t target_count64;
1259
3.78k
    int original_datasize_clamped;
1260
3.78k
    typesize = TIFFDataWidth(direntry->tdir_type);
1261
1262
3.78k
    target_count64 =
1263
3.78k
        (direntry->tdir_count > maxcount) ? maxcount : direntry->tdir_count;
1264
1265
3.78k
    if ((target_count64 == 0) || (typesize == 0))
1266
218
    {
1267
218
        *value = 0;
1268
218
        return (TIFFReadDirEntryErrOk);
1269
218
    }
1270
3.57k
    (void)desttypesize;
1271
1272
    /* We just want to know if the original tag size is more than 4 bytes
1273
     * (classic TIFF) or 8 bytes (BigTIFF)
1274
     */
1275
3.57k
    original_datasize_clamped =
1276
3.57k
        ((direntry->tdir_count > 10) ? 10 : (int)direntry->tdir_count) *
1277
3.57k
        typesize;
1278
1279
    /*
1280
     * As a sanity check, make sure we have no more than a 2GB tag array
1281
     * in either the current data type or the dest data type.  This also
1282
     * avoids problems with overflow of tmsize_t on 32bit systems.
1283
     */
1284
3.57k
    if ((uint64_t)(MAX_SIZE_TAG_DATA / typesize) < target_count64)
1285
272
        return (TIFFReadDirEntryErrSizesan);
1286
3.29k
    if ((uint64_t)(MAX_SIZE_TAG_DATA / desttypesize) < target_count64)
1287
4
        return (TIFFReadDirEntryErrSizesan);
1288
1289
3.29k
    *count = (uint32_t)target_count64;
1290
3.29k
    datasize = (*count) * typesize;
1291
3.29k
    assert((tmsize_t)datasize > 0);
1292
1293
3.29k
    if (datasize > 100 * 1024 * 1024)
1294
213
    {
1295
        /* Before allocating a huge amount of memory for corrupted files, check
1296
         * if size of requested memory is not greater than file size.
1297
         */
1298
213
        const uint64_t filesize = TIFFGetFileSize(tif);
1299
213
        if (datasize > filesize)
1300
213
        {
1301
213
            TIFFWarningExtR(tif, "ReadDirEntryArray",
1302
213
                            "Requested memory size for tag %d (0x%x) %" PRIu32
1303
213
                            " is greater than filesize %" PRIu64
1304
213
                            ". Memory not allocated, tag not read",
1305
213
                            direntry->tdir_tag, direntry->tdir_tag, datasize,
1306
213
                            filesize);
1307
213
            return (TIFFReadDirEntryErrAlloc);
1308
213
        }
1309
213
    }
1310
1311
3.08k
    if (isMapped(tif) && datasize > (uint64_t)tif->tif_size)
1312
0
        return TIFFReadDirEntryErrIo;
1313
1314
3.08k
    if (!isMapped(tif) && (((tif->tif_flags & TIFF_BIGTIFF) && datasize > 8) ||
1315
3.07k
                           (!(tif->tif_flags & TIFF_BIGTIFF) && datasize > 4)))
1316
2.14k
    {
1317
2.14k
        data = NULL;
1318
2.14k
    }
1319
940
    else
1320
940
    {
1321
940
        data = _TIFFCheckMalloc(tif, *count, typesize, "ReadDirEntryArray");
1322
940
        if (data == 0)
1323
0
            return (TIFFReadDirEntryErrAlloc);
1324
940
    }
1325
3.08k
    if (!(tif->tif_flags & TIFF_BIGTIFF))
1326
3.02k
    {
1327
        /* Only the condition on original_datasize_clamped. The second
1328
         * one is implied, but Coverity Scan cannot see it. */
1329
3.02k
        if (original_datasize_clamped <= 4 && datasize <= 4)
1330
703
            _TIFFmemcpy(data, &direntry->tdir_offset, datasize);
1331
2.32k
        else
1332
2.32k
        {
1333
2.32k
            enum TIFFReadDirEntryErr err;
1334
2.32k
            uint32_t offset = direntry->tdir_offset.toff_long;
1335
2.32k
            if (tif->tif_flags & TIFF_SWAB)
1336
265
                TIFFSwabLong(&offset);
1337
2.32k
            if (isMapped(tif))
1338
0
                err = TIFFReadDirEntryData(tif, (uint64_t)offset,
1339
0
                                           (tmsize_t)datasize, data);
1340
2.32k
            else
1341
2.32k
                err = TIFFReadDirEntryDataAndRealloc(tif, (uint64_t)offset,
1342
2.32k
                                                     (tmsize_t)datasize, &data);
1343
2.32k
            if (err != TIFFReadDirEntryErrOk)
1344
1.16k
            {
1345
1.16k
                _TIFFfreeExt(tif, data);
1346
1.16k
                return (err);
1347
1.16k
            }
1348
2.32k
        }
1349
3.02k
    }
1350
53
    else
1351
53
    {
1352
        /* See above comment for the Classic TIFF case */
1353
53
        if (original_datasize_clamped <= 8 && datasize <= 8)
1354
25
            _TIFFmemcpy(data, &direntry->tdir_offset, datasize);
1355
28
        else
1356
28
        {
1357
28
            enum TIFFReadDirEntryErr err;
1358
28
            uint64_t offset = direntry->tdir_offset.toff_long8;
1359
28
            if (tif->tif_flags & TIFF_SWAB)
1360
12
                TIFFSwabLong8(&offset);
1361
28
            if (isMapped(tif))
1362
0
                err = TIFFReadDirEntryData(tif, (uint64_t)offset,
1363
0
                                           (tmsize_t)datasize, data);
1364
28
            else
1365
28
                err = TIFFReadDirEntryDataAndRealloc(tif, (uint64_t)offset,
1366
28
                                                     (tmsize_t)datasize, &data);
1367
28
            if (err != TIFFReadDirEntryErrOk)
1368
10
            {
1369
10
                _TIFFfreeExt(tif, data);
1370
10
                return (err);
1371
10
            }
1372
28
        }
1373
53
    }
1374
1.90k
    *value = data;
1375
1.90k
    return (TIFFReadDirEntryErrOk);
1376
3.08k
}
1377
1378
static enum TIFFReadDirEntryErr
1379
TIFFReadDirEntryArray(TIFF *tif, TIFFDirEntry *direntry, uint32_t *count,
1380
                      uint32_t desttypesize, void **value)
1381
3.02k
{
1382
3.02k
    return TIFFReadDirEntryArrayWithLimit(tif, direntry, count, desttypesize,
1383
3.02k
                                          value, ~((uint64_t)0));
1384
3.02k
}
1385
1386
static enum TIFFReadDirEntryErr
1387
TIFFReadDirEntryByteArray(TIFF *tif, TIFFDirEntry *direntry, uint8_t **value)
1388
929
{
1389
929
    enum TIFFReadDirEntryErr err;
1390
929
    uint32_t count;
1391
929
    void *origdata;
1392
929
    uint8_t *data;
1393
929
    switch (direntry->tdir_type)
1394
929
    {
1395
348
        case TIFF_ASCII:
1396
398
        case TIFF_UNDEFINED:
1397
788
        case TIFF_BYTE:
1398
795
        case TIFF_SBYTE:
1399
829
        case TIFF_SHORT:
1400
835
        case TIFF_SSHORT:
1401
845
        case TIFF_LONG:
1402
851
        case TIFF_SLONG:
1403
864
        case TIFF_LONG8:
1404
886
        case TIFF_SLONG8:
1405
886
            break;
1406
43
        default:
1407
43
            return (TIFFReadDirEntryErrType);
1408
929
    }
1409
886
    err = TIFFReadDirEntryArray(tif, direntry, &count, 1, &origdata);
1410
886
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
1411
603
    {
1412
603
        *value = 0;
1413
603
        return (err);
1414
603
    }
1415
283
    switch (direntry->tdir_type)
1416
283
    {
1417
141
        case TIFF_ASCII:
1418
165
        case TIFF_UNDEFINED:
1419
214
        case TIFF_BYTE:
1420
214
            *value = (uint8_t *)origdata;
1421
214
            return (TIFFReadDirEntryErrOk);
1422
6
        case TIFF_SBYTE:
1423
6
        {
1424
6
            int8_t *m;
1425
6
            uint32_t n;
1426
6
            m = (int8_t *)origdata;
1427
25
            for (n = 0; n < count; n++)
1428
22
            {
1429
22
                err = TIFFReadDirEntryCheckRangeByteSbyte(*m);
1430
22
                if (err != TIFFReadDirEntryErrOk)
1431
3
                {
1432
3
                    _TIFFfreeExt(tif, origdata);
1433
3
                    return (err);
1434
3
                }
1435
19
                m++;
1436
19
            }
1437
3
            *value = (uint8_t *)origdata;
1438
3
            return (TIFFReadDirEntryErrOk);
1439
6
        }
1440
283
    }
1441
63
    data = (uint8_t *)_TIFFmallocExt(tif, count);
1442
63
    if (data == 0)
1443
0
    {
1444
0
        _TIFFfreeExt(tif, origdata);
1445
0
        return (TIFFReadDirEntryErrAlloc);
1446
0
    }
1447
63
    switch (direntry->tdir_type)
1448
63
    {
1449
15
        case TIFF_SHORT:
1450
15
        {
1451
15
            uint16_t *ma;
1452
15
            uint8_t *mb;
1453
15
            uint32_t n;
1454
15
            ma = (uint16_t *)origdata;
1455
15
            mb = data;
1456
67
            for (n = 0; n < count; n++)
1457
58
            {
1458
58
                if (tif->tif_flags & TIFF_SWAB)
1459
9
                    TIFFSwabShort(ma);
1460
58
                err = TIFFReadDirEntryCheckRangeByteShort(*ma);
1461
58
                if (err != TIFFReadDirEntryErrOk)
1462
6
                    break;
1463
52
                *mb++ = (uint8_t)(*ma++);
1464
52
            }
1465
15
        }
1466
15
        break;
1467
3
        case TIFF_SSHORT:
1468
3
        {
1469
3
            int16_t *ma;
1470
3
            uint8_t *mb;
1471
3
            uint32_t n;
1472
3
            ma = (int16_t *)origdata;
1473
3
            mb = data;
1474
179
            for (n = 0; n < count; n++)
1475
177
            {
1476
177
                if (tif->tif_flags & TIFF_SWAB)
1477
135
                    TIFFSwabShort((uint16_t *)ma);
1478
177
                err = TIFFReadDirEntryCheckRangeByteSshort(*ma);
1479
177
                if (err != TIFFReadDirEntryErrOk)
1480
1
                    break;
1481
176
                *mb++ = (uint8_t)(*ma++);
1482
176
            }
1483
3
        }
1484
3
        break;
1485
9
        case TIFF_LONG:
1486
9
        {
1487
9
            uint32_t *ma;
1488
9
            uint8_t *mb;
1489
9
            uint32_t n;
1490
9
            ma = (uint32_t *)origdata;
1491
9
            mb = data;
1492
43
            for (n = 0; n < count; n++)
1493
37
            {
1494
37
                if (tif->tif_flags & TIFF_SWAB)
1495
3
                    TIFFSwabLong(ma);
1496
37
                err = TIFFReadDirEntryCheckRangeByteLong(*ma);
1497
37
                if (err != TIFFReadDirEntryErrOk)
1498
3
                    break;
1499
34
                *mb++ = (uint8_t)(*ma++);
1500
34
            }
1501
9
        }
1502
9
        break;
1503
6
        case TIFF_SLONG:
1504
6
        {
1505
6
            int32_t *ma;
1506
6
            uint8_t *mb;
1507
6
            uint32_t n;
1508
6
            ma = (int32_t *)origdata;
1509
6
            mb = data;
1510
29
            for (n = 0; n < count; n++)
1511
26
            {
1512
26
                if (tif->tif_flags & TIFF_SWAB)
1513
2
                    TIFFSwabLong((uint32_t *)ma);
1514
26
                err = TIFFReadDirEntryCheckRangeByteSlong(*ma);
1515
26
                if (err != TIFFReadDirEntryErrOk)
1516
3
                    break;
1517
23
                *mb++ = (uint8_t)(*ma++);
1518
23
            }
1519
6
        }
1520
6
        break;
1521
10
        case TIFF_LONG8:
1522
10
        {
1523
10
            uint64_t *ma;
1524
10
            uint8_t *mb;
1525
10
            uint32_t n;
1526
10
            ma = (uint64_t *)origdata;
1527
10
            mb = data;
1528
47
            for (n = 0; n < count; n++)
1529
46
            {
1530
46
                if (tif->tif_flags & TIFF_SWAB)
1531
38
                    TIFFSwabLong8(ma);
1532
46
                err = TIFFReadDirEntryCheckRangeByteLong8(*ma);
1533
46
                if (err != TIFFReadDirEntryErrOk)
1534
9
                    break;
1535
37
                *mb++ = (uint8_t)(*ma++);
1536
37
            }
1537
10
        }
1538
10
        break;
1539
20
        case TIFF_SLONG8:
1540
20
        {
1541
20
            int64_t *ma;
1542
20
            uint8_t *mb;
1543
20
            uint32_t n;
1544
20
            ma = (int64_t *)origdata;
1545
20
            mb = data;
1546
286
            for (n = 0; n < count; n++)
1547
281
            {
1548
281
                if (tif->tif_flags & TIFF_SWAB)
1549
137
                    TIFFSwabLong8((uint64_t *)ma);
1550
281
                err = TIFFReadDirEntryCheckRangeByteSlong8(*ma);
1551
281
                if (err != TIFFReadDirEntryErrOk)
1552
15
                    break;
1553
266
                *mb++ = (uint8_t)(*ma++);
1554
266
            }
1555
20
        }
1556
20
        break;
1557
63
    }
1558
63
    _TIFFfreeExt(tif, origdata);
1559
63
    if (err != TIFFReadDirEntryErrOk)
1560
37
    {
1561
37
        _TIFFfreeExt(tif, data);
1562
37
        return (err);
1563
37
    }
1564
26
    *value = data;
1565
26
    return (TIFFReadDirEntryErrOk);
1566
63
}
1567
1568
static enum TIFFReadDirEntryErr
1569
TIFFReadDirEntrySbyteArray(TIFF *tif, TIFFDirEntry *direntry, int8_t **value)
1570
60
{
1571
60
    enum TIFFReadDirEntryErr err;
1572
60
    uint32_t count;
1573
60
    void *origdata;
1574
60
    int8_t *data;
1575
60
    switch (direntry->tdir_type)
1576
60
    {
1577
0
        case TIFF_UNDEFINED:
1578
0
        case TIFF_BYTE:
1579
60
        case TIFF_SBYTE:
1580
60
        case TIFF_SHORT:
1581
60
        case TIFF_SSHORT:
1582
60
        case TIFF_LONG:
1583
60
        case TIFF_SLONG:
1584
60
        case TIFF_LONG8:
1585
60
        case TIFF_SLONG8:
1586
60
            break;
1587
0
        default:
1588
0
            return (TIFFReadDirEntryErrType);
1589
60
    }
1590
60
    err = TIFFReadDirEntryArray(tif, direntry, &count, 1, &origdata);
1591
60
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
1592
53
    {
1593
53
        *value = 0;
1594
53
        return (err);
1595
53
    }
1596
7
    switch (direntry->tdir_type)
1597
7
    {
1598
0
        case TIFF_UNDEFINED:
1599
0
        case TIFF_BYTE:
1600
0
        {
1601
0
            uint8_t *m;
1602
0
            uint32_t n;
1603
0
            m = (uint8_t *)origdata;
1604
0
            for (n = 0; n < count; n++)
1605
0
            {
1606
0
                err = TIFFReadDirEntryCheckRangeSbyteByte(*m);
1607
0
                if (err != TIFFReadDirEntryErrOk)
1608
0
                {
1609
0
                    _TIFFfreeExt(tif, origdata);
1610
0
                    return (err);
1611
0
                }
1612
0
                m++;
1613
0
            }
1614
0
            *value = (int8_t *)origdata;
1615
0
            return (TIFFReadDirEntryErrOk);
1616
0
        }
1617
7
        case TIFF_SBYTE:
1618
7
            *value = (int8_t *)origdata;
1619
7
            return (TIFFReadDirEntryErrOk);
1620
7
    }
1621
0
    data = (int8_t *)_TIFFmallocExt(tif, count);
1622
0
    if (data == 0)
1623
0
    {
1624
0
        _TIFFfreeExt(tif, origdata);
1625
0
        return (TIFFReadDirEntryErrAlloc);
1626
0
    }
1627
0
    switch (direntry->tdir_type)
1628
0
    {
1629
0
        case TIFF_SHORT:
1630
0
        {
1631
0
            uint16_t *ma;
1632
0
            int8_t *mb;
1633
0
            uint32_t n;
1634
0
            ma = (uint16_t *)origdata;
1635
0
            mb = data;
1636
0
            for (n = 0; n < count; n++)
1637
0
            {
1638
0
                if (tif->tif_flags & TIFF_SWAB)
1639
0
                    TIFFSwabShort(ma);
1640
0
                err = TIFFReadDirEntryCheckRangeSbyteShort(*ma);
1641
0
                if (err != TIFFReadDirEntryErrOk)
1642
0
                    break;
1643
0
                *mb++ = (int8_t)(*ma++);
1644
0
            }
1645
0
        }
1646
0
        break;
1647
0
        case TIFF_SSHORT:
1648
0
        {
1649
0
            int16_t *ma;
1650
0
            int8_t *mb;
1651
0
            uint32_t n;
1652
0
            ma = (int16_t *)origdata;
1653
0
            mb = data;
1654
0
            for (n = 0; n < count; n++)
1655
0
            {
1656
0
                if (tif->tif_flags & TIFF_SWAB)
1657
0
                    TIFFSwabShort((uint16_t *)ma);
1658
0
                err = TIFFReadDirEntryCheckRangeSbyteSshort(*ma);
1659
0
                if (err != TIFFReadDirEntryErrOk)
1660
0
                    break;
1661
0
                *mb++ = (int8_t)(*ma++);
1662
0
            }
1663
0
        }
1664
0
        break;
1665
0
        case TIFF_LONG:
1666
0
        {
1667
0
            uint32_t *ma;
1668
0
            int8_t *mb;
1669
0
            uint32_t n;
1670
0
            ma = (uint32_t *)origdata;
1671
0
            mb = data;
1672
0
            for (n = 0; n < count; n++)
1673
0
            {
1674
0
                if (tif->tif_flags & TIFF_SWAB)
1675
0
                    TIFFSwabLong(ma);
1676
0
                err = TIFFReadDirEntryCheckRangeSbyteLong(*ma);
1677
0
                if (err != TIFFReadDirEntryErrOk)
1678
0
                    break;
1679
0
                *mb++ = (int8_t)(*ma++);
1680
0
            }
1681
0
        }
1682
0
        break;
1683
0
        case TIFF_SLONG:
1684
0
        {
1685
0
            int32_t *ma;
1686
0
            int8_t *mb;
1687
0
            uint32_t n;
1688
0
            ma = (int32_t *)origdata;
1689
0
            mb = data;
1690
0
            for (n = 0; n < count; n++)
1691
0
            {
1692
0
                if (tif->tif_flags & TIFF_SWAB)
1693
0
                    TIFFSwabLong((uint32_t *)ma);
1694
0
                err = TIFFReadDirEntryCheckRangeSbyteSlong(*ma);
1695
0
                if (err != TIFFReadDirEntryErrOk)
1696
0
                    break;
1697
0
                *mb++ = (int8_t)(*ma++);
1698
0
            }
1699
0
        }
1700
0
        break;
1701
0
        case TIFF_LONG8:
1702
0
        {
1703
0
            uint64_t *ma;
1704
0
            int8_t *mb;
1705
0
            uint32_t n;
1706
0
            ma = (uint64_t *)origdata;
1707
0
            mb = data;
1708
0
            for (n = 0; n < count; n++)
1709
0
            {
1710
0
                if (tif->tif_flags & TIFF_SWAB)
1711
0
                    TIFFSwabLong8(ma);
1712
0
                err = TIFFReadDirEntryCheckRangeSbyteLong8(*ma);
1713
0
                if (err != TIFFReadDirEntryErrOk)
1714
0
                    break;
1715
0
                *mb++ = (int8_t)(*ma++);
1716
0
            }
1717
0
        }
1718
0
        break;
1719
0
        case TIFF_SLONG8:
1720
0
        {
1721
0
            int64_t *ma;
1722
0
            int8_t *mb;
1723
0
            uint32_t n;
1724
0
            ma = (int64_t *)origdata;
1725
0
            mb = data;
1726
0
            for (n = 0; n < count; n++)
1727
0
            {
1728
0
                if (tif->tif_flags & TIFF_SWAB)
1729
0
                    TIFFSwabLong8((uint64_t *)ma);
1730
0
                err = TIFFReadDirEntryCheckRangeSbyteSlong8(*ma);
1731
0
                if (err != TIFFReadDirEntryErrOk)
1732
0
                    break;
1733
0
                *mb++ = (int8_t)(*ma++);
1734
0
            }
1735
0
        }
1736
0
        break;
1737
0
    }
1738
0
    _TIFFfreeExt(tif, origdata);
1739
0
    if (err != TIFFReadDirEntryErrOk)
1740
0
    {
1741
0
        _TIFFfreeExt(tif, data);
1742
0
        return (err);
1743
0
    }
1744
0
    *value = data;
1745
0
    return (TIFFReadDirEntryErrOk);
1746
0
}
1747
1748
static enum TIFFReadDirEntryErr
1749
TIFFReadDirEntryShortArray(TIFF *tif, TIFFDirEntry *direntry, uint16_t **value)
1750
860
{
1751
860
    enum TIFFReadDirEntryErr err;
1752
860
    uint32_t count;
1753
860
    void *origdata;
1754
860
    uint16_t *data;
1755
860
    switch (direntry->tdir_type)
1756
860
    {
1757
19
        case TIFF_BYTE:
1758
22
        case TIFF_SBYTE:
1759
798
        case TIFF_SHORT:
1760
809
        case TIFF_SSHORT:
1761
815
        case TIFF_LONG:
1762
833
        case TIFF_SLONG:
1763
843
        case TIFF_LONG8:
1764
858
        case TIFF_SLONG8:
1765
858
            break;
1766
2
        default:
1767
2
            return (TIFFReadDirEntryErrType);
1768
860
    }
1769
858
    err = TIFFReadDirEntryArray(tif, direntry, &count, 2, &origdata);
1770
858
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
1771
267
    {
1772
267
        *value = 0;
1773
267
        return (err);
1774
267
    }
1775
591
    switch (direntry->tdir_type)
1776
591
    {
1777
517
        case TIFF_SHORT:
1778
517
            *value = (uint16_t *)origdata;
1779
517
            if (tif->tif_flags & TIFF_SWAB)
1780
38
                TIFFSwabArrayOfShort(*value, count);
1781
517
            return (TIFFReadDirEntryErrOk);
1782
11
        case TIFF_SSHORT:
1783
11
        {
1784
11
            int16_t *m;
1785
11
            uint32_t n;
1786
11
            m = (int16_t *)origdata;
1787
59
            for (n = 0; n < count; n++)
1788
51
            {
1789
51
                if (tif->tif_flags & TIFF_SWAB)
1790
0
                    TIFFSwabShort((uint16_t *)m);
1791
51
                err = TIFFReadDirEntryCheckRangeShortSshort(*m);
1792
51
                if (err != TIFFReadDirEntryErrOk)
1793
3
                {
1794
3
                    _TIFFfreeExt(tif, origdata);
1795
3
                    return (err);
1796
3
                }
1797
48
                m++;
1798
48
            }
1799
8
            *value = (uint16_t *)origdata;
1800
8
            return (TIFFReadDirEntryErrOk);
1801
11
        }
1802
591
    }
1803
63
    data = (uint16_t *)_TIFFmallocExt(tif, count * 2);
1804
63
    if (data == 0)
1805
0
    {
1806
0
        _TIFFfreeExt(tif, origdata);
1807
0
        return (TIFFReadDirEntryErrAlloc);
1808
0
    }
1809
63
    switch (direntry->tdir_type)
1810
63
    {
1811
15
        case TIFF_BYTE:
1812
15
        {
1813
15
            uint8_t *ma;
1814
15
            uint16_t *mb;
1815
15
            uint32_t n;
1816
15
            ma = (uint8_t *)origdata;
1817
15
            mb = data;
1818
299
            for (n = 0; n < count; n++)
1819
284
                *mb++ = (uint16_t)(*ma++);
1820
15
        }
1821
15
        break;
1822
3
        case TIFF_SBYTE:
1823
3
        {
1824
3
            int8_t *ma;
1825
3
            uint16_t *mb;
1826
3
            uint32_t n;
1827
3
            ma = (int8_t *)origdata;
1828
3
            mb = data;
1829
174
            for (n = 0; n < count; n++)
1830
172
            {
1831
172
                err = TIFFReadDirEntryCheckRangeShortSbyte(*ma);
1832
172
                if (err != TIFFReadDirEntryErrOk)
1833
1
                    break;
1834
171
                *mb++ = (uint16_t)(*ma++);
1835
171
            }
1836
3
        }
1837
3
        break;
1838
6
        case TIFF_LONG:
1839
6
        {
1840
6
            uint32_t *ma;
1841
6
            uint16_t *mb;
1842
6
            uint32_t n;
1843
6
            ma = (uint32_t *)origdata;
1844
6
            mb = data;
1845
206
            for (n = 0; n < count; n++)
1846
205
            {
1847
205
                if (tif->tif_flags & TIFF_SWAB)
1848
200
                    TIFFSwabLong(ma);
1849
205
                err = TIFFReadDirEntryCheckRangeShortLong(*ma);
1850
205
                if (err != TIFFReadDirEntryErrOk)
1851
5
                    break;
1852
200
                *mb++ = (uint16_t)(*ma++);
1853
200
            }
1854
6
        }
1855
6
        break;
1856
15
        case TIFF_SLONG:
1857
15
        {
1858
15
            int32_t *ma;
1859
15
            uint16_t *mb;
1860
15
            uint32_t n;
1861
15
            ma = (int32_t *)origdata;
1862
15
            mb = data;
1863
28
            for (n = 0; n < count; n++)
1864
28
            {
1865
28
                if (tif->tif_flags & TIFF_SWAB)
1866
17
                    TIFFSwabLong((uint32_t *)ma);
1867
28
                err = TIFFReadDirEntryCheckRangeShortSlong(*ma);
1868
28
                if (err != TIFFReadDirEntryErrOk)
1869
15
                    break;
1870
13
                *mb++ = (uint16_t)(*ma++);
1871
13
            }
1872
15
        }
1873
15
        break;
1874
9
        case TIFF_LONG8:
1875
9
        {
1876
9
            uint64_t *ma;
1877
9
            uint16_t *mb;
1878
9
            uint32_t n;
1879
9
            ma = (uint64_t *)origdata;
1880
9
            mb = data;
1881
21
            for (n = 0; n < count; n++)
1882
20
            {
1883
20
                if (tif->tif_flags & TIFF_SWAB)
1884
1
                    TIFFSwabLong8(ma);
1885
20
                err = TIFFReadDirEntryCheckRangeShortLong8(*ma);
1886
20
                if (err != TIFFReadDirEntryErrOk)
1887
8
                    break;
1888
12
                *mb++ = (uint16_t)(*ma++);
1889
12
            }
1890
9
        }
1891
9
        break;
1892
15
        case TIFF_SLONG8:
1893
15
        {
1894
15
            int64_t *ma;
1895
15
            uint16_t *mb;
1896
15
            uint32_t n;
1897
15
            ma = (int64_t *)origdata;
1898
15
            mb = data;
1899
53
            for (n = 0; n < count; n++)
1900
45
            {
1901
45
                if (tif->tif_flags & TIFF_SWAB)
1902
27
                    TIFFSwabLong8((uint64_t *)ma);
1903
45
                err = TIFFReadDirEntryCheckRangeShortSlong8(*ma);
1904
45
                if (err != TIFFReadDirEntryErrOk)
1905
7
                    break;
1906
38
                *mb++ = (uint16_t)(*ma++);
1907
38
            }
1908
15
        }
1909
15
        break;
1910
63
    }
1911
63
    _TIFFfreeExt(tif, origdata);
1912
63
    if (err != TIFFReadDirEntryErrOk)
1913
36
    {
1914
36
        _TIFFfreeExt(tif, data);
1915
36
        return (err);
1916
36
    }
1917
27
    *value = data;
1918
27
    return (TIFFReadDirEntryErrOk);
1919
63
}
1920
1921
static enum TIFFReadDirEntryErr
1922
TIFFReadDirEntrySshortArray(TIFF *tif, TIFFDirEntry *direntry, int16_t **value)
1923
123
{
1924
123
    enum TIFFReadDirEntryErr err;
1925
123
    uint32_t count;
1926
123
    void *origdata;
1927
123
    int16_t *data;
1928
123
    switch (direntry->tdir_type)
1929
123
    {
1930
0
        case TIFF_BYTE:
1931
0
        case TIFF_SBYTE:
1932
0
        case TIFF_SHORT:
1933
123
        case TIFF_SSHORT:
1934
123
        case TIFF_LONG:
1935
123
        case TIFF_SLONG:
1936
123
        case TIFF_LONG8:
1937
123
        case TIFF_SLONG8:
1938
123
            break;
1939
0
        default:
1940
0
            return (TIFFReadDirEntryErrType);
1941
123
    }
1942
123
    err = TIFFReadDirEntryArray(tif, direntry, &count, 2, &origdata);
1943
123
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
1944
89
    {
1945
89
        *value = 0;
1946
89
        return (err);
1947
89
    }
1948
34
    switch (direntry->tdir_type)
1949
34
    {
1950
0
        case TIFF_SHORT:
1951
0
        {
1952
0
            uint16_t *m;
1953
0
            uint32_t n;
1954
0
            m = (uint16_t *)origdata;
1955
0
            for (n = 0; n < count; n++)
1956
0
            {
1957
0
                if (tif->tif_flags & TIFF_SWAB)
1958
0
                    TIFFSwabShort(m);
1959
0
                err = TIFFReadDirEntryCheckRangeSshortShort(*m);
1960
0
                if (err != TIFFReadDirEntryErrOk)
1961
0
                {
1962
0
                    _TIFFfreeExt(tif, origdata);
1963
0
                    return (err);
1964
0
                }
1965
0
                m++;
1966
0
            }
1967
0
            *value = (int16_t *)origdata;
1968
0
            return (TIFFReadDirEntryErrOk);
1969
0
        }
1970
34
        case TIFF_SSHORT:
1971
34
            *value = (int16_t *)origdata;
1972
34
            if (tif->tif_flags & TIFF_SWAB)
1973
4
                TIFFSwabArrayOfShort((uint16_t *)(*value), count);
1974
34
            return (TIFFReadDirEntryErrOk);
1975
34
    }
1976
0
    data = (int16_t *)_TIFFmallocExt(tif, count * 2);
1977
0
    if (data == 0)
1978
0
    {
1979
0
        _TIFFfreeExt(tif, origdata);
1980
0
        return (TIFFReadDirEntryErrAlloc);
1981
0
    }
1982
0
    switch (direntry->tdir_type)
1983
0
    {
1984
0
        case TIFF_BYTE:
1985
0
        {
1986
0
            uint8_t *ma;
1987
0
            int16_t *mb;
1988
0
            uint32_t n;
1989
0
            ma = (uint8_t *)origdata;
1990
0
            mb = data;
1991
0
            for (n = 0; n < count; n++)
1992
0
                *mb++ = (int16_t)(*ma++);
1993
0
        }
1994
0
        break;
1995
0
        case TIFF_SBYTE:
1996
0
        {
1997
0
            int8_t *ma;
1998
0
            int16_t *mb;
1999
0
            uint32_t n;
2000
0
            ma = (int8_t *)origdata;
2001
0
            mb = data;
2002
0
            for (n = 0; n < count; n++)
2003
0
                *mb++ = (int16_t)(*ma++);
2004
0
        }
2005
0
        break;
2006
0
        case TIFF_LONG:
2007
0
        {
2008
0
            uint32_t *ma;
2009
0
            int16_t *mb;
2010
0
            uint32_t n;
2011
0
            ma = (uint32_t *)origdata;
2012
0
            mb = data;
2013
0
            for (n = 0; n < count; n++)
2014
0
            {
2015
0
                if (tif->tif_flags & TIFF_SWAB)
2016
0
                    TIFFSwabLong(ma);
2017
0
                err = TIFFReadDirEntryCheckRangeSshortLong(*ma);
2018
0
                if (err != TIFFReadDirEntryErrOk)
2019
0
                    break;
2020
0
                *mb++ = (int16_t)(*ma++);
2021
0
            }
2022
0
        }
2023
0
        break;
2024
0
        case TIFF_SLONG:
2025
0
        {
2026
0
            int32_t *ma;
2027
0
            int16_t *mb;
2028
0
            uint32_t n;
2029
0
            ma = (int32_t *)origdata;
2030
0
            mb = data;
2031
0
            for (n = 0; n < count; n++)
2032
0
            {
2033
0
                if (tif->tif_flags & TIFF_SWAB)
2034
0
                    TIFFSwabLong((uint32_t *)ma);
2035
0
                err = TIFFReadDirEntryCheckRangeSshortSlong(*ma);
2036
0
                if (err != TIFFReadDirEntryErrOk)
2037
0
                    break;
2038
0
                *mb++ = (int16_t)(*ma++);
2039
0
            }
2040
0
        }
2041
0
        break;
2042
0
        case TIFF_LONG8:
2043
0
        {
2044
0
            uint64_t *ma;
2045
0
            int16_t *mb;
2046
0
            uint32_t n;
2047
0
            ma = (uint64_t *)origdata;
2048
0
            mb = data;
2049
0
            for (n = 0; n < count; n++)
2050
0
            {
2051
0
                if (tif->tif_flags & TIFF_SWAB)
2052
0
                    TIFFSwabLong8(ma);
2053
0
                err = TIFFReadDirEntryCheckRangeSshortLong8(*ma);
2054
0
                if (err != TIFFReadDirEntryErrOk)
2055
0
                    break;
2056
0
                *mb++ = (int16_t)(*ma++);
2057
0
            }
2058
0
        }
2059
0
        break;
2060
0
        case TIFF_SLONG8:
2061
0
        {
2062
0
            int64_t *ma;
2063
0
            int16_t *mb;
2064
0
            uint32_t n;
2065
0
            ma = (int64_t *)origdata;
2066
0
            mb = data;
2067
0
            for (n = 0; n < count; n++)
2068
0
            {
2069
0
                if (tif->tif_flags & TIFF_SWAB)
2070
0
                    TIFFSwabLong8((uint64_t *)ma);
2071
0
                err = TIFFReadDirEntryCheckRangeSshortSlong8(*ma);
2072
0
                if (err != TIFFReadDirEntryErrOk)
2073
0
                    break;
2074
0
                *mb++ = (int16_t)(*ma++);
2075
0
            }
2076
0
        }
2077
0
        break;
2078
0
    }
2079
0
    _TIFFfreeExt(tif, origdata);
2080
0
    if (err != TIFFReadDirEntryErrOk)
2081
0
    {
2082
0
        _TIFFfreeExt(tif, data);
2083
0
        return (err);
2084
0
    }
2085
0
    *value = data;
2086
0
    return (TIFFReadDirEntryErrOk);
2087
0
}
2088
2089
static enum TIFFReadDirEntryErr
2090
TIFFReadDirEntryLongArray(TIFF *tif, TIFFDirEntry *direntry, uint32_t **value)
2091
356
{
2092
356
    enum TIFFReadDirEntryErr err;
2093
356
    uint32_t count;
2094
356
    void *origdata;
2095
356
    uint32_t *data;
2096
356
    switch (direntry->tdir_type)
2097
356
    {
2098
2
        case TIFF_BYTE:
2099
9
        case TIFF_SBYTE:
2100
11
        case TIFF_SHORT:
2101
20
        case TIFF_SSHORT:
2102
294
        case TIFF_LONG:
2103
305
        case TIFF_SLONG:
2104
325
        case TIFF_LONG8:
2105
355
        case TIFF_SLONG8:
2106
355
            break;
2107
1
        default:
2108
1
            return (TIFFReadDirEntryErrType);
2109
356
    }
2110
355
    err = TIFFReadDirEntryArray(tif, direntry, &count, 4, &origdata);
2111
355
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
2112
251
    {
2113
251
        *value = 0;
2114
251
        return (err);
2115
251
    }
2116
104
    switch (direntry->tdir_type)
2117
104
    {
2118
44
        case TIFF_LONG:
2119
44
            *value = (uint32_t *)origdata;
2120
44
            if (tif->tif_flags & TIFF_SWAB)
2121
22
                TIFFSwabArrayOfLong(*value, count);
2122
44
            return (TIFFReadDirEntryErrOk);
2123
6
        case TIFF_SLONG:
2124
6
        {
2125
6
            int32_t *m;
2126
6
            uint32_t n;
2127
6
            m = (int32_t *)origdata;
2128
54
            for (n = 0; n < count; n++)
2129
54
            {
2130
54
                if (tif->tif_flags & TIFF_SWAB)
2131
33
                    TIFFSwabLong((uint32_t *)m);
2132
54
                err = TIFFReadDirEntryCheckRangeLongSlong(*m);
2133
54
                if (err != TIFFReadDirEntryErrOk)
2134
6
                {
2135
6
                    _TIFFfreeExt(tif, origdata);
2136
6
                    return (err);
2137
6
                }
2138
48
                m++;
2139
48
            }
2140
0
            *value = (uint32_t *)origdata;
2141
0
            return (TIFFReadDirEntryErrOk);
2142
6
        }
2143
104
    }
2144
54
    data = (uint32_t *)_TIFFmallocExt(tif, count * 4);
2145
54
    if (data == 0)
2146
0
    {
2147
0
        _TIFFfreeExt(tif, origdata);
2148
0
        return (TIFFReadDirEntryErrAlloc);
2149
0
    }
2150
54
    switch (direntry->tdir_type)
2151
54
    {
2152
2
        case TIFF_BYTE:
2153
2
        {
2154
2
            uint8_t *ma;
2155
2
            uint32_t *mb;
2156
2
            uint32_t n;
2157
2
            ma = (uint8_t *)origdata;
2158
2
            mb = data;
2159
21
            for (n = 0; n < count; n++)
2160
19
                *mb++ = (uint32_t)(*ma++);
2161
2
        }
2162
2
        break;
2163
6
        case TIFF_SBYTE:
2164
6
        {
2165
6
            int8_t *ma;
2166
6
            uint32_t *mb;
2167
6
            uint32_t n;
2168
6
            ma = (int8_t *)origdata;
2169
6
            mb = data;
2170
61
            for (n = 0; n < count; n++)
2171
60
            {
2172
60
                err = TIFFReadDirEntryCheckRangeLongSbyte(*ma);
2173
60
                if (err != TIFFReadDirEntryErrOk)
2174
5
                    break;
2175
55
                *mb++ = (uint32_t)(*ma++);
2176
55
            }
2177
6
        }
2178
6
        break;
2179
2
        case TIFF_SHORT:
2180
2
        {
2181
2
            uint16_t *ma;
2182
2
            uint32_t *mb;
2183
2
            uint32_t n;
2184
2
            ma = (uint16_t *)origdata;
2185
2
            mb = data;
2186
21
            for (n = 0; n < count; n++)
2187
19
            {
2188
19
                if (tif->tif_flags & TIFF_SWAB)
2189
19
                    TIFFSwabShort(ma);
2190
19
                *mb++ = (uint32_t)(*ma++);
2191
19
            }
2192
2
        }
2193
2
        break;
2194
9
        case TIFF_SSHORT:
2195
9
        {
2196
9
            int16_t *ma;
2197
9
            uint32_t *mb;
2198
9
            uint32_t n;
2199
9
            ma = (int16_t *)origdata;
2200
9
            mb = data;
2201
142
            for (n = 0; n < count; n++)
2202
136
            {
2203
136
                if (tif->tif_flags & TIFF_SWAB)
2204
0
                    TIFFSwabShort((uint16_t *)ma);
2205
136
                err = TIFFReadDirEntryCheckRangeLongSshort(*ma);
2206
136
                if (err != TIFFReadDirEntryErrOk)
2207
3
                    break;
2208
133
                *mb++ = (uint32_t)(*ma++);
2209
133
            }
2210
9
        }
2211
9
        break;
2212
18
        case TIFF_LONG8:
2213
18
        {
2214
18
            uint64_t *ma;
2215
18
            uint32_t *mb;
2216
18
            uint32_t n;
2217
18
            ma = (uint64_t *)origdata;
2218
18
            mb = data;
2219
64
            for (n = 0; n < count; n++)
2220
62
            {
2221
62
                if (tif->tif_flags & TIFF_SWAB)
2222
14
                    TIFFSwabLong8(ma);
2223
62
                err = TIFFReadDirEntryCheckRangeLongLong8(*ma);
2224
62
                if (err != TIFFReadDirEntryErrOk)
2225
16
                    break;
2226
46
                *mb++ = (uint32_t)(*ma++);
2227
46
            }
2228
18
        }
2229
18
        break;
2230
17
        case TIFF_SLONG8:
2231
17
        {
2232
17
            int64_t *ma;
2233
17
            uint32_t *mb;
2234
17
            uint32_t n;
2235
17
            ma = (int64_t *)origdata;
2236
17
            mb = data;
2237
712
            for (n = 0; n < count; n++)
2238
704
            {
2239
704
                if (tif->tif_flags & TIFF_SWAB)
2240
5
                    TIFFSwabLong8((uint64_t *)ma);
2241
704
                err = TIFFReadDirEntryCheckRangeLongSlong8(*ma);
2242
704
                if (err != TIFFReadDirEntryErrOk)
2243
9
                    break;
2244
695
                *mb++ = (uint32_t)(*ma++);
2245
695
            }
2246
17
        }
2247
17
        break;
2248
54
    }
2249
54
    _TIFFfreeExt(tif, origdata);
2250
54
    if (err != TIFFReadDirEntryErrOk)
2251
33
    {
2252
33
        _TIFFfreeExt(tif, data);
2253
33
        return (err);
2254
33
    }
2255
21
    *value = data;
2256
21
    return (TIFFReadDirEntryErrOk);
2257
54
}
2258
2259
static enum TIFFReadDirEntryErr
2260
TIFFReadDirEntrySlongArray(TIFF *tif, TIFFDirEntry *direntry, int32_t **value)
2261
50
{
2262
50
    enum TIFFReadDirEntryErr err;
2263
50
    uint32_t count;
2264
50
    void *origdata;
2265
50
    int32_t *data;
2266
50
    switch (direntry->tdir_type)
2267
50
    {
2268
0
        case TIFF_BYTE:
2269
0
        case TIFF_SBYTE:
2270
0
        case TIFF_SHORT:
2271
0
        case TIFF_SSHORT:
2272
0
        case TIFF_LONG:
2273
50
        case TIFF_SLONG:
2274
50
        case TIFF_LONG8:
2275
50
        case TIFF_SLONG8:
2276
50
            break;
2277
0
        default:
2278
0
            return (TIFFReadDirEntryErrType);
2279
50
    }
2280
50
    err = TIFFReadDirEntryArray(tif, direntry, &count, 4, &origdata);
2281
50
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
2282
37
    {
2283
37
        *value = 0;
2284
37
        return (err);
2285
37
    }
2286
13
    switch (direntry->tdir_type)
2287
13
    {
2288
0
        case TIFF_LONG:
2289
0
        {
2290
0
            uint32_t *m;
2291
0
            uint32_t n;
2292
0
            m = (uint32_t *)origdata;
2293
0
            for (n = 0; n < count; n++)
2294
0
            {
2295
0
                if (tif->tif_flags & TIFF_SWAB)
2296
0
                    TIFFSwabLong((uint32_t *)m);
2297
0
                err = TIFFReadDirEntryCheckRangeSlongLong(*m);
2298
0
                if (err != TIFFReadDirEntryErrOk)
2299
0
                {
2300
0
                    _TIFFfreeExt(tif, origdata);
2301
0
                    return (err);
2302
0
                }
2303
0
                m++;
2304
0
            }
2305
0
            *value = (int32_t *)origdata;
2306
0
            return (TIFFReadDirEntryErrOk);
2307
0
        }
2308
13
        case TIFF_SLONG:
2309
13
            *value = (int32_t *)origdata;
2310
13
            if (tif->tif_flags & TIFF_SWAB)
2311
6
                TIFFSwabArrayOfLong((uint32_t *)(*value), count);
2312
13
            return (TIFFReadDirEntryErrOk);
2313
13
    }
2314
0
    data = (int32_t *)_TIFFmallocExt(tif, count * 4);
2315
0
    if (data == 0)
2316
0
    {
2317
0
        _TIFFfreeExt(tif, origdata);
2318
0
        return (TIFFReadDirEntryErrAlloc);
2319
0
    }
2320
0
    switch (direntry->tdir_type)
2321
0
    {
2322
0
        case TIFF_BYTE:
2323
0
        {
2324
0
            uint8_t *ma;
2325
0
            int32_t *mb;
2326
0
            uint32_t n;
2327
0
            ma = (uint8_t *)origdata;
2328
0
            mb = data;
2329
0
            for (n = 0; n < count; n++)
2330
0
                *mb++ = (int32_t)(*ma++);
2331
0
        }
2332
0
        break;
2333
0
        case TIFF_SBYTE:
2334
0
        {
2335
0
            int8_t *ma;
2336
0
            int32_t *mb;
2337
0
            uint32_t n;
2338
0
            ma = (int8_t *)origdata;
2339
0
            mb = data;
2340
0
            for (n = 0; n < count; n++)
2341
0
                *mb++ = (int32_t)(*ma++);
2342
0
        }
2343
0
        break;
2344
0
        case TIFF_SHORT:
2345
0
        {
2346
0
            uint16_t *ma;
2347
0
            int32_t *mb;
2348
0
            uint32_t n;
2349
0
            ma = (uint16_t *)origdata;
2350
0
            mb = data;
2351
0
            for (n = 0; n < count; n++)
2352
0
            {
2353
0
                if (tif->tif_flags & TIFF_SWAB)
2354
0
                    TIFFSwabShort(ma);
2355
0
                *mb++ = (int32_t)(*ma++);
2356
0
            }
2357
0
        }
2358
0
        break;
2359
0
        case TIFF_SSHORT:
2360
0
        {
2361
0
            int16_t *ma;
2362
0
            int32_t *mb;
2363
0
            uint32_t n;
2364
0
            ma = (int16_t *)origdata;
2365
0
            mb = data;
2366
0
            for (n = 0; n < count; n++)
2367
0
            {
2368
0
                if (tif->tif_flags & TIFF_SWAB)
2369
0
                    TIFFSwabShort((uint16_t *)ma);
2370
0
                *mb++ = (int32_t)(*ma++);
2371
0
            }
2372
0
        }
2373
0
        break;
2374
0
        case TIFF_LONG8:
2375
0
        {
2376
0
            uint64_t *ma;
2377
0
            int32_t *mb;
2378
0
            uint32_t n;
2379
0
            ma = (uint64_t *)origdata;
2380
0
            mb = data;
2381
0
            for (n = 0; n < count; n++)
2382
0
            {
2383
0
                if (tif->tif_flags & TIFF_SWAB)
2384
0
                    TIFFSwabLong8(ma);
2385
0
                err = TIFFReadDirEntryCheckRangeSlongLong8(*ma);
2386
0
                if (err != TIFFReadDirEntryErrOk)
2387
0
                    break;
2388
0
                *mb++ = (int32_t)(*ma++);
2389
0
            }
2390
0
        }
2391
0
        break;
2392
0
        case TIFF_SLONG8:
2393
0
        {
2394
0
            int64_t *ma;
2395
0
            int32_t *mb;
2396
0
            uint32_t n;
2397
0
            ma = (int64_t *)origdata;
2398
0
            mb = data;
2399
0
            for (n = 0; n < count; n++)
2400
0
            {
2401
0
                if (tif->tif_flags & TIFF_SWAB)
2402
0
                    TIFFSwabLong8((uint64_t *)ma);
2403
0
                err = TIFFReadDirEntryCheckRangeSlongSlong8(*ma);
2404
0
                if (err != TIFFReadDirEntryErrOk)
2405
0
                    break;
2406
0
                *mb++ = (int32_t)(*ma++);
2407
0
            }
2408
0
        }
2409
0
        break;
2410
0
    }
2411
0
    _TIFFfreeExt(tif, origdata);
2412
0
    if (err != TIFFReadDirEntryErrOk)
2413
0
    {
2414
0
        _TIFFfreeExt(tif, data);
2415
0
        return (err);
2416
0
    }
2417
0
    *value = data;
2418
0
    return (TIFFReadDirEntryErrOk);
2419
0
}
2420
2421
static enum TIFFReadDirEntryErr
2422
TIFFReadDirEntryLong8ArrayWithLimit(TIFF *tif, TIFFDirEntry *direntry,
2423
                                    uint64_t **value, uint64_t maxcount)
2424
805
{
2425
805
    enum TIFFReadDirEntryErr err;
2426
805
    uint32_t count;
2427
805
    void *origdata;
2428
805
    uint64_t *data;
2429
805
    switch (direntry->tdir_type)
2430
805
    {
2431
81
        case TIFF_BYTE:
2432
104
        case TIFF_SBYTE:
2433
170
        case TIFF_SHORT:
2434
185
        case TIFF_SSHORT:
2435
590
        case TIFF_LONG:
2436
595
        case TIFF_SLONG:
2437
747
        case TIFF_LONG8:
2438
760
        case TIFF_SLONG8:
2439
760
            break;
2440
45
        default:
2441
45
            return (TIFFReadDirEntryErrType);
2442
805
    }
2443
760
    err = TIFFReadDirEntryArrayWithLimit(tif, direntry, &count, 8, &origdata,
2444
760
                                         maxcount);
2445
760
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
2446
148
    {
2447
148
        *value = 0;
2448
148
        return (err);
2449
148
    }
2450
612
    switch (direntry->tdir_type)
2451
612
    {
2452
92
        case TIFF_LONG8:
2453
92
            *value = (uint64_t *)origdata;
2454
92
            if (tif->tif_flags & TIFF_SWAB)
2455
6
                TIFFSwabArrayOfLong8(*value, count);
2456
92
            return (TIFFReadDirEntryErrOk);
2457
13
        case TIFF_SLONG8:
2458
13
        {
2459
13
            int64_t *m;
2460
13
            uint32_t n;
2461
13
            m = (int64_t *)origdata;
2462
62
            for (n = 0; n < count; n++)
2463
54
            {
2464
54
                if (tif->tif_flags & TIFF_SWAB)
2465
20
                    TIFFSwabLong8((uint64_t *)m);
2466
54
                err = TIFFReadDirEntryCheckRangeLong8Slong8(*m);
2467
54
                if (err != TIFFReadDirEntryErrOk)
2468
5
                {
2469
5
                    _TIFFfreeExt(tif, origdata);
2470
5
                    return (err);
2471
5
                }
2472
49
                m++;
2473
49
            }
2474
8
            *value = (uint64_t *)origdata;
2475
8
            return (TIFFReadDirEntryErrOk);
2476
13
        }
2477
612
    }
2478
507
    data = (uint64_t *)_TIFFmallocExt(tif, count * 8);
2479
507
    if (data == 0)
2480
0
    {
2481
0
        _TIFFfreeExt(tif, origdata);
2482
0
        return (TIFFReadDirEntryErrAlloc);
2483
0
    }
2484
507
    switch (direntry->tdir_type)
2485
507
    {
2486
65
        case TIFF_BYTE:
2487
65
        {
2488
65
            uint8_t *ma;
2489
65
            uint64_t *mb;
2490
65
            uint32_t n;
2491
65
            ma = (uint8_t *)origdata;
2492
65
            mb = data;
2493
885
            for (n = 0; n < count; n++)
2494
820
                *mb++ = (uint64_t)(*ma++);
2495
65
        }
2496
65
        break;
2497
15
        case TIFF_SBYTE:
2498
15
        {
2499
15
            int8_t *ma;
2500
15
            uint64_t *mb;
2501
15
            uint32_t n;
2502
15
            ma = (int8_t *)origdata;
2503
15
            mb = data;
2504
53
            for (n = 0; n < count; n++)
2505
38
            {
2506
38
                err = TIFFReadDirEntryCheckRangeLong8Sbyte(*ma);
2507
38
                if (err != TIFFReadDirEntryErrOk)
2508
0
                    break;
2509
38
                *mb++ = (uint64_t)(*ma++);
2510
38
            }
2511
15
        }
2512
15
        break;
2513
57
        case TIFF_SHORT:
2514
57
        {
2515
57
            uint16_t *ma;
2516
57
            uint64_t *mb;
2517
57
            uint32_t n;
2518
57
            ma = (uint16_t *)origdata;
2519
57
            mb = data;
2520
861
            for (n = 0; n < count; n++)
2521
804
            {
2522
804
                if (tif->tif_flags & TIFF_SWAB)
2523
504
                    TIFFSwabShort(ma);
2524
804
                *mb++ = (uint64_t)(*ma++);
2525
804
            }
2526
57
        }
2527
57
        break;
2528
11
        case TIFF_SSHORT:
2529
11
        {
2530
11
            int16_t *ma;
2531
11
            uint64_t *mb;
2532
11
            uint32_t n;
2533
11
            ma = (int16_t *)origdata;
2534
11
            mb = data;
2535
101
            for (n = 0; n < count; n++)
2536
93
            {
2537
93
                if (tif->tif_flags & TIFF_SWAB)
2538
19
                    TIFFSwabShort((uint16_t *)ma);
2539
93
                err = TIFFReadDirEntryCheckRangeLong8Sshort(*ma);
2540
93
                if (err != TIFFReadDirEntryErrOk)
2541
3
                    break;
2542
90
                *mb++ = (uint64_t)(*ma++);
2543
90
            }
2544
11
        }
2545
11
        break;
2546
355
        case TIFF_LONG:
2547
355
        {
2548
355
            uint32_t *ma;
2549
355
            uint64_t *mb;
2550
355
            uint32_t n;
2551
355
            ma = (uint32_t *)origdata;
2552
355
            mb = data;
2553
3.11k
            for (n = 0; n < count; n++)
2554
2.75k
            {
2555
2.75k
                if (tif->tif_flags & TIFF_SWAB)
2556
296
                    TIFFSwabLong(ma);
2557
2.75k
                *mb++ = (uint64_t)(*ma++);
2558
2.75k
            }
2559
355
        }
2560
355
        break;
2561
4
        case TIFF_SLONG:
2562
4
        {
2563
4
            int32_t *ma;
2564
4
            uint64_t *mb;
2565
4
            uint32_t n;
2566
4
            ma = (int32_t *)origdata;
2567
4
            mb = data;
2568
15
            for (n = 0; n < count; n++)
2569
12
            {
2570
12
                if (tif->tif_flags & TIFF_SWAB)
2571
7
                    TIFFSwabLong((uint32_t *)ma);
2572
12
                err = TIFFReadDirEntryCheckRangeLong8Slong(*ma);
2573
12
                if (err != TIFFReadDirEntryErrOk)
2574
1
                    break;
2575
11
                *mb++ = (uint64_t)(*ma++);
2576
11
            }
2577
4
        }
2578
4
        break;
2579
507
    }
2580
507
    _TIFFfreeExt(tif, origdata);
2581
507
    if (err != TIFFReadDirEntryErrOk)
2582
4
    {
2583
4
        _TIFFfreeExt(tif, data);
2584
4
        return (err);
2585
4
    }
2586
503
    *value = data;
2587
503
    return (TIFFReadDirEntryErrOk);
2588
507
}
2589
2590
static enum TIFFReadDirEntryErr
2591
TIFFReadDirEntryLong8Array(TIFF *tif, TIFFDirEntry *direntry, uint64_t **value)
2592
70
{
2593
70
    return TIFFReadDirEntryLong8ArrayWithLimit(tif, direntry, value,
2594
70
                                               ~((uint64_t)0));
2595
70
}
2596
2597
static enum TIFFReadDirEntryErr
2598
TIFFReadDirEntrySlong8Array(TIFF *tif, TIFFDirEntry *direntry, int64_t **value)
2599
77
{
2600
77
    enum TIFFReadDirEntryErr err;
2601
77
    uint32_t count;
2602
77
    void *origdata;
2603
77
    int64_t *data;
2604
77
    switch (direntry->tdir_type)
2605
77
    {
2606
0
        case TIFF_BYTE:
2607
0
        case TIFF_SBYTE:
2608
0
        case TIFF_SHORT:
2609
0
        case TIFF_SSHORT:
2610
0
        case TIFF_LONG:
2611
0
        case TIFF_SLONG:
2612
0
        case TIFF_LONG8:
2613
77
        case TIFF_SLONG8:
2614
77
            break;
2615
0
        default:
2616
0
            return (TIFFReadDirEntryErrType);
2617
77
    }
2618
77
    err = TIFFReadDirEntryArray(tif, direntry, &count, 8, &origdata);
2619
77
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
2620
38
    {
2621
38
        *value = 0;
2622
38
        return (err);
2623
38
    }
2624
39
    switch (direntry->tdir_type)
2625
39
    {
2626
0
        case TIFF_LONG8:
2627
0
        {
2628
0
            uint64_t *m;
2629
0
            uint32_t n;
2630
0
            m = (uint64_t *)origdata;
2631
0
            for (n = 0; n < count; n++)
2632
0
            {
2633
0
                if (tif->tif_flags & TIFF_SWAB)
2634
0
                    TIFFSwabLong8(m);
2635
0
                err = TIFFReadDirEntryCheckRangeSlong8Long8(*m);
2636
0
                if (err != TIFFReadDirEntryErrOk)
2637
0
                {
2638
0
                    _TIFFfreeExt(tif, origdata);
2639
0
                    return (err);
2640
0
                }
2641
0
                m++;
2642
0
            }
2643
0
            *value = (int64_t *)origdata;
2644
0
            return (TIFFReadDirEntryErrOk);
2645
0
        }
2646
39
        case TIFF_SLONG8:
2647
39
            *value = (int64_t *)origdata;
2648
39
            if (tif->tif_flags & TIFF_SWAB)
2649
12
                TIFFSwabArrayOfLong8((uint64_t *)(*value), count);
2650
39
            return (TIFFReadDirEntryErrOk);
2651
39
    }
2652
0
    data = (int64_t *)_TIFFmallocExt(tif, count * 8);
2653
0
    if (data == 0)
2654
0
    {
2655
0
        _TIFFfreeExt(tif, origdata);
2656
0
        return (TIFFReadDirEntryErrAlloc);
2657
0
    }
2658
0
    switch (direntry->tdir_type)
2659
0
    {
2660
0
        case TIFF_BYTE:
2661
0
        {
2662
0
            uint8_t *ma;
2663
0
            int64_t *mb;
2664
0
            uint32_t n;
2665
0
            ma = (uint8_t *)origdata;
2666
0
            mb = data;
2667
0
            for (n = 0; n < count; n++)
2668
0
                *mb++ = (int64_t)(*ma++);
2669
0
        }
2670
0
        break;
2671
0
        case TIFF_SBYTE:
2672
0
        {
2673
0
            int8_t *ma;
2674
0
            int64_t *mb;
2675
0
            uint32_t n;
2676
0
            ma = (int8_t *)origdata;
2677
0
            mb = data;
2678
0
            for (n = 0; n < count; n++)
2679
0
                *mb++ = (int64_t)(*ma++);
2680
0
        }
2681
0
        break;
2682
0
        case TIFF_SHORT:
2683
0
        {
2684
0
            uint16_t *ma;
2685
0
            int64_t *mb;
2686
0
            uint32_t n;
2687
0
            ma = (uint16_t *)origdata;
2688
0
            mb = data;
2689
0
            for (n = 0; n < count; n++)
2690
0
            {
2691
0
                if (tif->tif_flags & TIFF_SWAB)
2692
0
                    TIFFSwabShort(ma);
2693
0
                *mb++ = (int64_t)(*ma++);
2694
0
            }
2695
0
        }
2696
0
        break;
2697
0
        case TIFF_SSHORT:
2698
0
        {
2699
0
            int16_t *ma;
2700
0
            int64_t *mb;
2701
0
            uint32_t n;
2702
0
            ma = (int16_t *)origdata;
2703
0
            mb = data;
2704
0
            for (n = 0; n < count; n++)
2705
0
            {
2706
0
                if (tif->tif_flags & TIFF_SWAB)
2707
0
                    TIFFSwabShort((uint16_t *)ma);
2708
0
                *mb++ = (int64_t)(*ma++);
2709
0
            }
2710
0
        }
2711
0
        break;
2712
0
        case TIFF_LONG:
2713
0
        {
2714
0
            uint32_t *ma;
2715
0
            int64_t *mb;
2716
0
            uint32_t n;
2717
0
            ma = (uint32_t *)origdata;
2718
0
            mb = data;
2719
0
            for (n = 0; n < count; n++)
2720
0
            {
2721
0
                if (tif->tif_flags & TIFF_SWAB)
2722
0
                    TIFFSwabLong(ma);
2723
0
                *mb++ = (int64_t)(*ma++);
2724
0
            }
2725
0
        }
2726
0
        break;
2727
0
        case TIFF_SLONG:
2728
0
        {
2729
0
            int32_t *ma;
2730
0
            int64_t *mb;
2731
0
            uint32_t n;
2732
0
            ma = (int32_t *)origdata;
2733
0
            mb = data;
2734
0
            for (n = 0; n < count; n++)
2735
0
            {
2736
0
                if (tif->tif_flags & TIFF_SWAB)
2737
0
                    TIFFSwabLong((uint32_t *)ma);
2738
0
                *mb++ = (int64_t)(*ma++);
2739
0
            }
2740
0
        }
2741
0
        break;
2742
0
    }
2743
0
    _TIFFfreeExt(tif, origdata);
2744
0
    *value = data;
2745
0
    return (TIFFReadDirEntryErrOk);
2746
0
}
2747
2748
static enum TIFFReadDirEntryErr
2749
TIFFReadDirEntryFloatArray(TIFF *tif, TIFFDirEntry *direntry, float **value)
2750
342
{
2751
342
    enum TIFFReadDirEntryErr err;
2752
342
    uint32_t count;
2753
342
    void *origdata;
2754
342
    float *data;
2755
342
    switch (direntry->tdir_type)
2756
342
    {
2757
4
        case TIFF_BYTE:
2758
8
        case TIFF_SBYTE:
2759
14
        case TIFF_SHORT:
2760
17
        case TIFF_SSHORT:
2761
26
        case TIFF_LONG:
2762
27
        case TIFF_SLONG:
2763
30
        case TIFF_LONG8:
2764
36
        case TIFF_SLONG8:
2765
156
        case TIFF_RATIONAL:
2766
232
        case TIFF_SRATIONAL:
2767
328
        case TIFF_FLOAT:
2768
335
        case TIFF_DOUBLE:
2769
335
            break;
2770
7
        default:
2771
7
            return (TIFFReadDirEntryErrType);
2772
342
    }
2773
335
    err = TIFFReadDirEntryArray(tif, direntry, &count, 4, &origdata);
2774
335
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
2775
222
    {
2776
222
        *value = 0;
2777
222
        return (err);
2778
222
    }
2779
113
    switch (direntry->tdir_type)
2780
113
    {
2781
15
        case TIFF_FLOAT:
2782
15
            if (tif->tif_flags & TIFF_SWAB)
2783
5
                TIFFSwabArrayOfLong((uint32_t *)origdata, count);
2784
15
            TIFFCvtIEEEDoubleToNative(tif, count, (float *)origdata);
2785
15
            *value = (float *)origdata;
2786
15
            return (TIFFReadDirEntryErrOk);
2787
113
    }
2788
98
    data = (float *)_TIFFmallocExt(tif, count * sizeof(float));
2789
98
    if (data == 0)
2790
0
    {
2791
0
        _TIFFfreeExt(tif, origdata);
2792
0
        return (TIFFReadDirEntryErrAlloc);
2793
0
    }
2794
98
    switch (direntry->tdir_type)
2795
98
    {
2796
2
        case TIFF_BYTE:
2797
2
        {
2798
2
            uint8_t *ma;
2799
2
            float *mb;
2800
2
            uint32_t n;
2801
2
            ma = (uint8_t *)origdata;
2802
2
            mb = data;
2803
22
            for (n = 0; n < count; n++)
2804
20
                *mb++ = (float)(*ma++);
2805
2
        }
2806
2
        break;
2807
4
        case TIFF_SBYTE:
2808
4
        {
2809
4
            int8_t *ma;
2810
4
            float *mb;
2811
4
            uint32_t n;
2812
4
            ma = (int8_t *)origdata;
2813
4
            mb = data;
2814
28
            for (n = 0; n < count; n++)
2815
24
                *mb++ = (float)(*ma++);
2816
4
        }
2817
4
        break;
2818
4
        case TIFF_SHORT:
2819
4
        {
2820
4
            uint16_t *ma;
2821
4
            float *mb;
2822
4
            uint32_t n;
2823
4
            ma = (uint16_t *)origdata;
2824
4
            mb = data;
2825
23
            for (n = 0; n < count; n++)
2826
19
            {
2827
19
                if (tif->tif_flags & TIFF_SWAB)
2828
0
                    TIFFSwabShort(ma);
2829
19
                *mb++ = (float)(*ma++);
2830
19
            }
2831
4
        }
2832
4
        break;
2833
3
        case TIFF_SSHORT:
2834
3
        {
2835
3
            int16_t *ma;
2836
3
            float *mb;
2837
3
            uint32_t n;
2838
3
            ma = (int16_t *)origdata;
2839
3
            mb = data;
2840
25
            for (n = 0; n < count; n++)
2841
22
            {
2842
22
                if (tif->tif_flags & TIFF_SWAB)
2843
4
                    TIFFSwabShort((uint16_t *)ma);
2844
22
                *mb++ = (float)(*ma++);
2845
22
            }
2846
3
        }
2847
3
        break;
2848
9
        case TIFF_LONG:
2849
9
        {
2850
9
            uint32_t *ma;
2851
9
            float *mb;
2852
9
            uint32_t n;
2853
9
            ma = (uint32_t *)origdata;
2854
9
            mb = data;
2855
83
            for (n = 0; n < count; n++)
2856
74
            {
2857
74
                if (tif->tif_flags & TIFF_SWAB)
2858
14
                    TIFFSwabLong(ma);
2859
74
                *mb++ = (float)(*ma++);
2860
74
            }
2861
9
        }
2862
9
        break;
2863
1
        case TIFF_SLONG:
2864
1
        {
2865
1
            int32_t *ma;
2866
1
            float *mb;
2867
1
            uint32_t n;
2868
1
            ma = (int32_t *)origdata;
2869
1
            mb = data;
2870
24
            for (n = 0; n < count; n++)
2871
23
            {
2872
23
                if (tif->tif_flags & TIFF_SWAB)
2873
0
                    TIFFSwabLong((uint32_t *)ma);
2874
23
                *mb++ = (float)(*ma++);
2875
23
            }
2876
1
        }
2877
1
        break;
2878
3
        case TIFF_LONG8:
2879
3
        {
2880
3
            uint64_t *ma;
2881
3
            float *mb;
2882
3
            uint32_t n;
2883
3
            ma = (uint64_t *)origdata;
2884
3
            mb = data;
2885
11
            for (n = 0; n < count; n++)
2886
8
            {
2887
8
                if (tif->tif_flags & TIFF_SWAB)
2888
7
                    TIFFSwabLong8(ma);
2889
8
                *mb++ = (float)(*ma++);
2890
8
            }
2891
3
        }
2892
3
        break;
2893
6
        case TIFF_SLONG8:
2894
6
        {
2895
6
            int64_t *ma;
2896
6
            float *mb;
2897
6
            uint32_t n;
2898
6
            ma = (int64_t *)origdata;
2899
6
            mb = data;
2900
51
            for (n = 0; n < count; n++)
2901
45
            {
2902
45
                if (tif->tif_flags & TIFF_SWAB)
2903
7
                    TIFFSwabLong8((uint64_t *)ma);
2904
45
                *mb++ = (float)(*ma++);
2905
45
            }
2906
6
        }
2907
6
        break;
2908
45
        case TIFF_RATIONAL:
2909
45
        {
2910
45
            uint32_t *ma;
2911
45
            uint32_t maa;
2912
45
            uint32_t mab;
2913
45
            float *mb;
2914
45
            uint32_t n;
2915
45
            ma = (uint32_t *)origdata;
2916
45
            mb = data;
2917
271
            for (n = 0; n < count; n++)
2918
226
            {
2919
226
                if (tif->tif_flags & TIFF_SWAB)
2920
71
                    TIFFSwabLong(ma);
2921
226
                maa = *ma++;
2922
226
                if (tif->tif_flags & TIFF_SWAB)
2923
71
                    TIFFSwabLong(ma);
2924
226
                mab = *ma++;
2925
226
                if (mab == 0)
2926
24
                    *mb++ = 0.0;
2927
202
                else
2928
202
                    *mb++ = (float)maa / (float)mab;
2929
226
            }
2930
45
        }
2931
45
        break;
2932
15
        case TIFF_SRATIONAL:
2933
15
        {
2934
15
            uint32_t *ma;
2935
15
            int32_t maa;
2936
15
            uint32_t mab;
2937
15
            float *mb;
2938
15
            uint32_t n;
2939
15
            ma = (uint32_t *)origdata;
2940
15
            mb = data;
2941
96
            for (n = 0; n < count; n++)
2942
81
            {
2943
81
                if (tif->tif_flags & TIFF_SWAB)
2944
2
                    TIFFSwabLong(ma);
2945
81
                maa = *(int32_t *)ma;
2946
81
                ma++;
2947
81
                if (tif->tif_flags & TIFF_SWAB)
2948
2
                    TIFFSwabLong(ma);
2949
81
                mab = *ma++;
2950
81
                if (mab == 0)
2951
14
                    *mb++ = 0.0;
2952
67
                else
2953
67
                    *mb++ = (float)maa / (float)mab;
2954
81
            }
2955
15
        }
2956
15
        break;
2957
6
        case TIFF_DOUBLE:
2958
6
        {
2959
6
            double *ma;
2960
6
            float *mb;
2961
6
            uint32_t n;
2962
6
            if (tif->tif_flags & TIFF_SWAB)
2963
5
                TIFFSwabArrayOfLong8((uint64_t *)origdata, count);
2964
6
            TIFFCvtIEEEDoubleToNative(tif, count, (double *)origdata);
2965
6
            ma = (double *)origdata;
2966
6
            mb = data;
2967
53
            for (n = 0; n < count; n++)
2968
47
            {
2969
47
                double val = *ma++;
2970
47
                if (val > FLT_MAX)
2971
9
                    val = FLT_MAX;
2972
38
                else if (val < -FLT_MAX)
2973
1
                    val = -FLT_MAX;
2974
47
                *mb++ = (float)val;
2975
47
            }
2976
6
        }
2977
6
        break;
2978
98
    }
2979
98
    _TIFFfreeExt(tif, origdata);
2980
98
    *value = data;
2981
98
    return (TIFFReadDirEntryErrOk);
2982
98
}
2983
2984
static enum TIFFReadDirEntryErr
2985
TIFFReadDirEntryDoubleArray(TIFF *tif, TIFFDirEntry *direntry, double **value)
2986
217
{
2987
217
    enum TIFFReadDirEntryErr err;
2988
217
    uint32_t count;
2989
217
    void *origdata;
2990
217
    double *data;
2991
217
    switch (direntry->tdir_type)
2992
217
    {
2993
0
        case TIFF_BYTE:
2994
1
        case TIFF_SBYTE:
2995
6
        case TIFF_SHORT:
2996
10
        case TIFF_SSHORT:
2997
13
        case TIFF_LONG:
2998
17
        case TIFF_SLONG:
2999
18
        case TIFF_LONG8:
3000
23
        case TIFF_SLONG8:
3001
25
        case TIFF_RATIONAL:
3002
28
        case TIFF_SRATIONAL:
3003
28
        case TIFF_FLOAT:
3004
217
        case TIFF_DOUBLE:
3005
217
            break;
3006
0
        default:
3007
0
            return (TIFFReadDirEntryErrType);
3008
217
    }
3009
217
    err = TIFFReadDirEntryArray(tif, direntry, &count, 8, &origdata);
3010
217
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
3011
127
    {
3012
127
        *value = 0;
3013
127
        return (err);
3014
127
    }
3015
90
    switch (direntry->tdir_type)
3016
90
    {
3017
63
        case TIFF_DOUBLE:
3018
63
            if (tif->tif_flags & TIFF_SWAB)
3019
4
                TIFFSwabArrayOfLong8((uint64_t *)origdata, count);
3020
63
            TIFFCvtIEEEDoubleToNative(tif, count, (double *)origdata);
3021
63
            *value = (double *)origdata;
3022
63
            return (TIFFReadDirEntryErrOk);
3023
90
    }
3024
27
    data = (double *)_TIFFmallocExt(tif, count * sizeof(double));
3025
27
    if (data == 0)
3026
0
    {
3027
0
        _TIFFfreeExt(tif, origdata);
3028
0
        return (TIFFReadDirEntryErrAlloc);
3029
0
    }
3030
27
    switch (direntry->tdir_type)
3031
27
    {
3032
0
        case TIFF_BYTE:
3033
0
        {
3034
0
            uint8_t *ma;
3035
0
            double *mb;
3036
0
            uint32_t n;
3037
0
            ma = (uint8_t *)origdata;
3038
0
            mb = data;
3039
0
            for (n = 0; n < count; n++)
3040
0
                *mb++ = (double)(*ma++);
3041
0
        }
3042
0
        break;
3043
1
        case TIFF_SBYTE:
3044
1
        {
3045
1
            int8_t *ma;
3046
1
            double *mb;
3047
1
            uint32_t n;
3048
1
            ma = (int8_t *)origdata;
3049
1
            mb = data;
3050
4
            for (n = 0; n < count; n++)
3051
3
                *mb++ = (double)(*ma++);
3052
1
        }
3053
1
        break;
3054
5
        case TIFF_SHORT:
3055
5
        {
3056
5
            uint16_t *ma;
3057
5
            double *mb;
3058
5
            uint32_t n;
3059
5
            ma = (uint16_t *)origdata;
3060
5
            mb = data;
3061
31
            for (n = 0; n < count; n++)
3062
26
            {
3063
26
                if (tif->tif_flags & TIFF_SWAB)
3064
20
                    TIFFSwabShort(ma);
3065
26
                *mb++ = (double)(*ma++);
3066
26
            }
3067
5
        }
3068
5
        break;
3069
4
        case TIFF_SSHORT:
3070
4
        {
3071
4
            int16_t *ma;
3072
4
            double *mb;
3073
4
            uint32_t n;
3074
4
            ma = (int16_t *)origdata;
3075
4
            mb = data;
3076
9
            for (n = 0; n < count; n++)
3077
5
            {
3078
5
                if (tif->tif_flags & TIFF_SWAB)
3079
3
                    TIFFSwabShort((uint16_t *)ma);
3080
5
                *mb++ = (double)(*ma++);
3081
5
            }
3082
4
        }
3083
4
        break;
3084
3
        case TIFF_LONG:
3085
3
        {
3086
3
            uint32_t *ma;
3087
3
            double *mb;
3088
3
            uint32_t n;
3089
3
            ma = (uint32_t *)origdata;
3090
3
            mb = data;
3091
22
            for (n = 0; n < count; n++)
3092
19
            {
3093
19
                if (tif->tif_flags & TIFF_SWAB)
3094
18
                    TIFFSwabLong(ma);
3095
19
                *mb++ = (double)(*ma++);
3096
19
            }
3097
3
        }
3098
3
        break;
3099
4
        case TIFF_SLONG:
3100
4
        {
3101
4
            int32_t *ma;
3102
4
            double *mb;
3103
4
            uint32_t n;
3104
4
            ma = (int32_t *)origdata;
3105
4
            mb = data;
3106
287
            for (n = 0; n < count; n++)
3107
283
            {
3108
283
                if (tif->tif_flags & TIFF_SWAB)
3109
280
                    TIFFSwabLong((uint32_t *)ma);
3110
283
                *mb++ = (double)(*ma++);
3111
283
            }
3112
4
        }
3113
4
        break;
3114
1
        case TIFF_LONG8:
3115
1
        {
3116
1
            uint64_t *ma;
3117
1
            double *mb;
3118
1
            uint32_t n;
3119
1
            ma = (uint64_t *)origdata;
3120
1
            mb = data;
3121
4
            for (n = 0; n < count; n++)
3122
3
            {
3123
3
                if (tif->tif_flags & TIFF_SWAB)
3124
0
                    TIFFSwabLong8(ma);
3125
3
                *mb++ = (double)(*ma++);
3126
3
            }
3127
1
        }
3128
1
        break;
3129
5
        case TIFF_SLONG8:
3130
5
        {
3131
5
            int64_t *ma;
3132
5
            double *mb;
3133
5
            uint32_t n;
3134
5
            ma = (int64_t *)origdata;
3135
5
            mb = data;
3136
330
            for (n = 0; n < count; n++)
3137
325
            {
3138
325
                if (tif->tif_flags & TIFF_SWAB)
3139
256
                    TIFFSwabLong8((uint64_t *)ma);
3140
325
                *mb++ = (double)(*ma++);
3141
325
            }
3142
5
        }
3143
5
        break;
3144
2
        case TIFF_RATIONAL:
3145
2
        {
3146
2
            uint32_t *ma;
3147
2
            uint32_t maa;
3148
2
            uint32_t mab;
3149
2
            double *mb;
3150
2
            uint32_t n;
3151
2
            ma = (uint32_t *)origdata;
3152
2
            mb = data;
3153
19
            for (n = 0; n < count; n++)
3154
17
            {
3155
17
                if (tif->tif_flags & TIFF_SWAB)
3156
16
                    TIFFSwabLong(ma);
3157
17
                maa = *ma++;
3158
17
                if (tif->tif_flags & TIFF_SWAB)
3159
16
                    TIFFSwabLong(ma);
3160
17
                mab = *ma++;
3161
17
                if (mab == 0)
3162
8
                    *mb++ = 0.0;
3163
9
                else
3164
9
                    *mb++ = (double)maa / (double)mab;
3165
17
            }
3166
2
        }
3167
2
        break;
3168
2
        case TIFF_SRATIONAL:
3169
2
        {
3170
2
            uint32_t *ma;
3171
2
            int32_t maa;
3172
2
            uint32_t mab;
3173
2
            double *mb;
3174
2
            uint32_t n;
3175
2
            ma = (uint32_t *)origdata;
3176
2
            mb = data;
3177
322
            for (n = 0; n < count; n++)
3178
320
            {
3179
320
                if (tif->tif_flags & TIFF_SWAB)
3180
256
                    TIFFSwabLong(ma);
3181
320
                maa = *(int32_t *)ma;
3182
320
                ma++;
3183
320
                if (tif->tif_flags & TIFF_SWAB)
3184
256
                    TIFFSwabLong(ma);
3185
320
                mab = *ma++;
3186
320
                if (mab == 0)
3187
146
                    *mb++ = 0.0;
3188
174
                else
3189
174
                    *mb++ = (double)maa / (double)mab;
3190
320
            }
3191
2
        }
3192
2
        break;
3193
0
        case TIFF_FLOAT:
3194
0
        {
3195
0
            float *ma;
3196
0
            double *mb;
3197
0
            uint32_t n;
3198
0
            if (tif->tif_flags & TIFF_SWAB)
3199
0
                TIFFSwabArrayOfLong((uint32_t *)origdata, count);
3200
0
            TIFFCvtIEEEFloatToNative(tif, count, (float *)origdata);
3201
0
            ma = (float *)origdata;
3202
0
            mb = data;
3203
0
            for (n = 0; n < count; n++)
3204
0
                *mb++ = (double)(*ma++);
3205
0
        }
3206
0
        break;
3207
27
    }
3208
27
    _TIFFfreeExt(tif, origdata);
3209
27
    *value = data;
3210
27
    return (TIFFReadDirEntryErrOk);
3211
27
}
3212
3213
static enum TIFFReadDirEntryErr
3214
TIFFReadDirEntryIfd8Array(TIFF *tif, TIFFDirEntry *direntry, uint64_t **value)
3215
66
{
3216
66
    enum TIFFReadDirEntryErr err;
3217
66
    uint32_t count;
3218
66
    void *origdata;
3219
66
    uint64_t *data;
3220
66
    switch (direntry->tdir_type)
3221
66
    {
3222
17
        case TIFF_LONG:
3223
18
        case TIFF_LONG8:
3224
49
        case TIFF_IFD:
3225
66
        case TIFF_IFD8:
3226
66
            break;
3227
0
        default:
3228
0
            return (TIFFReadDirEntryErrType);
3229
66
    }
3230
66
    err = TIFFReadDirEntryArray(tif, direntry, &count, 8, &origdata);
3231
66
    if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
3232
45
    {
3233
45
        *value = 0;
3234
45
        return (err);
3235
45
    }
3236
21
    switch (direntry->tdir_type)
3237
21
    {
3238
0
        case TIFF_LONG8:
3239
1
        case TIFF_IFD8:
3240
1
            *value = (uint64_t *)origdata;
3241
1
            if (tif->tif_flags & TIFF_SWAB)
3242
1
                TIFFSwabArrayOfLong8(*value, count);
3243
1
            return (TIFFReadDirEntryErrOk);
3244
21
    }
3245
20
    data = (uint64_t *)_TIFFmallocExt(tif, count * 8);
3246
20
    if (data == 0)
3247
0
    {
3248
0
        _TIFFfreeExt(tif, origdata);
3249
0
        return (TIFFReadDirEntryErrAlloc);
3250
0
    }
3251
20
    switch (direntry->tdir_type)
3252
20
    {
3253
12
        case TIFF_LONG:
3254
20
        case TIFF_IFD:
3255
20
        {
3256
20
            uint32_t *ma;
3257
20
            uint64_t *mb;
3258
20
            uint32_t n;
3259
20
            ma = (uint32_t *)origdata;
3260
20
            mb = data;
3261
973
            for (n = 0; n < count; n++)
3262
953
            {
3263
953
                if (tif->tif_flags & TIFF_SWAB)
3264
82
                    TIFFSwabLong(ma);
3265
953
                *mb++ = (uint64_t)(*ma++);
3266
953
            }
3267
20
        }
3268
20
        break;
3269
20
    }
3270
20
    _TIFFfreeExt(tif, origdata);
3271
20
    *value = data;
3272
20
    return (TIFFReadDirEntryErrOk);
3273
20
}
3274
3275
static enum TIFFReadDirEntryErr
3276
TIFFReadDirEntryPersampleShort(TIFF *tif, TIFFDirEntry *direntry,
3277
                               uint16_t *value)
3278
181
{
3279
181
    enum TIFFReadDirEntryErr err;
3280
181
    uint16_t *m;
3281
181
    uint16_t *na;
3282
181
    uint16_t nb;
3283
181
    if (direntry->tdir_count < (uint64_t)tif->tif_dir.td_samplesperpixel)
3284
3
        return (TIFFReadDirEntryErrCount);
3285
178
    err = TIFFReadDirEntryShortArray(tif, direntry, &m);
3286
178
    if (err != TIFFReadDirEntryErrOk || m == NULL)
3287
29
        return (err);
3288
149
    na = m;
3289
149
    nb = tif->tif_dir.td_samplesperpixel;
3290
149
    *value = *na++;
3291
149
    nb--;
3292
370
    while (nb > 0)
3293
223
    {
3294
223
        if (*na++ != *value)
3295
2
        {
3296
2
            err = TIFFReadDirEntryErrPsdif;
3297
2
            break;
3298
2
        }
3299
221
        nb--;
3300
221
    }
3301
149
    _TIFFfreeExt(tif, m);
3302
149
    return (err);
3303
178
}
3304
3305
static void TIFFReadDirEntryCheckedByte(TIFF *tif, TIFFDirEntry *direntry,
3306
                                        uint8_t *value)
3307
117
{
3308
117
    (void)tif;
3309
117
    *value = *(uint8_t *)(&direntry->tdir_offset);
3310
117
}
3311
3312
static void TIFFReadDirEntryCheckedSbyte(TIFF *tif, TIFFDirEntry *direntry,
3313
                                         int8_t *value)
3314
53
{
3315
53
    (void)tif;
3316
53
    *value = *(int8_t *)(&direntry->tdir_offset);
3317
53
}
3318
3319
static void TIFFReadDirEntryCheckedShort(TIFF *tif, TIFFDirEntry *direntry,
3320
                                         uint16_t *value)
3321
2.54k
{
3322
2.54k
    *value = direntry->tdir_offset.toff_short;
3323
    /* *value=*(uint16_t*)(&direntry->tdir_offset); */
3324
2.54k
    if (tif->tif_flags & TIFF_SWAB)
3325
206
        TIFFSwabShort(value);
3326
2.54k
}
3327
3328
static void TIFFReadDirEntryCheckedSshort(TIFF *tif, TIFFDirEntry *direntry,
3329
                                          int16_t *value)
3330
82
{
3331
82
    *value = *(int16_t *)(&direntry->tdir_offset);
3332
82
    if (tif->tif_flags & TIFF_SWAB)
3333
15
        TIFFSwabShort((uint16_t *)value);
3334
82
}
3335
3336
static void TIFFReadDirEntryCheckedLong(TIFF *tif, TIFFDirEntry *direntry,
3337
                                        uint32_t *value)
3338
340
{
3339
340
    *value = *(uint32_t *)(&direntry->tdir_offset);
3340
340
    if (tif->tif_flags & TIFF_SWAB)
3341
75
        TIFFSwabLong(value);
3342
340
}
3343
3344
static void TIFFReadDirEntryCheckedSlong(TIFF *tif, TIFFDirEntry *direntry,
3345
                                         int32_t *value)
3346
79
{
3347
79
    *value = *(int32_t *)(&direntry->tdir_offset);
3348
79
    if (tif->tif_flags & TIFF_SWAB)
3349
15
        TIFFSwabLong((uint32_t *)value);
3350
79
}
3351
3352
static enum TIFFReadDirEntryErr
3353
TIFFReadDirEntryCheckedLong8(TIFF *tif, TIFFDirEntry *direntry, uint64_t *value)
3354
43
{
3355
43
    if (!(tif->tif_flags & TIFF_BIGTIFF))
3356
42
    {
3357
42
        enum TIFFReadDirEntryErr err;
3358
42
        uint32_t offset = direntry->tdir_offset.toff_long;
3359
42
        if (tif->tif_flags & TIFF_SWAB)
3360
7
            TIFFSwabLong(&offset);
3361
42
        err = TIFFReadDirEntryData(tif, offset, 8, value);
3362
42
        if (err != TIFFReadDirEntryErrOk)
3363
11
            return (err);
3364
42
    }
3365
1
    else
3366
1
        *value = direntry->tdir_offset.toff_long8;
3367
32
    if (tif->tif_flags & TIFF_SWAB)
3368
2
        TIFFSwabLong8(value);
3369
32
    return (TIFFReadDirEntryErrOk);
3370
43
}
3371
3372
static enum TIFFReadDirEntryErr
3373
TIFFReadDirEntryCheckedSlong8(TIFF *tif, TIFFDirEntry *direntry, int64_t *value)
3374
44
{
3375
44
    if (!(tif->tif_flags & TIFF_BIGTIFF))
3376
44
    {
3377
44
        enum TIFFReadDirEntryErr err;
3378
44
        uint32_t offset = direntry->tdir_offset.toff_long;
3379
44
        if (tif->tif_flags & TIFF_SWAB)
3380
10
            TIFFSwabLong(&offset);
3381
44
        err = TIFFReadDirEntryData(tif, offset, 8, value);
3382
44
        if (err != TIFFReadDirEntryErrOk)
3383
15
            return (err);
3384
44
    }
3385
0
    else
3386
0
        *value = *(int64_t *)(&direntry->tdir_offset);
3387
29
    if (tif->tif_flags & TIFF_SWAB)
3388
6
        TIFFSwabLong8((uint64_t *)value);
3389
29
    return (TIFFReadDirEntryErrOk);
3390
44
}
3391
3392
static enum TIFFReadDirEntryErr
3393
TIFFReadDirEntryCheckedRational(TIFF *tif, TIFFDirEntry *direntry,
3394
                                double *value)
3395
52
{
3396
52
    UInt64Aligned_t m;
3397
3398
52
    assert(sizeof(double) == 8);
3399
52
    assert(sizeof(uint64_t) == 8);
3400
52
    assert(sizeof(uint32_t) == 4);
3401
52
    if (!(tif->tif_flags & TIFF_BIGTIFF))
3402
51
    {
3403
51
        enum TIFFReadDirEntryErr err;
3404
51
        uint32_t offset = direntry->tdir_offset.toff_long;
3405
51
        if (tif->tif_flags & TIFF_SWAB)
3406
6
            TIFFSwabLong(&offset);
3407
51
        err = TIFFReadDirEntryData(tif, offset, 8, m.i);
3408
51
        if (err != TIFFReadDirEntryErrOk)
3409
12
            return (err);
3410
51
    }
3411
1
    else
3412
1
        m.l = direntry->tdir_offset.toff_long8;
3413
40
    if (tif->tif_flags & TIFF_SWAB)
3414
5
        TIFFSwabArrayOfLong(m.i, 2);
3415
    /* Not completely sure what we should do when m.i[1]==0, but some */
3416
    /* sanitizers do not like division by 0.0: */
3417
    /* http://bugzilla.maptools.org/show_bug.cgi?id=2644 */
3418
40
    if (m.i[0] == 0 || m.i[1] == 0)
3419
12
        *value = 0.0;
3420
28
    else
3421
28
        *value = (double)m.i[0] / (double)m.i[1];
3422
40
    return (TIFFReadDirEntryErrOk);
3423
52
}
3424
3425
static enum TIFFReadDirEntryErr
3426
TIFFReadDirEntryCheckedSrational(TIFF *tif, TIFFDirEntry *direntry,
3427
                                 double *value)
3428
30
{
3429
30
    UInt64Aligned_t m;
3430
30
    assert(sizeof(double) == 8);
3431
30
    assert(sizeof(uint64_t) == 8);
3432
30
    assert(sizeof(int32_t) == 4);
3433
30
    assert(sizeof(uint32_t) == 4);
3434
30
    if (!(tif->tif_flags & TIFF_BIGTIFF))
3435
30
    {
3436
30
        enum TIFFReadDirEntryErr err;
3437
30
        uint32_t offset = direntry->tdir_offset.toff_long;
3438
30
        if (tif->tif_flags & TIFF_SWAB)
3439
1
            TIFFSwabLong(&offset);
3440
30
        err = TIFFReadDirEntryData(tif, offset, 8, m.i);
3441
30
        if (err != TIFFReadDirEntryErrOk)
3442
12
            return (err);
3443
30
    }
3444
0
    else
3445
0
        m.l = direntry->tdir_offset.toff_long8;
3446
18
    if (tif->tif_flags & TIFF_SWAB)
3447
1
        TIFFSwabArrayOfLong(m.i, 2);
3448
    /* Not completely sure what we should do when m.i[1]==0, but some */
3449
    /* sanitizers do not like division by 0.0: */
3450
    /* http://bugzilla.maptools.org/show_bug.cgi?id=2644 */
3451
18
    if ((int32_t)m.i[0] == 0 || m.i[1] == 0)
3452
12
        *value = 0.0;
3453
6
    else
3454
6
        *value = (double)((int32_t)m.i[0]) / (double)m.i[1];
3455
18
    return (TIFFReadDirEntryErrOk);
3456
30
}
3457
3458
#if 0
3459
static enum TIFFReadDirEntryErr
3460
TIFFReadDirEntryCheckedRationalDirect(TIFF *tif, TIFFDirEntry *direntry,
3461
                                      TIFFRational_t *value)
3462
{ /*--: SetGetRATIONAL_directly:_CustomTag: Read rational (and signed rationals)
3463
     directly --*/
3464
    UInt64Aligned_t m;
3465
3466
    assert(sizeof(double) == 8);
3467
    assert(sizeof(uint64_t) == 8);
3468
    assert(sizeof(uint32_t) == 4);
3469
3470
    if (direntry->tdir_count != 1)
3471
        return (TIFFReadDirEntryErrCount);
3472
3473
    if (direntry->tdir_type != TIFF_RATIONAL &&
3474
        direntry->tdir_type != TIFF_SRATIONAL)
3475
        return (TIFFReadDirEntryErrType);
3476
3477
    if (!(tif->tif_flags & TIFF_BIGTIFF))
3478
    {
3479
        enum TIFFReadDirEntryErr err;
3480
        uint32_t offset = direntry->tdir_offset.toff_long;
3481
        if (tif->tif_flags & TIFF_SWAB)
3482
            TIFFSwabLong(&offset);
3483
        err = TIFFReadDirEntryData(tif, offset, 8, m.i);
3484
        if (err != TIFFReadDirEntryErrOk)
3485
            return (err);
3486
    }
3487
    else
3488
    {
3489
        m.l = direntry->tdir_offset.toff_long8;
3490
    }
3491
3492
    if (tif->tif_flags & TIFF_SWAB)
3493
        TIFFSwabArrayOfLong(m.i, 2);
3494
3495
    value->uNum = m.i[0];
3496
    value->uDenom = m.i[1];
3497
    return (TIFFReadDirEntryErrOk);
3498
} /*-- TIFFReadDirEntryCheckedRationalDirect() --*/
3499
#endif
3500
3501
static void TIFFReadDirEntryCheckedFloat(TIFF *tif, TIFFDirEntry *direntry,
3502
                                         float *value)
3503
0
{
3504
0
    union
3505
0
    {
3506
0
        float f;
3507
0
        uint32_t i;
3508
0
    } float_union;
3509
0
    assert(sizeof(float) == 4);
3510
0
    assert(sizeof(uint32_t) == 4);
3511
0
    assert(sizeof(float_union) == 4);
3512
0
    float_union.i = *(uint32_t *)(&direntry->tdir_offset);
3513
0
    *value = float_union.f;
3514
0
    if (tif->tif_flags & TIFF_SWAB)
3515
0
        TIFFSwabLong((uint32_t *)value);
3516
0
}
3517
3518
static enum TIFFReadDirEntryErr
3519
TIFFReadDirEntryCheckedDouble(TIFF *tif, TIFFDirEntry *direntry, double *value)
3520
11
{
3521
11
    assert(sizeof(double) == 8);
3522
11
    assert(sizeof(uint64_t) == 8);
3523
11
    assert(sizeof(UInt64Aligned_t) == 8);
3524
11
    if (!(tif->tif_flags & TIFF_BIGTIFF))
3525
7
    {
3526
7
        enum TIFFReadDirEntryErr err;
3527
7
        uint32_t offset = direntry->tdir_offset.toff_long;
3528
7
        if (tif->tif_flags & TIFF_SWAB)
3529
4
            TIFFSwabLong(&offset);
3530
7
        err = TIFFReadDirEntryData(tif, offset, 8, value);
3531
7
        if (err != TIFFReadDirEntryErrOk)
3532
5
            return (err);
3533
7
    }
3534
4
    else
3535
4
    {
3536
4
        UInt64Aligned_t uint64_union;
3537
4
        uint64_union.l = direntry->tdir_offset.toff_long8;
3538
4
        *value = uint64_union.d;
3539
4
    }
3540
6
    if (tif->tif_flags & TIFF_SWAB)
3541
6
        TIFFSwabLong8((uint64_t *)value);
3542
6
    return (TIFFReadDirEntryErrOk);
3543
11
}
3544
3545
static enum TIFFReadDirEntryErr
3546
TIFFReadDirEntryCheckRangeByteSbyte(int8_t value)
3547
24
{
3548
24
    if (value < 0)
3549
3
        return (TIFFReadDirEntryErrRange);
3550
21
    else
3551
21
        return (TIFFReadDirEntryErrOk);
3552
24
}
3553
3554
static enum TIFFReadDirEntryErr
3555
TIFFReadDirEntryCheckRangeByteShort(uint16_t value)
3556
60
{
3557
60
    if (value > 0xFF)
3558
7
        return (TIFFReadDirEntryErrRange);
3559
53
    else
3560
53
        return (TIFFReadDirEntryErrOk);
3561
60
}
3562
3563
static enum TIFFReadDirEntryErr
3564
TIFFReadDirEntryCheckRangeByteSshort(int16_t value)
3565
181
{
3566
181
    if ((value < 0) || (value > 0xFF))
3567
3
        return (TIFFReadDirEntryErrRange);
3568
178
    else
3569
178
        return (TIFFReadDirEntryErrOk);
3570
181
}
3571
3572
static enum TIFFReadDirEntryErr
3573
TIFFReadDirEntryCheckRangeByteLong(uint32_t value)
3574
37
{
3575
37
    if (value > 0xFF)
3576
3
        return (TIFFReadDirEntryErrRange);
3577
34
    else
3578
34
        return (TIFFReadDirEntryErrOk);
3579
37
}
3580
3581
static enum TIFFReadDirEntryErr
3582
TIFFReadDirEntryCheckRangeByteSlong(int32_t value)
3583
28
{
3584
28
    if ((value < 0) || (value > 0xFF))
3585
5
        return (TIFFReadDirEntryErrRange);
3586
23
    else
3587
23
        return (TIFFReadDirEntryErrOk);
3588
28
}
3589
3590
static enum TIFFReadDirEntryErr
3591
TIFFReadDirEntryCheckRangeByteLong8(uint64_t value)
3592
55
{
3593
55
    if (value > 0xFF)
3594
14
        return (TIFFReadDirEntryErrRange);
3595
41
    else
3596
41
        return (TIFFReadDirEntryErrOk);
3597
55
}
3598
3599
static enum TIFFReadDirEntryErr
3600
TIFFReadDirEntryCheckRangeByteSlong8(int64_t value)
3601
285
{
3602
285
    if ((value < 0) || (value > 0xFF))
3603
19
        return (TIFFReadDirEntryErrRange);
3604
266
    else
3605
266
        return (TIFFReadDirEntryErrOk);
3606
285
}
3607
3608
static enum TIFFReadDirEntryErr
3609
TIFFReadDirEntryCheckRangeSbyteByte(uint8_t value)
3610
0
{
3611
0
    if (value > 0x7F)
3612
0
        return (TIFFReadDirEntryErrRange);
3613
0
    else
3614
0
        return (TIFFReadDirEntryErrOk);
3615
0
}
3616
3617
static enum TIFFReadDirEntryErr
3618
TIFFReadDirEntryCheckRangeSbyteShort(uint16_t value)
3619
0
{
3620
0
    if (value > 0x7F)
3621
0
        return (TIFFReadDirEntryErrRange);
3622
0
    else
3623
0
        return (TIFFReadDirEntryErrOk);
3624
0
}
3625
3626
static enum TIFFReadDirEntryErr
3627
TIFFReadDirEntryCheckRangeSbyteSshort(int16_t value)
3628
0
{
3629
0
    if ((value < -0x80) || (value > 0x7F))
3630
0
        return (TIFFReadDirEntryErrRange);
3631
0
    else
3632
0
        return (TIFFReadDirEntryErrOk);
3633
0
}
3634
3635
static enum TIFFReadDirEntryErr
3636
TIFFReadDirEntryCheckRangeSbyteLong(uint32_t value)
3637
0
{
3638
0
    if (value > 0x7F)
3639
0
        return (TIFFReadDirEntryErrRange);
3640
0
    else
3641
0
        return (TIFFReadDirEntryErrOk);
3642
0
}
3643
3644
static enum TIFFReadDirEntryErr
3645
TIFFReadDirEntryCheckRangeSbyteSlong(int32_t value)
3646
0
{
3647
0
    if ((value < -0x80) || (value > 0x7F))
3648
0
        return (TIFFReadDirEntryErrRange);
3649
0
    else
3650
0
        return (TIFFReadDirEntryErrOk);
3651
0
}
3652
3653
static enum TIFFReadDirEntryErr
3654
TIFFReadDirEntryCheckRangeSbyteLong8(uint64_t value)
3655
0
{
3656
0
    if (value > 0x7F)
3657
0
        return (TIFFReadDirEntryErrRange);
3658
0
    else
3659
0
        return (TIFFReadDirEntryErrOk);
3660
0
}
3661
3662
static enum TIFFReadDirEntryErr
3663
TIFFReadDirEntryCheckRangeSbyteSlong8(int64_t value)
3664
0
{
3665
0
    if ((value < -0x80) || (value > 0x7F))
3666
0
        return (TIFFReadDirEntryErrRange);
3667
0
    else
3668
0
        return (TIFFReadDirEntryErrOk);
3669
0
}
3670
3671
static enum TIFFReadDirEntryErr
3672
TIFFReadDirEntryCheckRangeShortSbyte(int8_t value)
3673
201
{
3674
201
    if (value < 0)
3675
2
        return (TIFFReadDirEntryErrRange);
3676
199
    else
3677
199
        return (TIFFReadDirEntryErrOk);
3678
201
}
3679
3680
static enum TIFFReadDirEntryErr
3681
TIFFReadDirEntryCheckRangeShortSshort(int16_t value)
3682
81
{
3683
81
    if (value < 0)
3684
5
        return (TIFFReadDirEntryErrRange);
3685
76
    else
3686
76
        return (TIFFReadDirEntryErrOk);
3687
81
}
3688
3689
static enum TIFFReadDirEntryErr
3690
TIFFReadDirEntryCheckRangeShortLong(uint32_t value)
3691
213
{
3692
213
    if (value > 0xFFFF)
3693
7
        return (TIFFReadDirEntryErrRange);
3694
206
    else
3695
206
        return (TIFFReadDirEntryErrOk);
3696
213
}
3697
3698
static enum TIFFReadDirEntryErr
3699
TIFFReadDirEntryCheckRangeShortSlong(int32_t value)
3700
49
{
3701
49
    if ((value < 0) || (value > 0xFFFF))
3702
19
        return (TIFFReadDirEntryErrRange);
3703
30
    else
3704
30
        return (TIFFReadDirEntryErrOk);
3705
49
}
3706
3707
static enum TIFFReadDirEntryErr
3708
TIFFReadDirEntryCheckRangeShortLong8(uint64_t value)
3709
24
{
3710
24
    if (value > 0xFFFF)
3711
12
        return (TIFFReadDirEntryErrRange);
3712
12
    else
3713
12
        return (TIFFReadDirEntryErrOk);
3714
24
}
3715
3716
static enum TIFFReadDirEntryErr
3717
TIFFReadDirEntryCheckRangeShortSlong8(int64_t value)
3718
55
{
3719
55
    if ((value < 0) || (value > 0xFFFF))
3720
17
        return (TIFFReadDirEntryErrRange);
3721
38
    else
3722
38
        return (TIFFReadDirEntryErrOk);
3723
55
}
3724
3725
static enum TIFFReadDirEntryErr
3726
TIFFReadDirEntryCheckRangeSshortShort(uint16_t value)
3727
0
{
3728
0
    if (value > 0x7FFF)
3729
0
        return (TIFFReadDirEntryErrRange);
3730
0
    else
3731
0
        return (TIFFReadDirEntryErrOk);
3732
0
}
3733
3734
static enum TIFFReadDirEntryErr
3735
TIFFReadDirEntryCheckRangeSshortLong(uint32_t value)
3736
0
{
3737
0
    if (value > 0x7FFF)
3738
0
        return (TIFFReadDirEntryErrRange);
3739
0
    else
3740
0
        return (TIFFReadDirEntryErrOk);
3741
0
}
3742
3743
static enum TIFFReadDirEntryErr
3744
TIFFReadDirEntryCheckRangeSshortSlong(int32_t value)
3745
0
{
3746
0
    if ((value < -0x8000) || (value > 0x7FFF))
3747
0
        return (TIFFReadDirEntryErrRange);
3748
0
    else
3749
0
        return (TIFFReadDirEntryErrOk);
3750
0
}
3751
3752
static enum TIFFReadDirEntryErr
3753
TIFFReadDirEntryCheckRangeSshortLong8(uint64_t value)
3754
0
{
3755
0
    if (value > 0x7FFF)
3756
0
        return (TIFFReadDirEntryErrRange);
3757
0
    else
3758
0
        return (TIFFReadDirEntryErrOk);
3759
0
}
3760
3761
static enum TIFFReadDirEntryErr
3762
TIFFReadDirEntryCheckRangeSshortSlong8(int64_t value)
3763
0
{
3764
0
    if ((value < -0x8000) || (value > 0x7FFF))
3765
0
        return (TIFFReadDirEntryErrRange);
3766
0
    else
3767
0
        return (TIFFReadDirEntryErrOk);
3768
0
}
3769
3770
static enum TIFFReadDirEntryErr
3771
TIFFReadDirEntryCheckRangeLongSbyte(int8_t value)
3772
80
{
3773
80
    if (value < 0)
3774
5
        return (TIFFReadDirEntryErrRange);
3775
75
    else
3776
75
        return (TIFFReadDirEntryErrOk);
3777
80
}
3778
3779
static enum TIFFReadDirEntryErr
3780
TIFFReadDirEntryCheckRangeLongSshort(int16_t value)
3781
182
{
3782
182
    if (value < 0)
3783
3
        return (TIFFReadDirEntryErrRange);
3784
179
    else
3785
179
        return (TIFFReadDirEntryErrOk);
3786
182
}
3787
3788
static enum TIFFReadDirEntryErr
3789
TIFFReadDirEntryCheckRangeLongSlong(int32_t value)
3790
106
{
3791
106
    if (value < 0)
3792
7
        return (TIFFReadDirEntryErrRange);
3793
99
    else
3794
99
        return (TIFFReadDirEntryErrOk);
3795
106
}
3796
3797
static enum TIFFReadDirEntryErr
3798
TIFFReadDirEntryCheckRangeLongLong8(uint64_t value)
3799
70
{
3800
70
    if (value > UINT32_MAX)
3801
21
        return (TIFFReadDirEntryErrRange);
3802
49
    else
3803
49
        return (TIFFReadDirEntryErrOk);
3804
70
}
3805
3806
static enum TIFFReadDirEntryErr
3807
TIFFReadDirEntryCheckRangeLongSlong8(int64_t value)
3808
717
{
3809
717
    if ((value < 0) || (value > (int64_t)UINT32_MAX))
3810
14
        return (TIFFReadDirEntryErrRange);
3811
703
    else
3812
703
        return (TIFFReadDirEntryErrOk);
3813
717
}
3814
3815
static enum TIFFReadDirEntryErr
3816
TIFFReadDirEntryCheckRangeSlongLong(uint32_t value)
3817
0
{
3818
0
    if (value > 0x7FFFFFFFUL)
3819
0
        return (TIFFReadDirEntryErrRange);
3820
0
    else
3821
0
        return (TIFFReadDirEntryErrOk);
3822
0
}
3823
3824
/* Check that the 8-byte unsigned value can fit in a 4-byte unsigned range */
3825
static enum TIFFReadDirEntryErr
3826
TIFFReadDirEntryCheckRangeSlongLong8(uint64_t value)
3827
0
{
3828
0
    if (value > 0x7FFFFFFF)
3829
0
        return (TIFFReadDirEntryErrRange);
3830
0
    else
3831
0
        return (TIFFReadDirEntryErrOk);
3832
0
}
3833
3834
/* Check that the 8-byte signed value can fit in a 4-byte signed range */
3835
static enum TIFFReadDirEntryErr
3836
TIFFReadDirEntryCheckRangeSlongSlong8(int64_t value)
3837
0
{
3838
0
    if ((value < 0 - ((int64_t)0x7FFFFFFF + 1)) || (value > 0x7FFFFFFF))
3839
0
        return (TIFFReadDirEntryErrRange);
3840
0
    else
3841
0
        return (TIFFReadDirEntryErrOk);
3842
0
}
3843
3844
static enum TIFFReadDirEntryErr
3845
TIFFReadDirEntryCheckRangeLong8Sbyte(int8_t value)
3846
38
{
3847
38
    if (value < 0)
3848
0
        return (TIFFReadDirEntryErrRange);
3849
38
    else
3850
38
        return (TIFFReadDirEntryErrOk);
3851
38
}
3852
3853
static enum TIFFReadDirEntryErr
3854
TIFFReadDirEntryCheckRangeLong8Sshort(int16_t value)
3855
93
{
3856
93
    if (value < 0)
3857
3
        return (TIFFReadDirEntryErrRange);
3858
90
    else
3859
90
        return (TIFFReadDirEntryErrOk);
3860
93
}
3861
3862
static enum TIFFReadDirEntryErr
3863
TIFFReadDirEntryCheckRangeLong8Slong(int32_t value)
3864
12
{
3865
12
    if (value < 0)
3866
1
        return (TIFFReadDirEntryErrRange);
3867
11
    else
3868
11
        return (TIFFReadDirEntryErrOk);
3869
12
}
3870
3871
static enum TIFFReadDirEntryErr
3872
TIFFReadDirEntryCheckRangeLong8Slong8(int64_t value)
3873
54
{
3874
54
    if (value < 0)
3875
5
        return (TIFFReadDirEntryErrRange);
3876
49
    else
3877
49
        return (TIFFReadDirEntryErrOk);
3878
54
}
3879
3880
static enum TIFFReadDirEntryErr
3881
TIFFReadDirEntryCheckRangeSlong8Long8(uint64_t value)
3882
0
{
3883
0
    if (value > INT64_MAX)
3884
0
        return (TIFFReadDirEntryErrRange);
3885
0
    else
3886
0
        return (TIFFReadDirEntryErrOk);
3887
0
}
3888
3889
static enum TIFFReadDirEntryErr TIFFReadDirEntryData(TIFF *tif, uint64_t offset,
3890
                                                     tmsize_t size, void *dest)
3891
174
{
3892
174
    assert(size > 0);
3893
174
    if (!isMapped(tif))
3894
174
    {
3895
174
        if (!SeekOK(tif, offset))
3896
47
            return (TIFFReadDirEntryErrIo);
3897
127
        if (!ReadOK(tif, dest, size))
3898
8
            return (TIFFReadDirEntryErrIo);
3899
127
    }
3900
0
    else
3901
0
    {
3902
0
        size_t ma, mb;
3903
0
        ma = (size_t)offset;
3904
0
        if ((uint64_t)ma != offset || ma > (~(size_t)0) - (size_t)size)
3905
0
        {
3906
0
            return TIFFReadDirEntryErrIo;
3907
0
        }
3908
0
        mb = ma + size;
3909
0
        if (mb > (uint64_t)tif->tif_size)
3910
0
            return (TIFFReadDirEntryErrIo);
3911
0
        _TIFFmemcpy(dest, tif->tif_base + ma, size);
3912
0
    }
3913
119
    return (TIFFReadDirEntryErrOk);
3914
174
}
3915
3916
static void TIFFReadDirEntryOutputErr(TIFF *tif, enum TIFFReadDirEntryErr err,
3917
                                      const char *module, const char *tagname,
3918
                                      int recover)
3919
2.42k
{
3920
2.42k
    if (!recover)
3921
196
    {
3922
196
        switch (err)
3923
196
        {
3924
18
            case TIFFReadDirEntryErrCount:
3925
18
                TIFFErrorExtR(tif, module, "Incorrect count for \"%s\"",
3926
18
                              tagname);
3927
18
                break;
3928
47
            case TIFFReadDirEntryErrType:
3929
47
                TIFFErrorExtR(tif, module, "Incompatible type for \"%s\"",
3930
47
                              tagname);
3931
47
                break;
3932
70
            case TIFFReadDirEntryErrIo:
3933
70
                TIFFErrorExtR(tif, module, "IO error during reading of \"%s\"",
3934
70
                              tagname);
3935
70
                break;
3936
54
            case TIFFReadDirEntryErrRange:
3937
54
                TIFFErrorExtR(tif, module, "Incorrect value for \"%s\"",
3938
54
                              tagname);
3939
54
                break;
3940
2
            case TIFFReadDirEntryErrPsdif:
3941
2
                TIFFErrorExtR(
3942
2
                    tif, module,
3943
2
                    "Cannot handle different values per sample for \"%s\"",
3944
2
                    tagname);
3945
2
                break;
3946
4
            case TIFFReadDirEntryErrSizesan:
3947
4
                TIFFErrorExtR(tif, module,
3948
4
                              "Sanity check on size of \"%s\" value failed",
3949
4
                              tagname);
3950
4
                break;
3951
1
            case TIFFReadDirEntryErrAlloc:
3952
1
                TIFFErrorExtR(tif, module, "Out of memory reading of \"%s\"",
3953
1
                              tagname);
3954
1
                break;
3955
0
            default:
3956
0
                assert(0); /* we should never get here */
3957
0
                break;
3958
196
        }
3959
196
    }
3960
2.22k
    else
3961
2.22k
    {
3962
2.22k
        switch (err)
3963
2.22k
        {
3964
382
            case TIFFReadDirEntryErrCount:
3965
382
                TIFFWarningExtR(tif, module,
3966
382
                                "Incorrect count for \"%s\"; tag ignored",
3967
382
                                tagname);
3968
382
                break;
3969
78
            case TIFFReadDirEntryErrType:
3970
78
                TIFFWarningExtR(tif, module,
3971
78
                                "Incompatible type for \"%s\"; tag ignored",
3972
78
                                tagname);
3973
78
                break;
3974
1.15k
            case TIFFReadDirEntryErrIo:
3975
1.15k
                TIFFWarningExtR(
3976
1.15k
                    tif, module,
3977
1.15k
                    "IO error during reading of \"%s\"; tag ignored", tagname);
3978
1.15k
                break;
3979
122
            case TIFFReadDirEntryErrRange:
3980
122
                TIFFWarningExtR(tif, module,
3981
122
                                "Incorrect value for \"%s\"; tag ignored",
3982
122
                                tagname);
3983
122
                break;
3984
0
            case TIFFReadDirEntryErrPsdif:
3985
0
                TIFFWarningExtR(tif, module,
3986
0
                                "Cannot handle different values per sample for "
3987
0
                                "\"%s\"; tag ignored",
3988
0
                                tagname);
3989
0
                break;
3990
272
            case TIFFReadDirEntryErrSizesan:
3991
272
                TIFFWarningExtR(
3992
272
                    tif, module,
3993
272
                    "Sanity check on size of \"%s\" value failed; tag ignored",
3994
272
                    tagname);
3995
272
                break;
3996
212
            case TIFFReadDirEntryErrAlloc:
3997
212
                TIFFWarningExtR(tif, module,
3998
212
                                "Out of memory reading of \"%s\"; tag ignored",
3999
212
                                tagname);
4000
212
                break;
4001
0
            default:
4002
0
                assert(0); /* we should never get here */
4003
0
                break;
4004
2.22k
        }
4005
2.22k
    }
4006
2.42k
}
4007
4008
/*
4009
 * Return the maximum number of color channels specified for a given photometric
4010
 * type. 0 is returned if photometric type isn't supported or no default value
4011
 * is defined by the specification.
4012
 */
4013
static int _TIFFGetMaxColorChannels(uint16_t photometric)
4014
407
{
4015
407
    switch (photometric)
4016
407
    {
4017
26
        case PHOTOMETRIC_PALETTE:
4018
182
        case PHOTOMETRIC_MINISWHITE:
4019
213
        case PHOTOMETRIC_MINISBLACK:
4020
213
            return 1;
4021
76
        case PHOTOMETRIC_YCBCR:
4022
106
        case PHOTOMETRIC_RGB:
4023
109
        case PHOTOMETRIC_CIELAB:
4024
153
        case PHOTOMETRIC_LOGLUV:
4025
154
        case PHOTOMETRIC_ITULAB:
4026
154
        case PHOTOMETRIC_ICCLAB:
4027
154
            return 3;
4028
18
        case PHOTOMETRIC_SEPARATED:
4029
20
        case PHOTOMETRIC_MASK:
4030
20
            return 4;
4031
2
        case PHOTOMETRIC_LOGL:
4032
2
        case PHOTOMETRIC_CFA:
4033
20
        default:
4034
20
            return 0;
4035
407
    }
4036
407
}
4037
4038
static int ByteCountLooksBad(TIFF *tif)
4039
97
{
4040
    /*
4041
     * Assume we have wrong StripByteCount value (in case
4042
     * of single strip) in following cases:
4043
     *   - it is equal to zero along with StripOffset;
4044
     *   - it is larger than file itself (in case of uncompressed
4045
     *     image);
4046
     *   - it is smaller than the size of the bytes per row
4047
     *     multiplied on the number of rows.  The last case should
4048
     *     not be checked in the case of writing new image,
4049
     *     because we may do not know the exact strip size
4050
     *     until the whole image will be written and directory
4051
     *     dumped out.
4052
     */
4053
97
    uint64_t bytecount = TIFFGetStrileByteCount(tif, 0);
4054
97
    uint64_t offset = TIFFGetStrileOffset(tif, 0);
4055
97
    uint64_t filesize;
4056
4057
97
    if (offset == 0)
4058
9
        return 0;
4059
88
    if (bytecount == 0)
4060
1
        return 1;
4061
87
    if (tif->tif_dir.td_compression != COMPRESSION_NONE)
4062
32
        return 0;
4063
55
    filesize = TIFFGetFileSize(tif);
4064
55
    if (offset <= filesize && bytecount > filesize - offset)
4065
11
        return 1;
4066
44
    if (tif->tif_mode == O_RDONLY)
4067
44
    {
4068
44
        uint64_t scanlinesize = TIFFScanlineSize64(tif);
4069
44
        if (tif->tif_dir.td_imagelength > 0 &&
4070
39
            scanlinesize > UINT64_MAX / tif->tif_dir.td_imagelength)
4071
0
        {
4072
0
            return 1;
4073
0
        }
4074
44
        if (bytecount < scanlinesize * tif->tif_dir.td_imagelength)
4075
10
            return 1;
4076
44
    }
4077
34
    return 0;
4078
44
}
4079
4080
/*
4081
 * To evaluate the IFD data size when reading, save the offset and data size of
4082
 * all data that does not fit into the IFD entries themselves.
4083
 */
4084
static bool EvaluateIFDdatasizeReading(TIFF *tif, TIFFDirEntry *dp)
4085
2.57k
{
4086
2.57k
    const uint64_t data_width = TIFFDataWidth(dp->tdir_type);
4087
2.57k
    uint64_t datalength;
4088
2.57k
    if (data_width != 0 && dp->tdir_count > UINT64_MAX / data_width)
4089
1
    {
4090
1
        TIFFErrorExtR(tif, "EvaluateIFDdatasizeReading",
4091
1
                      "Too large IFD data size");
4092
1
        return false;
4093
1
    }
4094
2.56k
    datalength = dp->tdir_count * data_width;
4095
2.56k
    if (datalength > ((tif->tif_flags & TIFF_BIGTIFF) ? 0x8U : 0x4U))
4096
1.26k
    {
4097
1.26k
        if (tif->tif_dir.td_dirdatasize_read > UINT64_MAX - datalength)
4098
0
        {
4099
0
            TIFFErrorExtR(tif, "EvaluateIFDdatasizeReading",
4100
0
                          "Too large IFD data size");
4101
0
            return false;
4102
0
        }
4103
1.26k
        tif->tif_dir.td_dirdatasize_read += datalength;
4104
1.26k
        if (!(tif->tif_flags & TIFF_BIGTIFF))
4105
1.23k
        {
4106
            /* The offset of TIFFDirEntry are not swapped when read in. That has
4107
             * to be done when used. */
4108
1.23k
            uint32_t offset = dp->tdir_offset.toff_long;
4109
1.23k
            if (tif->tif_flags & TIFF_SWAB)
4110
167
                TIFFSwabLong(&offset);
4111
1.23k
            tif->tif_dir
4112
1.23k
                .td_dirdatasize_offsets[tif->tif_dir.td_dirdatasize_Noffsets]
4113
1.23k
                .offset = (uint64_t)offset;
4114
1.23k
        }
4115
28
        else
4116
28
        {
4117
28
            tif->tif_dir
4118
28
                .td_dirdatasize_offsets[tif->tif_dir.td_dirdatasize_Noffsets]
4119
28
                .offset = dp->tdir_offset.toff_long8;
4120
28
            if (tif->tif_flags & TIFF_SWAB)
4121
8
                TIFFSwabLong8(
4122
8
                    &tif->tif_dir
4123
8
                         .td_dirdatasize_offsets[tif->tif_dir
4124
8
                                                     .td_dirdatasize_Noffsets]
4125
8
                         .offset);
4126
28
        }
4127
1.26k
        tif->tif_dir
4128
1.26k
            .td_dirdatasize_offsets[tif->tif_dir.td_dirdatasize_Noffsets]
4129
1.26k
            .length = datalength;
4130
1.26k
        tif->tif_dir.td_dirdatasize_Noffsets++;
4131
1.26k
    }
4132
2.56k
    return true;
4133
2.56k
}
4134
4135
/*
4136
 * Compare function for qsort() sorting TIFFEntryOffsetAndLength array entries.
4137
 */
4138
static int cmpTIFFEntryOffsetAndLength(const void *a, const void *b)
4139
0
{
4140
0
    const TIFFEntryOffsetAndLength *ta = (const TIFFEntryOffsetAndLength *)a;
4141
0
    const TIFFEntryOffsetAndLength *tb = (const TIFFEntryOffsetAndLength *)b;
4142
    /* Compare offsets */
4143
0
    if (ta->offset > tb->offset)
4144
0
        return 1;
4145
0
    else if (ta->offset < tb->offset)
4146
0
        return -1;
4147
0
    else
4148
0
        return 0;
4149
0
}
4150
4151
/*
4152
 * Determine the IFD data size after reading an IFD from the file that can be
4153
 * overwritten and saving it in tif_dir.td_dirdatasize_read. This data size
4154
 * includes the IFD entries themselves as well as the data that does not fit
4155
 * directly into the IFD entries but is located directly after the IFD entries
4156
 * in the file.
4157
 */
4158
static void CalcFinalIFDdatasizeReading(TIFF *tif, uint16_t dircount)
4159
764
{
4160
764
    uint64_t IFDendoffset;
4161
764
    uint64_t size;
4162
764
    uint64_t offset;
4163
764
    uint32_t i;
4164
    /* IFD data size is only needed if file-writing is enabled.
4165
     * This also avoids the seek() to EOF to determine the file size, which
4166
     * causes the stdin-streaming-friendly mode of libtiff for GDAL to fail. */
4167
764
    if (tif->tif_mode == O_RDONLY)
4168
764
        return;
4169
4170
    /* Sort TIFFEntryOffsetAndLength array in ascending order. */
4171
0
    qsort(tif->tif_dir.td_dirdatasize_offsets,
4172
0
          tif->tif_dir.td_dirdatasize_Noffsets,
4173
0
          sizeof(TIFFEntryOffsetAndLength), cmpTIFFEntryOffsetAndLength);
4174
4175
    /* Get offset of end of IFD entry space. */
4176
0
    if (!(tif->tif_flags & TIFF_BIGTIFF))
4177
0
        IFDendoffset = tif->tif_diroff + 2 + dircount * 12 + 4;
4178
0
    else
4179
0
        IFDendoffset = tif->tif_diroff + 8 + dircount * 20 + 8;
4180
4181
    /* Check which offsets are right behind IFD entries. However, LibTIFF
4182
     * increments the writing address for every external data to an even offset.
4183
     * Thus gaps of 1 byte can occur. */
4184
0
    size = 0;
4185
0
    for (i = 0; i < tif->tif_dir.td_dirdatasize_Noffsets; i++)
4186
0
    {
4187
0
        offset = tif->tif_dir.td_dirdatasize_offsets[i].offset;
4188
0
        if (offset == IFDendoffset)
4189
0
        {
4190
0
            size += tif->tif_dir.td_dirdatasize_offsets[i].length;
4191
0
            IFDendoffset += tif->tif_dir.td_dirdatasize_offsets[i].length;
4192
0
        }
4193
0
        else if (offset == IFDendoffset + 1)
4194
0
        {
4195
            /* Add gap byte after previous IFD data set. */
4196
0
            size += tif->tif_dir.td_dirdatasize_offsets[i].length + 1;
4197
0
            IFDendoffset += tif->tif_dir.td_dirdatasize_offsets[i].length;
4198
0
        }
4199
0
        else
4200
0
        {
4201
            /* Further data is no more continuously after IFD */
4202
0
            break;
4203
0
        }
4204
0
    }
4205
    /* Check for gap byte of some easy cases. This should cover 90% of cases.
4206
     * Otherwise, IFD will be re-written even it might be safely overwritten. */
4207
0
    if (tif->tif_nextdiroff != 0)
4208
0
    {
4209
0
        if (tif->tif_nextdiroff == IFDendoffset + 1)
4210
0
            size++;
4211
0
    }
4212
0
    else
4213
0
    {
4214
        /* Check for IFD data ends at EOF. Then IFD can always be safely
4215
         * overwritten. */
4216
0
        offset = TIFFSeekFile(tif, 0, SEEK_END);
4217
0
        if (offset == IFDendoffset)
4218
0
        {
4219
0
            tif->tif_dir.td_dirdatasize_read = UINT64_MAX;
4220
0
            return;
4221
0
        }
4222
0
    }
4223
4224
    /* Finally, add the size of the IFD tag entries themselves. */
4225
0
    if (!(tif->tif_flags & TIFF_BIGTIFF))
4226
0
        tif->tif_dir.td_dirdatasize_read = 2 + dircount * 12 + 4 + size;
4227
0
    else
4228
0
        tif->tif_dir.td_dirdatasize_read = 8 + dircount * 20 + 8 + size;
4229
0
} /*-- CalcFinalIFDdatasizeReading() --*/
4230
4231
/*
4232
 * Read the next TIFF directory from a file and convert it to the internal
4233
 * format. We read directories sequentially.
4234
 */
4235
int TIFFReadDirectory(TIFF *tif)
4236
1.09k
{
4237
1.09k
    static const char module[] = "TIFFReadDirectory";
4238
1.09k
    TIFFDirEntry *dir;
4239
1.09k
    uint16_t dircount;
4240
1.09k
    TIFFDirEntry *dp;
4241
1.09k
    uint16_t di;
4242
1.09k
    const TIFFField *fip;
4243
1.09k
    uint32_t fii = FAILED_FII;
4244
1.09k
    toff_t nextdiroff;
4245
1.09k
    int bitspersample_read = FALSE;
4246
1.09k
    int color_channels;
4247
4248
1.09k
    if (tif->tif_nextdiroff == 0)
4249
104
    {
4250
        /* In this special case, tif_diroff needs also to be set to 0.
4251
         * This is behind the last IFD, thus no checking or reading necessary.
4252
         */
4253
104
        tif->tif_diroff = tif->tif_nextdiroff;
4254
104
        return 0;
4255
104
    }
4256
4257
988
    nextdiroff = tif->tif_nextdiroff;
4258
    /* tif_curdir++ and tif_nextdiroff should only be updated after SUCCESSFUL
4259
     * reading of the directory. Otherwise, invalid IFD offsets could corrupt
4260
     * the IFD list. */
4261
988
    if (!_TIFFCheckDirNumberAndOffset(tif,
4262
988
                                      tif->tif_curdir ==
4263
988
                                              TIFF_NON_EXISTENT_DIR_NUMBER
4264
988
                                          ? 0
4265
988
                                          : tif->tif_curdir + 1,
4266
988
                                      nextdiroff))
4267
0
    {
4268
0
        return 0; /* bad offset (IFD looping or more than TIFF_MAX_DIR_COUNT
4269
                     IFDs) */
4270
0
    }
4271
988
    dircount = TIFFFetchDirectory(tif, nextdiroff, &dir, &tif->tif_nextdiroff);
4272
988
    if (!dircount)
4273
129
    {
4274
129
        TIFFErrorExtR(tif, module,
4275
129
                      "Failed to read directory at offset %" PRIu64,
4276
129
                      nextdiroff);
4277
129
        return 0;
4278
129
    }
4279
    /* Set global values after a valid directory has been fetched.
4280
     * tif_diroff is already set to nextdiroff in TIFFFetchDirectory() in the
4281
     * beginning. */
4282
859
    if (tif->tif_curdir == TIFF_NON_EXISTENT_DIR_NUMBER)
4283
855
        tif->tif_curdir = 0;
4284
4
    else
4285
4
        tif->tif_curdir++;
4286
4287
859
    TIFFReadDirectoryCheckOrder(tif, dir, dircount);
4288
4289
    /*
4290
     * Mark duplicates of any tag to be ignored (bugzilla 1994)
4291
     * to avoid certain pathological problems.
4292
     */
4293
859
    {
4294
859
        TIFFDirEntry *ma;
4295
859
        uint16_t mb;
4296
45.3k
        for (ma = dir, mb = 0; mb < dircount; ma++, mb++)
4297
44.4k
        {
4298
44.4k
            TIFFDirEntry *na;
4299
44.4k
            uint16_t nb;
4300
20.4M
            for (na = ma + 1, nb = mb + 1; nb < dircount; na++, nb++)
4301
20.3M
            {
4302
20.3M
                if (ma->tdir_tag == na->tdir_tag)
4303
1.77M
                {
4304
1.77M
                    na->tdir_ignore = TRUE;
4305
1.77M
                }
4306
20.3M
            }
4307
44.4k
        }
4308
859
    }
4309
4310
859
    tif->tif_flags &= ~TIFF_BEENWRITING; /* reset before new dir */
4311
859
    tif->tif_flags &= ~TIFF_BUF4WRITE;   /* reset before new dir */
4312
859
    tif->tif_flags &= ~TIFF_CHOPPEDUPARRAYS;
4313
4314
    /* free any old stuff and reinit */
4315
859
    (*tif->tif_cleanup)(tif); /* cleanup any previous compression state */
4316
859
    TIFFFreeDirectory(tif);
4317
859
    TIFFDefaultDirectory(tif);
4318
4319
    /* After setup a fresh directory indicate that now active IFD is also
4320
     * present on file, even if its entries could not be read successfully
4321
     * below.  */
4322
859
    tif->tif_dir.td_iswrittentofile = TRUE;
4323
4324
    /* Allocate arrays for offset values outside IFD entry for IFD data size
4325
     * checking. Note: Counter are reset within TIFFFreeDirectory(). */
4326
859
    tif->tif_dir.td_dirdatasize_offsets =
4327
859
        (TIFFEntryOffsetAndLength *)_TIFFmallocExt(
4328
859
            tif, dircount * sizeof(TIFFEntryOffsetAndLength));
4329
859
    if (tif->tif_dir.td_dirdatasize_offsets == NULL)
4330
0
    {
4331
0
        TIFFErrorExtR(
4332
0
            tif, module,
4333
0
            "Failed to allocate memory for counting IFD data size at reading");
4334
0
        goto bad;
4335
0
    }
4336
    /*
4337
     * Electronic Arts writes gray-scale TIFF files
4338
     * without a PlanarConfiguration directory entry.
4339
     * Thus we setup a default value here, even though
4340
     * the TIFF spec says there is no default value.
4341
     * After PlanarConfiguration is preset in TIFFDefaultDirectory()
4342
     * the following setting is not needed, but does not harm either.
4343
     */
4344
859
    TIFFSetField(tif, TIFFTAG_PLANARCONFIG, PLANARCONFIG_CONTIG);
4345
    /*
4346
     * Setup default value and then make a pass over
4347
     * the fields to check type and tag information,
4348
     * and to extract info required to size data
4349
     * structures.  A second pass is made afterwards
4350
     * to read in everything not taken in the first pass.
4351
     * But we must process the Compression tag first
4352
     * in order to merge in codec-private tag definitions (otherwise
4353
     * we may get complaints about unknown tags).  However, the
4354
     * Compression tag may be dependent on the SamplesPerPixel
4355
     * tag value because older TIFF specs permitted Compression
4356
     * to be written as a SamplesPerPixel-count tag entry.
4357
     * Thus if we don't first figure out the correct SamplesPerPixel
4358
     * tag value then we may end up ignoring the Compression tag
4359
     * value because it has an incorrect count value (if the
4360
     * true value of SamplesPerPixel is not 1).
4361
     */
4362
859
    dp =
4363
859
        TIFFReadDirectoryFindEntry(tif, dir, dircount, TIFFTAG_SAMPLESPERPIXEL);
4364
859
    if (dp)
4365
318
    {
4366
318
        if (!TIFFFetchNormalTag(tif, dp, 0))
4367
2
            goto bad;
4368
316
        dp->tdir_ignore = TRUE;
4369
316
    }
4370
857
    dp = TIFFReadDirectoryFindEntry(tif, dir, dircount, TIFFTAG_COMPRESSION);
4371
857
    if (dp)
4372
322
    {
4373
        /*
4374
         * The 5.0 spec says the Compression tag has one value, while
4375
         * earlier specs say it has one value per sample.  Because of
4376
         * this, we accept the tag if one value is supplied with either
4377
         * count.
4378
         */
4379
322
        uint16_t value;
4380
322
        enum TIFFReadDirEntryErr err;
4381
322
        err = TIFFReadDirEntryShort(tif, dp, &value);
4382
322
        if (err == TIFFReadDirEntryErrCount)
4383
36
            err = TIFFReadDirEntryPersampleShort(tif, dp, &value);
4384
322
        if (err != TIFFReadDirEntryErrOk)
4385
24
        {
4386
24
            TIFFReadDirEntryOutputErr(tif, err, module, "Compression", 0);
4387
24
            goto bad;
4388
24
        }
4389
298
        if (!TIFFSetField(tif, TIFFTAG_COMPRESSION, value))
4390
0
            goto bad;
4391
298
        dp->tdir_ignore = TRUE;
4392
298
    }
4393
535
    else
4394
535
    {
4395
535
        if (!TIFFSetField(tif, TIFFTAG_COMPRESSION, COMPRESSION_NONE))
4396
0
            goto bad;
4397
535
    }
4398
    /*
4399
     * First real pass over the directory.
4400
     */
4401
44.7k
    for (di = 0, dp = dir; di < dircount; di++, dp++)
4402
43.9k
    {
4403
43.9k
        if (!dp->tdir_ignore)
4404
20.8k
        {
4405
20.8k
            const TIFFField *fld;
4406
20.8k
            TIFFReadDirectoryFindFieldInfo(tif, dp->tdir_tag, &fii);
4407
20.8k
            if (fii == FAILED_FII)
4408
15.8k
            {
4409
15.8k
                TIFFWarningExtR(tif, module,
4410
15.8k
                                "Unknown field with tag %" PRIu16 " (0x%" PRIx16
4411
15.8k
                                ") encountered",
4412
15.8k
                                dp->tdir_tag, dp->tdir_tag);
4413
                /* the following knowingly leaks the
4414
                   anonymous field structure */
4415
15.8k
                fld = _TIFFCreateAnonField(
4416
15.8k
                    tif, dp->tdir_tag, (TIFFDataType)dp->tdir_type);
4417
15.8k
                if (fld == NULL || !_TIFFMergeFields(tif, fld, 1))
4418
0
                {
4419
0
                    TIFFWarningExtR(
4420
0
                        tif, module,
4421
0
                        "Registering anonymous field with tag %" PRIu16
4422
0
                        " (0x%" PRIx16 ") failed",
4423
0
                        dp->tdir_tag, dp->tdir_tag);
4424
0
                    dp->tdir_ignore = TRUE;
4425
0
                }
4426
15.8k
                else
4427
15.8k
                {
4428
15.8k
                    TIFFReadDirectoryFindFieldInfo(tif, dp->tdir_tag, &fii);
4429
15.8k
                    assert(fii != FAILED_FII);
4430
15.8k
                }
4431
15.8k
            }
4432
20.8k
        }
4433
43.9k
        if (!dp->tdir_ignore)
4434
20.8k
        {
4435
20.8k
            fip = tif->tif_fields[fii];
4436
20.8k
            if (fip->field_bit == FIELD_IGNORE)
4437
100
                dp->tdir_ignore = TRUE;
4438
20.7k
            else
4439
20.7k
            {
4440
20.7k
                switch (dp->tdir_tag)
4441
20.7k
                {
4442
474
                    case TIFFTAG_STRIPOFFSETS:
4443
684
                    case TIFFTAG_STRIPBYTECOUNTS:
4444
761
                    case TIFFTAG_TILEOFFSETS:
4445
807
                    case TIFFTAG_TILEBYTECOUNTS:
4446
807
                        TIFFSetFieldBit(tif, fip->field_bit);
4447
807
                        break;
4448
692
                    case TIFFTAG_IMAGEWIDTH:
4449
1.25k
                    case TIFFTAG_IMAGELENGTH:
4450
1.26k
                    case TIFFTAG_IMAGEDEPTH:
4451
1.32k
                    case TIFFTAG_TILELENGTH:
4452
1.40k
                    case TIFFTAG_TILEWIDTH:
4453
1.41k
                    case TIFFTAG_TILEDEPTH:
4454
1.58k
                    case TIFFTAG_PLANARCONFIG:
4455
1.78k
                    case TIFFTAG_ROWSPERSTRIP:
4456
1.83k
                    case TIFFTAG_EXTRASAMPLES:
4457
1.83k
                        if (!TIFFFetchNormalTag(tif, dp, 0))
4458
31
                            goto bad;
4459
1.80k
                        dp->tdir_ignore = TRUE;
4460
1.80k
                        break;
4461
18.0k
                    default:
4462
18.0k
                        if (!_TIFFCheckFieldIsValidForCodec(tif, dp->tdir_tag))
4463
212
                            dp->tdir_ignore = TRUE;
4464
18.0k
                        break;
4465
20.7k
                }
4466
20.7k
            }
4467
20.8k
        }
4468
43.9k
    }
4469
    /*
4470
     * XXX: OJPEG hack.
4471
     * If a) compression is OJPEG, b) planarconfig tag says it's separate,
4472
     * c) strip offsets/bytecounts tag are both present and
4473
     * d) both contain exactly one value, then we consistently find
4474
     * that the buggy implementation of the buggy compression scheme
4475
     * matches contig planarconfig best. So we 'fix-up' the tag here
4476
     */
4477
802
    if ((tif->tif_dir.td_compression == COMPRESSION_OJPEG) &&
4478
24
        (tif->tif_dir.td_planarconfig == PLANARCONFIG_SEPARATE))
4479
4
    {
4480
4
        if (!_TIFFFillStriles(tif))
4481
0
            goto bad;
4482
4
        dp = TIFFReadDirectoryFindEntry(tif, dir, dircount,
4483
4
                                        TIFFTAG_STRIPOFFSETS);
4484
4
        if ((dp != 0) && (dp->tdir_count == 1))
4485
2
        {
4486
2
            dp = TIFFReadDirectoryFindEntry(tif, dir, dircount,
4487
2
                                            TIFFTAG_STRIPBYTECOUNTS);
4488
2
            if ((dp != 0) && (dp->tdir_count == 1))
4489
1
            {
4490
1
                tif->tif_dir.td_planarconfig = PLANARCONFIG_CONTIG;
4491
1
                TIFFWarningExtR(tif, module,
4492
1
                                "Planarconfig tag value assumed incorrect, "
4493
1
                                "assuming data is contig instead of chunky");
4494
1
            }
4495
2
        }
4496
4
    }
4497
    /*
4498
     * Allocate directory structure and setup defaults.
4499
     */
4500
802
    if (!TIFFFieldSet(tif, FIELD_IMAGEDIMENSIONS))
4501
8
    {
4502
8
        MissingRequired(tif, "ImageLength");
4503
8
        goto bad;
4504
8
    }
4505
4506
    /*
4507
     * Second pass: extract other information.
4508
     */
4509
43.4k
    for (di = 0, dp = dir; di < dircount; di++, dp++)
4510
42.7k
    {
4511
42.7k
        if (!dp->tdir_ignore)
4512
18.0k
        {
4513
18.0k
            switch (dp->tdir_tag)
4514
18.0k
            {
4515
3
                case TIFFTAG_MINSAMPLEVALUE:
4516
16
                case TIFFTAG_MAXSAMPLEVALUE:
4517
327
                case TIFFTAG_BITSPERSAMPLE:
4518
327
                case TIFFTAG_DATATYPE:
4519
446
                case TIFFTAG_SAMPLEFORMAT:
4520
                    /*
4521
                     * The MinSampleValue, MaxSampleValue, BitsPerSample
4522
                     * DataType and SampleFormat tags are supposed to be
4523
                     * written as one value/sample, but some vendors
4524
                     * incorrectly write one value only -- so we accept
4525
                     * that as well (yuck). Other vendors write correct
4526
                     * value for NumberOfSamples, but incorrect one for
4527
                     * BitsPerSample and friends, and we will read this
4528
                     * too.
4529
                     */
4530
446
                    {
4531
446
                        uint16_t value;
4532
446
                        enum TIFFReadDirEntryErr err;
4533
446
                        err = TIFFReadDirEntryShort(tif, dp, &value);
4534
446
                        if (!EvaluateIFDdatasizeReading(tif, dp))
4535
0
                            goto bad;
4536
446
                        if (err == TIFFReadDirEntryErrCount)
4537
145
                            err =
4538
145
                                TIFFReadDirEntryPersampleShort(tif, dp, &value);
4539
446
                        if (err != TIFFReadDirEntryErrOk)
4540
21
                        {
4541
21
                            fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4542
21
                            TIFFReadDirEntryOutputErr(
4543
21
                                tif, err, module,
4544
21
                                fip ? fip->field_name : "unknown tagname", 0);
4545
21
                            goto bad;
4546
21
                        }
4547
425
                        if (!TIFFSetField(tif, dp->tdir_tag, value))
4548
2
                            goto bad;
4549
423
                        if (dp->tdir_tag == TIFFTAG_BITSPERSAMPLE)
4550
296
                            bitspersample_read = TRUE;
4551
423
                    }
4552
0
                    break;
4553
17
                case TIFFTAG_SMINSAMPLEVALUE:
4554
34
                case TIFFTAG_SMAXSAMPLEVALUE:
4555
34
                {
4556
4557
34
                    double *data = NULL;
4558
34
                    enum TIFFReadDirEntryErr err;
4559
34
                    uint32_t saved_flags;
4560
34
                    int m;
4561
34
                    if (dp->tdir_count !=
4562
34
                        (uint64_t)tif->tif_dir.td_samplesperpixel)
4563
6
                        err = TIFFReadDirEntryErrCount;
4564
28
                    else
4565
28
                        err = TIFFReadDirEntryDoubleArray(tif, dp, &data);
4566
34
                    if (!EvaluateIFDdatasizeReading(tif, dp))
4567
1
                        goto bad;
4568
33
                    if (err != TIFFReadDirEntryErrOk)
4569
6
                    {
4570
6
                        fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4571
6
                        TIFFReadDirEntryOutputErr(
4572
6
                            tif, err, module,
4573
6
                            fip ? fip->field_name : "unknown tagname", 0);
4574
6
                        goto bad;
4575
6
                    }
4576
27
                    saved_flags = tif->tif_flags;
4577
27
                    tif->tif_flags |= TIFF_PERSAMPLE;
4578
27
                    m = TIFFSetField(tif, dp->tdir_tag, data);
4579
27
                    tif->tif_flags = saved_flags;
4580
27
                    _TIFFfreeExt(tif, data);
4581
27
                    if (!m)
4582
0
                        goto bad;
4583
27
                }
4584
27
                break;
4585
469
                case TIFFTAG_STRIPOFFSETS:
4586
545
                case TIFFTAG_TILEOFFSETS:
4587
545
                {
4588
545
                    switch (dp->tdir_type)
4589
545
                    {
4590
54
                        case TIFF_SHORT:
4591
341
                        case TIFF_LONG:
4592
385
                        case TIFF_LONG8:
4593
385
                            break;
4594
160
                        default:
4595
                            /* Warn except if directory typically created with
4596
                             * TIFFDeferStrileArrayWriting() */
4597
160
                            if (!(tif->tif_mode == O_RDWR &&
4598
0
                                  dp->tdir_count == 0 && dp->tdir_type == 0 &&
4599
0
                                  dp->tdir_offset.toff_long8 == 0))
4600
160
                            {
4601
160
                                fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4602
160
                                TIFFWarningExtR(
4603
160
                                    tif, module, "Invalid data type for tag %s",
4604
160
                                    fip ? fip->field_name : "unknown tagname");
4605
160
                            }
4606
160
                            break;
4607
545
                    }
4608
545
                    _TIFFmemcpy(&(tif->tif_dir.td_stripoffset_entry), dp,
4609
545
                                sizeof(TIFFDirEntry));
4610
545
                    if (!EvaluateIFDdatasizeReading(tif, dp))
4611
0
                        goto bad;
4612
545
                }
4613
545
                break;
4614
545
                case TIFFTAG_STRIPBYTECOUNTS:
4615
254
                case TIFFTAG_TILEBYTECOUNTS:
4616
254
                {
4617
254
                    switch (dp->tdir_type)
4618
254
                    {
4619
22
                        case TIFF_SHORT:
4620
173
                        case TIFF_LONG:
4621
215
                        case TIFF_LONG8:
4622
215
                            break;
4623
39
                        default:
4624
                            /* Warn except if directory typically created with
4625
                             * TIFFDeferStrileArrayWriting() */
4626
39
                            if (!(tif->tif_mode == O_RDWR &&
4627
0
                                  dp->tdir_count == 0 && dp->tdir_type == 0 &&
4628
0
                                  dp->tdir_offset.toff_long8 == 0))
4629
39
                            {
4630
39
                                fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4631
39
                                TIFFWarningExtR(
4632
39
                                    tif, module, "Invalid data type for tag %s",
4633
39
                                    fip ? fip->field_name : "unknown tagname");
4634
39
                            }
4635
39
                            break;
4636
254
                    }
4637
254
                    _TIFFmemcpy(&(tif->tif_dir.td_stripbytecount_entry), dp,
4638
254
                                sizeof(TIFFDirEntry));
4639
254
                    if (!EvaluateIFDdatasizeReading(tif, dp))
4640
0
                        goto bad;
4641
254
                }
4642
254
                break;
4643
254
                case TIFFTAG_COLORMAP:
4644
49
                case TIFFTAG_TRANSFERFUNCTION:
4645
49
                {
4646
49
                    enum TIFFReadDirEntryErr err;
4647
49
                    uint32_t countpersample;
4648
49
                    uint32_t countrequired;
4649
49
                    uint32_t incrementpersample;
4650
49
                    uint16_t *value = NULL;
4651
                    /* It would be dangerous to instantiate those tag values */
4652
                    /* since if td_bitspersample has not yet been read (due to
4653
                     */
4654
                    /* unordered tags), it could be read afterwards with a */
4655
                    /* values greater than the default one (1), which may cause
4656
                     */
4657
                    /* crashes in user code */
4658
49
                    if (!bitspersample_read)
4659
7
                    {
4660
7
                        fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4661
7
                        TIFFWarningExtR(
4662
7
                            tif, module,
4663
7
                            "Ignoring %s since BitsPerSample tag not found",
4664
7
                            fip ? fip->field_name : "unknown tagname");
4665
7
                        continue;
4666
7
                    }
4667
                    /* ColorMap or TransferFunction for high bit */
4668
                    /* depths do not make much sense and could be */
4669
                    /* used as a denial of service vector */
4670
42
                    if (tif->tif_dir.td_bitspersample > 24)
4671
5
                    {
4672
5
                        fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4673
5
                        TIFFWarningExtR(
4674
5
                            tif, module,
4675
5
                            "Ignoring %s because BitsPerSample=%" PRIu16 ">24",
4676
5
                            fip ? fip->field_name : "unknown tagname",
4677
5
                            tif->tif_dir.td_bitspersample);
4678
5
                        continue;
4679
5
                    }
4680
37
                    countpersample = (1U << tif->tif_dir.td_bitspersample);
4681
37
                    if ((dp->tdir_tag == TIFFTAG_TRANSFERFUNCTION) &&
4682
4
                        (dp->tdir_count == (uint64_t)countpersample))
4683
0
                    {
4684
0
                        countrequired = countpersample;
4685
0
                        incrementpersample = 0;
4686
0
                    }
4687
37
                    else
4688
37
                    {
4689
37
                        countrequired = 3 * countpersample;
4690
37
                        incrementpersample = countpersample;
4691
37
                    }
4692
37
                    if (dp->tdir_count != (uint64_t)countrequired)
4693
16
                        err = TIFFReadDirEntryErrCount;
4694
21
                    else
4695
21
                        err = TIFFReadDirEntryShortArray(tif, dp, &value);
4696
37
                    if (!EvaluateIFDdatasizeReading(tif, dp))
4697
0
                        goto bad;
4698
37
                    if (err != TIFFReadDirEntryErrOk)
4699
22
                    {
4700
22
                        fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4701
22
                        TIFFReadDirEntryOutputErr(
4702
22
                            tif, err, module,
4703
22
                            fip ? fip->field_name : "unknown tagname", 1);
4704
22
                    }
4705
15
                    else
4706
15
                    {
4707
15
                        TIFFSetField(tif, dp->tdir_tag, value,
4708
15
                                     value + incrementpersample,
4709
15
                                     value + 2 * incrementpersample);
4710
15
                        _TIFFfreeExt(tif, value);
4711
15
                    }
4712
37
                }
4713
0
                break;
4714
                    /* BEGIN REV 4.0 COMPATIBILITY */
4715
0
                case TIFFTAG_OSUBFILETYPE:
4716
0
                {
4717
0
                    uint16_t valueo;
4718
0
                    uint32_t value;
4719
0
                    if (TIFFReadDirEntryShort(tif, dp, &valueo) ==
4720
0
                        TIFFReadDirEntryErrOk)
4721
0
                    {
4722
0
                        switch (valueo)
4723
0
                        {
4724
0
                            case OFILETYPE_REDUCEDIMAGE:
4725
0
                                value = FILETYPE_REDUCEDIMAGE;
4726
0
                                break;
4727
0
                            case OFILETYPE_PAGE:
4728
0
                                value = FILETYPE_PAGE;
4729
0
                                break;
4730
0
                            default:
4731
0
                                value = 0;
4732
0
                                break;
4733
0
                        }
4734
0
                        if (value != 0)
4735
0
                            TIFFSetField(tif, TIFFTAG_SUBFILETYPE, value);
4736
0
                    }
4737
0
                }
4738
0
                break;
4739
                /* END REV 4.0 COMPATIBILITY */
4740
#if 0
4741
                case TIFFTAG_EP_BATTERYLEVEL:
4742
                    /* TIFFTAG_EP_BATTERYLEVEL can be RATIONAL or ASCII.
4743
                     * LibTiff defines it as ASCII and converts RATIONAL to an
4744
                     * ASCII string. */
4745
                    switch (dp->tdir_type)
4746
                    {
4747
                        case TIFF_RATIONAL:
4748
                        {
4749
                            /* Read rational and convert to ASCII*/
4750
                            enum TIFFReadDirEntryErr err;
4751
                            TIFFRational_t rValue;
4752
                            err = TIFFReadDirEntryCheckedRationalDirect(
4753
                                tif, dp, &rValue);
4754
                            if (err != TIFFReadDirEntryErrOk)
4755
                            {
4756
                                fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4757
                                TIFFReadDirEntryOutputErr(
4758
                                    tif, err, module,
4759
                                    fip ? fip->field_name : "unknown tagname",
4760
                                    1);
4761
                            }
4762
                            else
4763
                            {
4764
                                char szAux[32];
4765
                                snprintf(szAux, sizeof(szAux) - 1, "%d/%d",
4766
                                         rValue.uNum, rValue.uDenom);
4767
                                TIFFSetField(tif, dp->tdir_tag, szAux);
4768
                            }
4769
                        }
4770
                        break;
4771
                        case TIFF_ASCII:
4772
                            (void)TIFFFetchNormalTag(tif, dp, TRUE);
4773
                            break;
4774
                        default:
4775
                            fip = TIFFFieldWithTag(tif, dp->tdir_tag);
4776
                            TIFFWarningExtR(tif, module,
4777
                                            "Invalid data type for tag %s. "
4778
                                            "ASCII or RATIONAL expected",
4779
                                            fip ? fip->field_name
4780
                                                : "unknown tagname");
4781
                            break;
4782
                    }
4783
                    break;
4784
#endif
4785
16.7k
                default:
4786
16.7k
                    (void)TIFFFetchNormalTag(tif, dp, TRUE);
4787
16.7k
                    break;
4788
18.0k
            } /* -- switch (dp->tdir_tag) -- */
4789
18.0k
        }     /* -- if (!dp->tdir_ignore) */
4790
42.7k
    }         /* -- for-loop -- */
4791
4792
    /* Evaluate final IFD data size. */
4793
764
    CalcFinalIFDdatasizeReading(tif, dircount);
4794
4795
    /*
4796
     * OJPEG hack:
4797
     * - If a) compression is OJPEG, and b) photometric tag is missing,
4798
     * then we consistently find that photometric should be YCbCr
4799
     * - If a) compression is OJPEG, and b) photometric tag says it's RGB,
4800
     * then we consistently find that the buggy implementation of the
4801
     * buggy compression scheme matches photometric YCbCr instead.
4802
     * - If a) compression is OJPEG, and b) bitspersample tag is missing,
4803
     * then we consistently find bitspersample should be 8.
4804
     * - If a) compression is OJPEG, b) samplesperpixel tag is missing,
4805
     * and c) photometric is RGB or YCbCr, then we consistently find
4806
     * samplesperpixel should be 3
4807
     * - If a) compression is OJPEG, b) samplesperpixel tag is missing,
4808
     * and c) photometric is MINISWHITE or MINISBLACK, then we consistently
4809
     * find samplesperpixel should be 3
4810
     */
4811
764
    if (tif->tif_dir.td_compression == COMPRESSION_OJPEG)
4812
22
    {
4813
22
        if (!TIFFFieldSet(tif, FIELD_PHOTOMETRIC))
4814
16
        {
4815
16
            TIFFWarningExtR(
4816
16
                tif, module,
4817
16
                "Photometric tag is missing, assuming data is YCbCr");
4818
16
            if (!TIFFSetField(tif, TIFFTAG_PHOTOMETRIC, PHOTOMETRIC_YCBCR))
4819
0
                goto bad;
4820
16
        }
4821
6
        else if (tif->tif_dir.td_photometric == PHOTOMETRIC_RGB)
4822
0
        {
4823
0
            tif->tif_dir.td_photometric = PHOTOMETRIC_YCBCR;
4824
0
            TIFFWarningExtR(tif, module,
4825
0
                            "Photometric tag value assumed incorrect, "
4826
0
                            "assuming data is YCbCr instead of RGB");
4827
0
        }
4828
22
        if (!TIFFFieldSet(tif, FIELD_BITSPERSAMPLE))
4829
15
        {
4830
15
            TIFFWarningExtR(
4831
15
                tif, module,
4832
15
                "BitsPerSample tag is missing, assuming 8 bits per sample");
4833
15
            if (!TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8))
4834
0
                goto bad;
4835
15
        }
4836
22
        if (!TIFFFieldSet(tif, FIELD_SAMPLESPERPIXEL))
4837
18
        {
4838
18
            if (tif->tif_dir.td_photometric == PHOTOMETRIC_RGB)
4839
0
            {
4840
0
                TIFFWarningExtR(tif, module,
4841
0
                                "SamplesPerPixel tag is missing, "
4842
0
                                "assuming correct SamplesPerPixel value is 3");
4843
0
                if (!TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 3))
4844
0
                    goto bad;
4845
0
            }
4846
18
            if (tif->tif_dir.td_photometric == PHOTOMETRIC_YCBCR)
4847
16
            {
4848
16
                TIFFWarningExtR(tif, module,
4849
16
                                "SamplesPerPixel tag is missing, "
4850
16
                                "applying correct SamplesPerPixel value of 3");
4851
16
                if (!TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 3))
4852
0
                    goto bad;
4853
16
            }
4854
2
            else if ((tif->tif_dir.td_photometric == PHOTOMETRIC_MINISWHITE) ||
4855
2
                     (tif->tif_dir.td_photometric == PHOTOMETRIC_MINISBLACK))
4856
1
            {
4857
                /*
4858
                 * SamplesPerPixel tag is missing, but is not required
4859
                 * by spec.  Assume correct SamplesPerPixel value of 1.
4860
                 */
4861
1
                if (!TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 1))
4862
0
                    goto bad;
4863
1
            }
4864
18
        }
4865
22
    }
4866
4867
    /*
4868
     * Setup appropriate structures (by strip or by tile)
4869
     * We do that only after the above OJPEG hack which alters SamplesPerPixel
4870
     * and thus influences the number of strips in the separate planarconfig.
4871
     */
4872
764
    if (!TIFFFieldSet(tif, FIELD_TILEDIMENSIONS))
4873
675
    {
4874
675
        tif->tif_dir.td_nstrips = TIFFNumberOfStrips(tif);
4875
675
        tif->tif_dir.td_tilewidth = tif->tif_dir.td_imagewidth;
4876
675
        tif->tif_dir.td_tilelength = tif->tif_dir.td_rowsperstrip;
4877
675
        tif->tif_dir.td_tiledepth = tif->tif_dir.td_imagedepth;
4878
675
        tif->tif_flags &= ~TIFF_ISTILED;
4879
675
    }
4880
89
    else
4881
89
    {
4882
89
        tif->tif_dir.td_nstrips = TIFFNumberOfTiles(tif);
4883
89
        tif->tif_flags |= TIFF_ISTILED;
4884
89
    }
4885
764
    if (!tif->tif_dir.td_nstrips)
4886
22
    {
4887
22
        TIFFErrorExtR(tif, module, "Cannot handle zero number of %s",
4888
22
                      isTiled(tif) ? "tiles" : "strips");
4889
22
        goto bad;
4890
22
    }
4891
742
    tif->tif_dir.td_stripsperimage = tif->tif_dir.td_nstrips;
4892
742
    if (tif->tif_dir.td_planarconfig == PLANARCONFIG_SEPARATE)
4893
35
        tif->tif_dir.td_stripsperimage /= tif->tif_dir.td_samplesperpixel;
4894
742
    if (!TIFFFieldSet(tif, FIELD_STRIPOFFSETS))
4895
219
    {
4896
#ifdef OJPEG_SUPPORT
4897
        if ((tif->tif_dir.td_compression == COMPRESSION_OJPEG) &&
4898
            (isTiled(tif) == 0) && (tif->tif_dir.td_nstrips == 1))
4899
        {
4900
            /*
4901
             * XXX: OJPEG hack.
4902
             * If a) compression is OJPEG, b) it's not a tiled TIFF,
4903
             * and c) the number of strips is 1,
4904
             * then we tolerate the absence of stripoffsets tag,
4905
             * because, presumably, all required data is in the
4906
             * JpegInterchangeFormat stream.
4907
             */
4908
            TIFFSetFieldBit(tif, FIELD_STRIPOFFSETS);
4909
        }
4910
        else
4911
#endif
4912
219
        {
4913
219
            MissingRequired(tif, isTiled(tif) ? "TileOffsets" : "StripOffsets");
4914
219
            goto bad;
4915
219
        }
4916
219
    }
4917
4918
523
    if (tif->tif_mode == O_RDWR &&
4919
0
        tif->tif_dir.td_stripoffset_entry.tdir_tag != 0 &&
4920
0
        tif->tif_dir.td_stripoffset_entry.tdir_count == 0 &&
4921
0
        tif->tif_dir.td_stripoffset_entry.tdir_type == 0 &&
4922
0
        tif->tif_dir.td_stripoffset_entry.tdir_offset.toff_long8 == 0 &&
4923
0
        tif->tif_dir.td_stripbytecount_entry.tdir_tag != 0 &&
4924
0
        tif->tif_dir.td_stripbytecount_entry.tdir_count == 0 &&
4925
0
        tif->tif_dir.td_stripbytecount_entry.tdir_type == 0 &&
4926
0
        tif->tif_dir.td_stripbytecount_entry.tdir_offset.toff_long8 == 0)
4927
0
    {
4928
        /* Directory typically created with TIFFDeferStrileArrayWriting() */
4929
0
        TIFFSetupStrips(tif);
4930
0
    }
4931
523
    else if (!(tif->tif_flags & TIFF_DEFERSTRILELOAD))
4932
523
    {
4933
523
        if (tif->tif_dir.td_stripoffset_entry.tdir_tag != 0)
4934
523
        {
4935
523
            if (!TIFFFetchStripThing(tif, &(tif->tif_dir.td_stripoffset_entry),
4936
523
                                     tif->tif_dir.td_nstrips,
4937
523
                                     &tif->tif_dir.td_stripoffset_p))
4938
101
            {
4939
101
                goto bad;
4940
101
            }
4941
523
        }
4942
422
        if (tif->tif_dir.td_stripbytecount_entry.tdir_tag != 0)
4943
212
        {
4944
212
            if (!TIFFFetchStripThing(
4945
212
                    tif, &(tif->tif_dir.td_stripbytecount_entry),
4946
212
                    tif->tif_dir.td_nstrips, &tif->tif_dir.td_stripbytecount_p))
4947
15
            {
4948
15
                goto bad;
4949
15
            }
4950
212
        }
4951
422
    }
4952
4953
    /*
4954
     * Make sure all non-color channels are extrasamples.
4955
     * If it's not the case, define them as such.
4956
     */
4957
407
    color_channels = _TIFFGetMaxColorChannels(tif->tif_dir.td_photometric);
4958
407
    if (color_channels &&
4959
387
        tif->tif_dir.td_samplesperpixel - tif->tif_dir.td_extrasamples >
4960
387
            color_channels)
4961
51
    {
4962
51
        uint16_t old_extrasamples;
4963
51
        uint16_t *new_sampleinfo;
4964
4965
51
        TIFFWarningExtR(
4966
51
            tif, module,
4967
51
            "Sum of Photometric type-related "
4968
51
            "color channels and ExtraSamples doesn't match SamplesPerPixel. "
4969
51
            "Defining non-color channels as ExtraSamples.");
4970
4971
51
        old_extrasamples = tif->tif_dir.td_extrasamples;
4972
51
        tif->tif_dir.td_extrasamples =
4973
51
            (uint16_t)(tif->tif_dir.td_samplesperpixel - color_channels);
4974
4975
        // sampleinfo should contain information relative to these new extra
4976
        // samples
4977
51
        new_sampleinfo = (uint16_t *)_TIFFcallocExt(
4978
51
            tif, tif->tif_dir.td_extrasamples, sizeof(uint16_t));
4979
51
        if (!new_sampleinfo)
4980
0
        {
4981
0
            TIFFErrorExtR(tif, module,
4982
0
                          "Failed to allocate memory for "
4983
0
                          "temporary new sampleinfo array "
4984
0
                          "(%" PRIu16 " 16 bit elements)",
4985
0
                          tif->tif_dir.td_extrasamples);
4986
0
            goto bad;
4987
0
        }
4988
4989
51
        if (old_extrasamples > 0)
4990
6
            memcpy(new_sampleinfo, tif->tif_dir.td_sampleinfo,
4991
6
                   old_extrasamples * sizeof(uint16_t));
4992
51
        _TIFFsetShortArrayExt(tif, &tif->tif_dir.td_sampleinfo, new_sampleinfo,
4993
51
                              tif->tif_dir.td_extrasamples);
4994
51
        _TIFFfreeExt(tif, new_sampleinfo);
4995
51
    }
4996
4997
    /*
4998
     * Verify Palette image has a Colormap.
4999
     */
5000
407
    if (tif->tif_dir.td_photometric == PHOTOMETRIC_PALETTE &&
5001
26
        !TIFFFieldSet(tif, FIELD_COLORMAP))
5002
13
    {
5003
13
        if (tif->tif_dir.td_bitspersample >= 8 &&
5004
9
            tif->tif_dir.td_samplesperpixel == 3)
5005
5
            tif->tif_dir.td_photometric = PHOTOMETRIC_RGB;
5006
8
        else if (tif->tif_dir.td_bitspersample >= 8)
5007
4
            tif->tif_dir.td_photometric = PHOTOMETRIC_MINISBLACK;
5008
4
        else
5009
4
        {
5010
4
            MissingRequired(tif, "Colormap");
5011
4
            goto bad;
5012
4
        }
5013
13
    }
5014
    /*
5015
     * OJPEG hack:
5016
     * We do no further messing with strip/tile offsets/bytecounts in OJPEG
5017
     * TIFFs
5018
     */
5019
403
    if (tif->tif_dir.td_compression != COMPRESSION_OJPEG)
5020
396
    {
5021
        /*
5022
         * Attempt to deal with a missing StripByteCounts tag.
5023
         */
5024
396
        if (!TIFFFieldSet(tif, FIELD_STRIPBYTECOUNTS))
5025
202
        {
5026
            /*
5027
             * Some manufacturers violate the spec by not giving
5028
             * the size of the strips.  In this case, assume there
5029
             * is one uncompressed strip of data.
5030
             */
5031
202
            if ((tif->tif_dir.td_planarconfig == PLANARCONFIG_CONTIG &&
5032
188
                 tif->tif_dir.td_nstrips > 1) ||
5033
201
                (tif->tif_dir.td_planarconfig == PLANARCONFIG_SEPARATE &&
5034
14
                 tif->tif_dir.td_nstrips !=
5035
14
                     (uint32_t)tif->tif_dir.td_samplesperpixel))
5036
1
            {
5037
1
                MissingRequired(tif, "StripByteCounts");
5038
1
                goto bad;
5039
1
            }
5040
201
            TIFFWarningExtR(
5041
201
                tif, module,
5042
201
                "TIFF directory is missing required "
5043
201
                "\"StripByteCounts\" field, calculating from imagelength");
5044
201
            if (EstimateStripByteCounts(tif, dir, dircount) < 0)
5045
5
                goto bad;
5046
201
        }
5047
194
        else if (tif->tif_dir.td_nstrips == 1 &&
5048
102
                 !(tif->tif_flags & TIFF_ISTILED) && ByteCountLooksBad(tif))
5049
22
        {
5050
            /*
5051
             * XXX: Plexus (and others) sometimes give a value of
5052
             * zero for a tag when they don't know what the
5053
             * correct value is!  Try and handle the simple case
5054
             * of estimating the size of a one strip image.
5055
             */
5056
22
            TIFFWarningExtR(tif, module,
5057
22
                            "Bogus \"StripByteCounts\" field, ignoring and "
5058
22
                            "calculating from imagelength");
5059
22
            if (EstimateStripByteCounts(tif, dir, dircount) < 0)
5060
2
                goto bad;
5061
22
        }
5062
172
        else if (!(tif->tif_flags & TIFF_DEFERSTRILELOAD) &&
5063
172
                 tif->tif_dir.td_planarconfig == PLANARCONFIG_CONTIG &&
5064
164
                 tif->tif_dir.td_nstrips > 2 &&
5065
69
                 tif->tif_dir.td_compression == COMPRESSION_NONE &&
5066
33
                 TIFFGetStrileByteCount(tif, 0) !=
5067
33
                     TIFFGetStrileByteCount(tif, 1) &&
5068
27
                 TIFFGetStrileByteCount(tif, 0) != 0 &&
5069
26
                 TIFFGetStrileByteCount(tif, 1) != 0)
5070
24
        {
5071
            /*
5072
             * XXX: Some vendors fill StripByteCount array with
5073
             * absolutely wrong values (it can be equal to
5074
             * StripOffset array, for example). Catch this case
5075
             * here.
5076
             *
5077
             * We avoid this check if deferring strile loading
5078
             * as it would always force us to load the strip/tile
5079
             * information.
5080
             */
5081
24
            TIFFWarningExtR(tif, module,
5082
24
                            "Wrong \"StripByteCounts\" field, ignoring and "
5083
24
                            "calculating from imagelength");
5084
24
            if (EstimateStripByteCounts(tif, dir, dircount) < 0)
5085
0
                goto bad;
5086
24
        }
5087
396
    }
5088
395
    if (dir)
5089
395
    {
5090
395
        _TIFFfreeExt(tif, dir);
5091
395
        dir = NULL;
5092
395
    }
5093
395
    if (!TIFFFieldSet(tif, FIELD_MAXSAMPLEVALUE))
5094
385
    {
5095
385
        if (tif->tif_dir.td_bitspersample >= 16)
5096
54
            tif->tif_dir.td_maxsamplevalue = 0xFFFF;
5097
331
        else
5098
331
            tif->tif_dir.td_maxsamplevalue =
5099
331
                (uint16_t)((1L << tif->tif_dir.td_bitspersample) - 1);
5100
385
    }
5101
5102
#ifdef STRIPBYTECOUNTSORTED_UNUSED
5103
    /*
5104
     * XXX: We can optimize checking for the strip bounds using the sorted
5105
     * bytecounts array. See also comments for TIFFAppendToStrip()
5106
     * function in tif_write.c.
5107
     */
5108
    if (!(tif->tif_flags & TIFF_DEFERSTRILELOAD) && tif->tif_dir.td_nstrips > 1)
5109
    {
5110
        uint32_t strip;
5111
5112
        tif->tif_dir.td_stripbytecountsorted = 1;
5113
        for (strip = 1; strip < tif->tif_dir.td_nstrips; strip++)
5114
        {
5115
            if (TIFFGetStrileOffset(tif, strip - 1) >
5116
                TIFFGetStrileOffset(tif, strip))
5117
            {
5118
                tif->tif_dir.td_stripbytecountsorted = 0;
5119
                break;
5120
            }
5121
        }
5122
    }
5123
#endif
5124
5125
    /*
5126
     * An opportunity for compression mode dependent tag fixup
5127
     */
5128
395
    (*tif->tif_fixuptags)(tif);
5129
5130
    /*
5131
     * Some manufacturers make life difficult by writing
5132
     * large amounts of uncompressed data as a single strip.
5133
     * This is contrary to the recommendations of the spec.
5134
     * The following makes an attempt at breaking such images
5135
     * into strips closer to the recommended 8k bytes.  A
5136
     * side effect, however, is that the RowsPerStrip tag
5137
     * value may be changed.
5138
     */
5139
395
    if ((tif->tif_dir.td_planarconfig == PLANARCONFIG_CONTIG) &&
5140
372
        (tif->tif_dir.td_nstrips == 1) &&
5141
288
        (tif->tif_dir.td_compression == COMPRESSION_NONE) &&
5142
163
        ((tif->tif_flags & (TIFF_STRIPCHOP | TIFF_ISTILED)) == TIFF_STRIPCHOP))
5143
156
    {
5144
156
        ChopUpSingleUncompressedStrip(tif);
5145
156
    }
5146
5147
    /* There are also uncompressed striped files with strips larger than */
5148
    /* 2 GB, which make them unfriendly with a lot of code. If possible, */
5149
    /* try to expose smaller "virtual" strips. */
5150
395
    if (tif->tif_dir.td_planarconfig == PLANARCONFIG_CONTIG &&
5151
372
        tif->tif_dir.td_compression == COMPRESSION_NONE &&
5152
201
        (tif->tif_flags & (TIFF_STRIPCHOP | TIFF_ISTILED)) == TIFF_STRIPCHOP &&
5153
178
        TIFFStripSize64(tif) > 0x7FFFFFFFUL)
5154
35
    {
5155
35
        TryChopUpUncompressedBigTiff(tif);
5156
35
    }
5157
5158
    /*
5159
     * Clear the dirty directory flag.
5160
     */
5161
395
    tif->tif_flags &= ~TIFF_DIRTYDIRECT;
5162
395
    tif->tif_flags &= ~TIFF_DIRTYSTRIP;
5163
5164
    /*
5165
     * Reinitialize i/o since we are starting on a new directory.
5166
     */
5167
395
    tif->tif_row = (uint32_t)-1;
5168
395
    tif->tif_curstrip = (uint32_t)-1;
5169
395
    tif->tif_col = (uint32_t)-1;
5170
395
    tif->tif_curtile = (uint32_t)-1;
5171
395
    tif->tif_tilesize = (tmsize_t)-1;
5172
5173
395
    tif->tif_scanlinesize = TIFFScanlineSize(tif);
5174
395
    if (!tif->tif_scanlinesize)
5175
21
    {
5176
21
        TIFFErrorExtR(tif, module, "Cannot handle zero scanline size");
5177
21
        return (0);
5178
21
    }
5179
5180
374
    if (isTiled(tif))
5181
62
    {
5182
62
        tif->tif_tilesize = TIFFTileSize(tif);
5183
62
        if (!tif->tif_tilesize)
5184
2
        {
5185
2
            TIFFErrorExtR(tif, module, "Cannot handle zero tile size");
5186
2
            return (0);
5187
2
        }
5188
62
    }
5189
312
    else
5190
312
    {
5191
312
        if (!TIFFStripSize(tif))
5192
37
        {
5193
37
            TIFFErrorExtR(tif, module, "Cannot handle zero strip size");
5194
37
            return (0);
5195
37
        }
5196
312
    }
5197
335
    return (1);
5198
464
bad:
5199
464
    if (dir)
5200
464
        _TIFFfreeExt(tif, dir);
5201
464
    return (0);
5202
374
} /*-- TIFFReadDirectory() --*/
5203
5204
static void TIFFReadDirectoryCheckOrder(TIFF *tif, TIFFDirEntry *dir,
5205
                                        uint16_t dircount)
5206
859
{
5207
859
    static const char module[] = "TIFFReadDirectoryCheckOrder";
5208
859
    uint32_t m;
5209
859
    uint16_t n;
5210
859
    TIFFDirEntry *o;
5211
859
    m = 0;
5212
4.02k
    for (n = 0, o = dir; n < dircount; n++, o++)
5213
3.85k
    {
5214
3.85k
        if (o->tdir_tag < m)
5215
686
        {
5216
686
            TIFFWarningExtR(tif, module,
5217
686
                            "Invalid TIFF directory; tags are not sorted in "
5218
686
                            "ascending order");
5219
686
            break;
5220
686
        }
5221
3.17k
        m = o->tdir_tag + 1;
5222
3.17k
    }
5223
859
}
5224
5225
static TIFFDirEntry *TIFFReadDirectoryFindEntry(TIFF *tif, TIFFDirEntry *dir,
5226
                                                uint16_t dircount,
5227
                                                uint16_t tagid)
5228
1.72k
{
5229
1.72k
    TIFFDirEntry *m;
5230
1.72k
    uint16_t n;
5231
1.72k
    (void)tif;
5232
44.4k
    for (m = dir, n = 0; n < dircount; m++, n++)
5233
43.3k
    {
5234
43.3k
        if (m->tdir_tag == tagid)
5235
645
            return (m);
5236
43.3k
    }
5237
1.07k
    return (0);
5238
1.72k
}
5239
5240
static void TIFFReadDirectoryFindFieldInfo(TIFF *tif, uint16_t tagid,
5241
                                           uint32_t *fii)
5242
55.6k
{
5243
55.6k
    int32_t ma, mb, mc;
5244
55.6k
    ma = -1;
5245
55.6k
    mc = (int32_t)tif->tif_nfields;
5246
432k
    while (1)
5247
432k
    {
5248
432k
        if (ma + 1 == mc)
5249
15.8k
        {
5250
15.8k
            *fii = FAILED_FII;
5251
15.8k
            return;
5252
15.8k
        }
5253
416k
        mb = (ma + mc) / 2;
5254
416k
        if (tif->tif_fields[mb]->field_tag == (uint32_t)tagid)
5255
39.7k
            break;
5256
376k
        if (tif->tif_fields[mb]->field_tag < (uint32_t)tagid)
5257
186k
            ma = mb;
5258
190k
        else
5259
190k
            mc = mb;
5260
376k
    }
5261
39.7k
    while (1)
5262
39.7k
    {
5263
39.7k
        if (mb == 0)
5264
955
            break;
5265
38.7k
        if (tif->tif_fields[mb - 1]->field_tag != (uint32_t)tagid)
5266
38.7k
            break;
5267
0
        mb--;
5268
0
    }
5269
39.7k
    *fii = mb;
5270
39.7k
}
5271
5272
/*
5273
 * Read custom directory from the arbitrary offset.
5274
 * The code is very similar to TIFFReadDirectory().
5275
 */
5276
int TIFFReadCustomDirectory(TIFF *tif, toff_t diroff,
5277
                            const TIFFFieldArray *infoarray)
5278
0
{
5279
0
    static const char module[] = "TIFFReadCustomDirectory";
5280
0
    TIFFDirEntry *dir;
5281
0
    uint16_t dircount;
5282
0
    TIFFDirEntry *dp;
5283
0
    uint16_t di;
5284
0
    const TIFFField *fip;
5285
0
    uint32_t fii;
5286
5287
0
    dircount = TIFFFetchDirectory(tif, diroff, &dir, NULL);
5288
0
    if (!dircount)
5289
0
    {
5290
0
        TIFFErrorExtR(tif, module,
5291
0
                      "Failed to read custom directory at offset %" PRIu64,
5292
0
                      diroff);
5293
0
        return 0;
5294
0
    }
5295
0
    TIFFReadDirectoryCheckOrder(tif, dir, dircount);
5296
5297
    /*
5298
     * Mark duplicates of any tag to be ignored (bugzilla 1994)
5299
     * to avoid certain pathological problems.
5300
     */
5301
0
    {
5302
0
        TIFFDirEntry *ma;
5303
0
        uint16_t mb;
5304
0
        for (ma = dir, mb = 0; mb < dircount; ma++, mb++)
5305
0
        {
5306
0
            TIFFDirEntry *na;
5307
0
            uint16_t nb;
5308
0
            for (na = ma + 1, nb = mb + 1; nb < dircount; na++, nb++)
5309
0
            {
5310
0
                if (ma->tdir_tag == na->tdir_tag)
5311
0
                {
5312
0
                    na->tdir_ignore = TRUE;
5313
0
                }
5314
0
            }
5315
0
        }
5316
0
    }
5317
5318
    /* Free any old stuff and reinit. */
5319
0
    (*tif->tif_cleanup)(tif); /* cleanup any previous compression state */
5320
0
    TIFFFreeDirectory(tif);
5321
    /* Even if custom directories do not need the default settings of a standard
5322
     * IFD, the pointer to the TIFFSetField() and TIFFGetField() (i.e.
5323
     * tif->tif_tagmethods.vsetfield and tif->tif_tagmethods.vgetfield) need to
5324
     * be initialized, which is done in TIFFDefaultDirectory().
5325
     * After that, the field array for the custom tags needs to be setup again.
5326
     */
5327
0
    TIFFDefaultDirectory(tif);
5328
0
    _TIFFSetupFields(tif, infoarray);
5329
5330
    /* Allocate arrays for offset values outside IFD entry for IFD data size
5331
     * checking. Note: Counter are reset within TIFFFreeDirectory(). */
5332
0
    tif->tif_dir.td_dirdatasize_offsets =
5333
0
        (TIFFEntryOffsetAndLength *)_TIFFmallocExt(
5334
0
            tif, dircount * sizeof(TIFFEntryOffsetAndLength));
5335
0
    if (tif->tif_dir.td_dirdatasize_offsets == NULL)
5336
0
    {
5337
0
        TIFFErrorExtR(
5338
0
            tif, module,
5339
0
            "Failed to allocate memory for counting IFD data size at reading");
5340
0
        if (dir)
5341
0
            _TIFFfreeExt(tif, dir);
5342
0
        return 0;
5343
0
    }
5344
5345
0
    for (di = 0, dp = dir; di < dircount; di++, dp++)
5346
0
    {
5347
0
        TIFFReadDirectoryFindFieldInfo(tif, dp->tdir_tag, &fii);
5348
0
        if (fii == FAILED_FII)
5349
0
        {
5350
0
            const TIFFField *fld;
5351
0
            TIFFWarningExtR(tif, module,
5352
0
                            "Unknown field with tag %" PRIu16 " (0x%" PRIx16
5353
0
                            ") encountered",
5354
0
                            dp->tdir_tag, dp->tdir_tag);
5355
0
            fld = _TIFFCreateAnonField(
5356
0
                tif, dp->tdir_tag, (TIFFDataType)dp->tdir_type);
5357
0
            if (fld == NULL || !_TIFFMergeFields(tif, fld, 1))
5358
0
            {
5359
0
                TIFFWarningExtR(tif, module,
5360
0
                                "Registering anonymous field with tag %" PRIu16
5361
0
                                " (0x%" PRIx16 ") failed",
5362
0
                                dp->tdir_tag, dp->tdir_tag);
5363
0
                dp->tdir_ignore = TRUE;
5364
0
            }
5365
0
            else
5366
0
            {
5367
0
                TIFFReadDirectoryFindFieldInfo(tif, dp->tdir_tag, &fii);
5368
0
                assert(fii != FAILED_FII);
5369
0
            }
5370
0
        }
5371
0
        if (!dp->tdir_ignore)
5372
0
        {
5373
0
            fip = tif->tif_fields[fii];
5374
0
            if (fip->field_bit == FIELD_IGNORE)
5375
0
                dp->tdir_ignore = TRUE;
5376
0
            else
5377
0
            {
5378
                /* check data type */
5379
0
                while ((fip->field_type != TIFF_ANY) &&
5380
0
                       (fip->field_type != dp->tdir_type))
5381
0
                {
5382
0
                    fii++;
5383
0
                    if ((fii == tif->tif_nfields) ||
5384
0
                        (tif->tif_fields[fii]->field_tag !=
5385
0
                         (uint32_t)dp->tdir_tag))
5386
0
                    {
5387
0
                        fii = 0xFFFF;
5388
0
                        break;
5389
0
                    }
5390
0
                    fip = tif->tif_fields[fii];
5391
0
                }
5392
0
                if (fii == 0xFFFF)
5393
0
                {
5394
0
                    TIFFWarningExtR(tif, module,
5395
0
                                    "Wrong data type %" PRIu16
5396
0
                                    " for \"%s\"; tag ignored",
5397
0
                                    dp->tdir_type, fip->field_name);
5398
0
                    dp->tdir_ignore = TRUE;
5399
0
                }
5400
0
                else
5401
0
                {
5402
                    /* check count if known in advance */
5403
0
                    if ((fip->field_readcount != TIFF_VARIABLE) &&
5404
0
                        (fip->field_readcount != TIFF_VARIABLE2))
5405
0
                    {
5406
0
                        uint32_t expected;
5407
0
                        if (fip->field_readcount == TIFF_SPP)
5408
0
                            expected =
5409
0
                                (uint32_t)tif->tif_dir.td_samplesperpixel;
5410
0
                        else
5411
0
                            expected = (uint32_t)fip->field_readcount;
5412
0
                        if (!CheckDirCount(tif, dp, expected))
5413
0
                            dp->tdir_ignore = TRUE;
5414
0
                    }
5415
0
                }
5416
0
            }
5417
0
            if (!dp->tdir_ignore)
5418
0
            {
5419
0
                switch (dp->tdir_tag)
5420
0
                {
5421
0
                    case EXIFTAG_SUBJECTDISTANCE:
5422
0
                        if (!TIFFFieldIsAnonymous(fip))
5423
0
                        {
5424
                            /* should only be called on a Exif directory */
5425
                            /* when exifFields[] is active */
5426
0
                            (void)TIFFFetchSubjectDistance(tif, dp);
5427
0
                        }
5428
0
                        else
5429
0
                        {
5430
0
                            (void)TIFFFetchNormalTag(tif, dp, TRUE);
5431
0
                        }
5432
0
                        break;
5433
0
                    default:
5434
0
                        (void)TIFFFetchNormalTag(tif, dp, TRUE);
5435
0
                        break;
5436
0
                }
5437
0
            } /*-- if (!dp->tdir_ignore) */
5438
0
        }
5439
0
    }
5440
    /* Evaluate final IFD data size. */
5441
0
    CalcFinalIFDdatasizeReading(tif, dircount);
5442
5443
    /* To be able to return from SubIFD or custom-IFD to main-IFD */
5444
0
    tif->tif_setdirectory_force_absolute = TRUE;
5445
0
    if (dir)
5446
0
        _TIFFfreeExt(tif, dir);
5447
0
    return 1;
5448
0
}
5449
5450
/*
5451
 * EXIF is important special case of custom IFD, so we have a special
5452
 * function to read it.
5453
 */
5454
int TIFFReadEXIFDirectory(TIFF *tif, toff_t diroff)
5455
0
{
5456
0
    return TIFFReadCustomDirectory(tif, diroff, _TIFFGetExifFields());
5457
0
}
5458
5459
/*
5460
 *--: EXIF-GPS custom directory reading as another special case of custom IFD.
5461
 */
5462
int TIFFReadGPSDirectory(TIFF *tif, toff_t diroff)
5463
0
{
5464
0
    return TIFFReadCustomDirectory(tif, diroff, _TIFFGetGpsFields());
5465
0
}
5466
5467
static int EstimateStripByteCounts(TIFF *tif, TIFFDirEntry *dir,
5468
                                   uint16_t dircount)
5469
247
{
5470
247
    static const char module[] = "EstimateStripByteCounts";
5471
247
    uint64_t allocsize;
5472
247
    uint64_t filesize;
5473
5474
247
    TIFFDirEntry *dp;
5475
247
    TIFFDirectory *td = &tif->tif_dir;
5476
247
    uint32_t strip;
5477
5478
    /* Do not try to load stripbytecount as we will compute it */
5479
247
    if (!_TIFFFillStrilesInternal(tif, 0))
5480
0
        return -1;
5481
5482
247
    allocsize = (uint64_t)td->td_nstrips * sizeof(uint64_t);
5483
247
    filesize = 0;
5484
247
    if (allocsize > 100 * 1024 * 1024)
5485
0
    {
5486
        /* Before allocating a huge amount of memory for corrupted files, check
5487
         * if size of requested memory is not greater than file size. */
5488
0
        filesize = TIFFGetFileSize(tif);
5489
0
        if (allocsize > filesize)
5490
0
        {
5491
0
            TIFFWarningExtR(
5492
0
                tif, module,
5493
0
                "Requested memory size for StripByteCounts of %" PRIu64
5494
0
                " is greater than filesize %" PRIu64 ". Memory not allocated",
5495
0
                allocsize, filesize);
5496
0
            return -1;
5497
0
        }
5498
0
    }
5499
5500
247
    if (td->td_stripbytecount_p)
5501
46
        _TIFFfreeExt(tif, td->td_stripbytecount_p);
5502
247
    td->td_stripbytecount_p = (uint64_t *)_TIFFCheckMalloc(
5503
247
        tif, td->td_nstrips, sizeof(uint64_t), "for \"StripByteCounts\" array");
5504
247
    if (td->td_stripbytecount_p == NULL)
5505
0
        return -1;
5506
5507
247
    if (td->td_compression != COMPRESSION_NONE)
5508
92
    {
5509
92
        uint64_t space;
5510
92
        uint16_t n;
5511
92
        if (!(tif->tif_flags & TIFF_BIGTIFF))
5512
84
            space = sizeof(TIFFHeaderClassic) + 2 + dircount * 12 + 4;
5513
8
        else
5514
8
            space = sizeof(TIFFHeaderBig) + 8 + dircount * 20 + 8;
5515
        /* calculate amount of space used by indirect values */
5516
806
        for (dp = dir, n = dircount; n > 0; n--, dp++)
5517
719
        {
5518
719
            uint32_t typewidth;
5519
719
            uint64_t datasize;
5520
719
            typewidth = TIFFDataWidth((TIFFDataType)dp->tdir_type);
5521
719
            if (typewidth == 0)
5522
5
            {
5523
5
                TIFFErrorExtR(
5524
5
                    tif, module,
5525
5
                    "Cannot determine size of unknown tag type %" PRIu16,
5526
5
                    dp->tdir_type);
5527
5
                return -1;
5528
5
            }
5529
714
            if (dp->tdir_count > UINT64_MAX / typewidth)
5530
0
                return -1;
5531
714
            datasize = (uint64_t)typewidth * dp->tdir_count;
5532
714
            if (!(tif->tif_flags & TIFF_BIGTIFF))
5533
685
            {
5534
685
                if (datasize <= 4)
5535
499
                    datasize = 0;
5536
685
            }
5537
29
            else
5538
29
            {
5539
29
                if (datasize <= 8)
5540
21
                    datasize = 0;
5541
29
            }
5542
714
            if (space > UINT64_MAX - datasize)
5543
0
                return -1;
5544
714
            space += datasize;
5545
714
        }
5546
87
        if (filesize == 0)
5547
87
            filesize = TIFFGetFileSize(tif);
5548
87
        if (filesize < space)
5549
            /* we should perhaps return in error ? */
5550
69
            space = filesize;
5551
18
        else
5552
18
            space = filesize - space;
5553
87
        if (td->td_planarconfig == PLANARCONFIG_SEPARATE)
5554
5
            space /= td->td_samplesperpixel;
5555
208
        for (strip = 0; strip < td->td_nstrips; strip++)
5556
121
            td->td_stripbytecount_p[strip] = space;
5557
        /*
5558
         * This gross hack handles the case were the offset to
5559
         * the last strip is past the place where we think the strip
5560
         * should begin.  Since a strip of data must be contiguous,
5561
         * it's safe to assume that we've overestimated the amount
5562
         * of data in the strip and trim this number back accordingly.
5563
         */
5564
87
        strip--;
5565
87
        if (td->td_stripoffset_p[strip] >
5566
87
            UINT64_MAX - td->td_stripbytecount_p[strip])
5567
1
            return -1;
5568
86
        if (td->td_stripoffset_p[strip] + td->td_stripbytecount_p[strip] >
5569
86
            filesize)
5570
47
        {
5571
47
            if (td->td_stripoffset_p[strip] >= filesize)
5572
25
            {
5573
                /* Not sure what we should in that case... */
5574
25
                td->td_stripbytecount_p[strip] = 0;
5575
25
            }
5576
22
            else
5577
22
            {
5578
22
                td->td_stripbytecount_p[strip] =
5579
22
                    filesize - td->td_stripoffset_p[strip];
5580
22
            }
5581
47
        }
5582
86
    }
5583
155
    else if (isTiled(tif))
5584
21
    {
5585
21
        uint64_t bytespertile = TIFFTileSize64(tif);
5586
5587
4.40k
        for (strip = 0; strip < td->td_nstrips; strip++)
5588
4.38k
            td->td_stripbytecount_p[strip] = bytespertile;
5589
21
    }
5590
134
    else
5591
134
    {
5592
134
        uint64_t rowbytes = TIFFScanlineSize64(tif);
5593
134
        uint32_t rowsperstrip = td->td_imagelength / td->td_stripsperimage;
5594
494k
        for (strip = 0; strip < td->td_nstrips; strip++)
5595
493k
        {
5596
493k
            if (rowbytes > 0 && rowsperstrip > UINT64_MAX / rowbytes)
5597
1
                return -1;
5598
493k
            td->td_stripbytecount_p[strip] = rowbytes * rowsperstrip;
5599
493k
        }
5600
134
    }
5601
240
    TIFFSetFieldBit(tif, FIELD_STRIPBYTECOUNTS);
5602
240
    if (!TIFFFieldSet(tif, FIELD_ROWSPERSTRIP))
5603
179
        td->td_rowsperstrip = td->td_imagelength;
5604
240
    return 1;
5605
247
}
5606
5607
static void MissingRequired(TIFF *tif, const char *tagname)
5608
232
{
5609
232
    static const char module[] = "MissingRequired";
5610
5611
232
    TIFFErrorExtR(tif, module,
5612
232
                  "TIFF directory is missing required \"%s\" field", tagname);
5613
232
}
5614
5615
static unsigned long hashFuncOffsetToNumber(const void *elt)
5616
77.1k
{
5617
77.1k
    const TIFFOffsetAndDirNumber *offsetAndDirNumber =
5618
77.1k
        (const TIFFOffsetAndDirNumber *)elt;
5619
77.1k
    const uint32_t hash = (uint32_t)(offsetAndDirNumber->offset >> 32) ^
5620
77.1k
                          ((uint32_t)offsetAndDirNumber->offset & 0xFFFFFFFFU);
5621
77.1k
    return hash;
5622
77.1k
}
5623
5624
static bool equalFuncOffsetToNumber(const void *elt1, const void *elt2)
5625
18.5k
{
5626
18.5k
    const TIFFOffsetAndDirNumber *offsetAndDirNumber1 =
5627
18.5k
        (const TIFFOffsetAndDirNumber *)elt1;
5628
18.5k
    const TIFFOffsetAndDirNumber *offsetAndDirNumber2 =
5629
18.5k
        (const TIFFOffsetAndDirNumber *)elt2;
5630
18.5k
    return offsetAndDirNumber1->offset == offsetAndDirNumber2->offset;
5631
18.5k
}
5632
5633
static unsigned long hashFuncNumberToOffset(const void *elt)
5634
58.6k
{
5635
58.6k
    const TIFFOffsetAndDirNumber *offsetAndDirNumber =
5636
58.6k
        (const TIFFOffsetAndDirNumber *)elt;
5637
58.6k
    return offsetAndDirNumber->dirNumber;
5638
58.6k
}
5639
5640
static bool equalFuncNumberToOffset(const void *elt1, const void *elt2)
5641
0
{
5642
0
    const TIFFOffsetAndDirNumber *offsetAndDirNumber1 =
5643
0
        (const TIFFOffsetAndDirNumber *)elt1;
5644
0
    const TIFFOffsetAndDirNumber *offsetAndDirNumber2 =
5645
0
        (const TIFFOffsetAndDirNumber *)elt2;
5646
0
    return offsetAndDirNumber1->dirNumber == offsetAndDirNumber2->dirNumber;
5647
0
}
5648
5649
/*
5650
 * Check the directory number and offset against the list of already seen
5651
 * directory numbers and offsets. This is a trick to prevent IFD looping.
5652
 * The one can create TIFF file with looped directory pointers. We will
5653
 * maintain a list of already seen directories and check every IFD offset
5654
 * and its IFD number against that list. However, the offset of an IFD number
5655
 * can change - e.g. when writing updates to file.
5656
 * Returns 1 if all is ok; 0 if last directory or IFD loop is encountered,
5657
 * or an error has occurred.
5658
 */
5659
int _TIFFCheckDirNumberAndOffset(TIFF *tif, tdir_t dirn, uint64_t diroff)
5660
38.0k
{
5661
38.0k
    TIFFOffsetAndDirNumber entry;
5662
38.0k
    TIFFOffsetAndDirNumber *entryPtr;
5663
38.0k
    TIFFOffsetAndDirNumber *foundEntry;
5664
38.0k
    if (diroff == 0) /* no more directories */
5665
0
        return 0;
5666
5667
38.0k
    if (tif->tif_map_dir_offset_to_number == NULL)
5668
19.4k
    {
5669
19.4k
        tif->tif_map_dir_offset_to_number = TIFFHashSetNew(
5670
19.4k
            hashFuncOffsetToNumber, equalFuncOffsetToNumber, free);
5671
19.4k
        if (tif->tif_map_dir_offset_to_number == NULL)
5672
0
        {
5673
0
            TIFFErrorExtR(tif, "_TIFFCheckDirNumberAndOffset",
5674
0
                          "Not enough memory");
5675
0
            return 1;
5676
0
        }
5677
19.4k
    }
5678
5679
38.0k
    if (tif->tif_map_dir_number_to_offset == NULL)
5680
19.4k
    {
5681
        /* No free callback for this map, as it shares the same items as
5682
         * tif->tif_map_dir_offset_to_number. */
5683
19.4k
        tif->tif_map_dir_number_to_offset = TIFFHashSetNew(
5684
19.4k
            hashFuncNumberToOffset, equalFuncNumberToOffset, NULL);
5685
19.4k
        if (tif->tif_map_dir_number_to_offset == NULL)
5686
0
        {
5687
0
            TIFFErrorExtR(tif, "_TIFFCheckDirNumberAndOffset",
5688
0
                          "Not enough memory");
5689
0
            return 1;
5690
0
        }
5691
19.4k
    }
5692
5693
    /* Check if offset is already in the list:
5694
     * - yes: check, if offset is at the same IFD number - if not, it is an IFD
5695
     * loop
5696
     * -  no: add to list or update offset at that IFD number
5697
     */
5698
38.0k
    entry.offset = diroff;
5699
38.0k
    entry.dirNumber = dirn;
5700
5701
38.0k
    foundEntry =
5702
38.0k
        (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5703
38.0k
            tif->tif_map_dir_offset_to_number, &entry);
5704
38.0k
    if (foundEntry)
5705
18.5k
    {
5706
18.5k
        if (foundEntry->dirNumber == dirn)
5707
18.5k
        {
5708
18.5k
            return 1;
5709
18.5k
        }
5710
0
        else
5711
0
        {
5712
0
            TIFFWarningExtR(tif, "_TIFFCheckDirNumberAndOffset",
5713
0
                            "TIFF directory %d has IFD looping to directory %u "
5714
0
                            "at offset 0x%" PRIx64 " (%" PRIu64 ")",
5715
0
                            (int)dirn - 1, foundEntry->dirNumber, diroff,
5716
0
                            diroff);
5717
0
            return 0;
5718
0
        }
5719
18.5k
    }
5720
5721
    /* Check if offset of an IFD has been changed and update offset of that IFD
5722
     * number. */
5723
19.5k
    foundEntry = (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5724
19.5k
        tif->tif_map_dir_number_to_offset, &entry);
5725
19.5k
    if (foundEntry)
5726
0
    {
5727
0
        if (foundEntry->offset != diroff)
5728
0
        {
5729
0
            TIFFOffsetAndDirNumber entryOld;
5730
0
            TIFFOffsetAndDirNumber *foundEntryOld;
5731
0
            entryOld.offset = foundEntry->offset;
5732
0
            entryOld.dirNumber = dirn;
5733
            /* We must remove first from tif_map_dir_number_to_offset as the */
5734
            /* entry is owned (and thus freed) by */
5735
            /* tif_map_dir_offset_to_number */
5736
0
            foundEntryOld =
5737
0
                (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5738
0
                    tif->tif_map_dir_number_to_offset, &entryOld);
5739
0
            if (foundEntryOld)
5740
0
            {
5741
0
                TIFFHashSetRemove(tif->tif_map_dir_number_to_offset,
5742
0
                                  foundEntryOld);
5743
0
            }
5744
0
            foundEntryOld = (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5745
0
                tif->tif_map_dir_offset_to_number, &entryOld);
5746
0
            if (foundEntryOld)
5747
0
            {
5748
0
                TIFFHashSetRemove(tif->tif_map_dir_offset_to_number,
5749
0
                                  foundEntryOld);
5750
0
            }
5751
5752
0
            entryPtr = (TIFFOffsetAndDirNumber *)malloc(
5753
0
                sizeof(TIFFOffsetAndDirNumber));
5754
0
            if (entryPtr == NULL)
5755
0
            {
5756
0
                return 0;
5757
0
            }
5758
5759
            /* Add IFD offset and dirn to IFD directory list */
5760
0
            *entryPtr = entry;
5761
5762
0
            if (!TIFFHashSetInsert(tif->tif_map_dir_offset_to_number, entryPtr))
5763
0
            {
5764
0
                TIFFErrorExtR(
5765
0
                    tif, "_TIFFCheckDirNumberAndOffset",
5766
0
                    "Insertion in tif_map_dir_offset_to_number failed");
5767
0
                return 0;
5768
0
            }
5769
0
            if (!TIFFHashSetInsert(tif->tif_map_dir_number_to_offset, entryPtr))
5770
0
            {
5771
0
                TIFFErrorExtR(
5772
0
                    tif, "_TIFFCheckDirNumberAndOffset",
5773
0
                    "Insertion in tif_map_dir_number_to_offset failed");
5774
0
                return 0;
5775
0
            }
5776
0
        }
5777
0
        return 1;
5778
0
    }
5779
5780
    /* Arbitrary (hopefully big enough) limit */
5781
19.5k
    if (TIFFHashSetSize(tif->tif_map_dir_offset_to_number) >=
5782
19.5k
        TIFF_MAX_DIR_COUNT)
5783
0
    {
5784
0
        TIFFErrorExtR(tif, "_TIFFCheckDirNumberAndOffset",
5785
0
                      "Cannot handle more than %u TIFF directories",
5786
0
                      TIFF_MAX_DIR_COUNT);
5787
0
        return 0;
5788
0
    }
5789
5790
19.5k
    entryPtr =
5791
19.5k
        (TIFFOffsetAndDirNumber *)malloc(sizeof(TIFFOffsetAndDirNumber));
5792
19.5k
    if (entryPtr == NULL)
5793
0
    {
5794
0
        TIFFErrorExtR(tif, "_TIFFCheckDirNumberAndOffset",
5795
0
                      "malloc(sizeof(TIFFOffsetAndDirNumber)) failed");
5796
0
        return 0;
5797
0
    }
5798
5799
    /* Add IFD offset and dirn to IFD directory list */
5800
19.5k
    *entryPtr = entry;
5801
5802
19.5k
    if (!TIFFHashSetInsert(tif->tif_map_dir_offset_to_number, entryPtr))
5803
0
    {
5804
0
        TIFFErrorExtR(tif, "_TIFFCheckDirNumberAndOffset",
5805
0
                      "Insertion in tif_map_dir_offset_to_number failed");
5806
0
        return 0;
5807
0
    }
5808
19.5k
    if (!TIFFHashSetInsert(tif->tif_map_dir_number_to_offset, entryPtr))
5809
0
    {
5810
0
        TIFFErrorExtR(tif, "_TIFFCheckDirNumberAndOffset",
5811
0
                      "Insertion in tif_map_dir_number_to_offset failed");
5812
0
        return 0;
5813
0
    }
5814
5815
19.5k
    return 1;
5816
19.5k
} /* --- _TIFFCheckDirNumberAndOffset() ---*/
5817
5818
/*
5819
 * Retrieve the matching IFD directory number of a given IFD offset
5820
 * from the list of directories already seen.
5821
 * Returns 1 if the offset was in the list and the directory number
5822
 * can be returned.
5823
 * Otherwise returns 0 or if an error occurred.
5824
 */
5825
int _TIFFGetDirNumberFromOffset(TIFF *tif, uint64_t diroff, tdir_t *dirn)
5826
0
{
5827
0
    TIFFOffsetAndDirNumber entry;
5828
0
    TIFFOffsetAndDirNumber *foundEntry;
5829
0
    if (diroff == 0) /* no more directories */
5830
0
        return 0;
5831
5832
    /* Check if offset is already in the list and return matching directory
5833
     * number. Otherwise update IFD list using TIFFNumberOfDirectories() and
5834
     * search again in IFD list.
5835
     */
5836
0
    if (tif->tif_map_dir_offset_to_number == NULL)
5837
0
        return 0;
5838
0
    entry.offset = diroff;
5839
0
    entry.dirNumber = 0; /* not used */
5840
5841
0
    foundEntry =
5842
0
        (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5843
0
            tif->tif_map_dir_offset_to_number, &entry);
5844
0
    if (foundEntry)
5845
0
    {
5846
0
        *dirn = foundEntry->dirNumber;
5847
0
        return 1;
5848
0
    }
5849
5850
    /* This updates the directory list for all main-IFDs in the file. */
5851
0
    TIFFNumberOfDirectories(tif);
5852
5853
0
    foundEntry = (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5854
0
        tif->tif_map_dir_offset_to_number, &entry);
5855
0
    if (foundEntry)
5856
0
    {
5857
0
        *dirn = foundEntry->dirNumber;
5858
0
        return 1;
5859
0
    }
5860
5861
0
    return 0;
5862
0
} /*--- _TIFFGetDirNumberFromOffset() ---*/
5863
5864
/*
5865
 * Retrieve the matching IFD directory offset of a given IFD number
5866
 * from the list of directories already seen.
5867
 * Returns 1 if the offset was in the list of already seen IFDs and the
5868
 * directory offset can be returned. The directory list is not updated.
5869
 * Otherwise returns 0 or if an error occurred.
5870
 */
5871
int _TIFFGetOffsetFromDirNumber(TIFF *tif, tdir_t dirn, uint64_t *diroff)
5872
0
{
5873
0
    TIFFOffsetAndDirNumber entry;
5874
0
    TIFFOffsetAndDirNumber *foundEntry;
5875
5876
0
    if (tif->tif_map_dir_number_to_offset == NULL)
5877
0
        return 0;
5878
0
    entry.offset = 0; /* not used */
5879
0
    entry.dirNumber = dirn;
5880
5881
0
    foundEntry =
5882
0
        (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5883
0
            tif->tif_map_dir_number_to_offset, &entry);
5884
0
    if (foundEntry)
5885
0
    {
5886
0
        *diroff = foundEntry->offset;
5887
0
        return 1;
5888
0
    }
5889
5890
0
    return 0;
5891
0
} /*--- _TIFFGetOffsetFromDirNumber() ---*/
5892
5893
/*
5894
 * Remove an entry from the directory list of already seen directories
5895
 * by directory offset.
5896
 * If an entry is to be removed from the list, it is also okay if the entry
5897
 * is not in the list or the list does not exist.
5898
 */
5899
int _TIFFRemoveEntryFromDirectoryListByOffset(TIFF *tif, uint64_t diroff)
5900
0
{
5901
0
    TIFFOffsetAndDirNumber entryOld;
5902
0
    TIFFOffsetAndDirNumber *foundEntryOldOff;
5903
0
    if (tif->tif_map_dir_offset_to_number == NULL)
5904
0
        return 1;
5905
5906
0
    entryOld.offset = diroff;
5907
0
    entryOld.dirNumber = 0;
5908
    /* We must remove first from tif_map_dir_number_to_offset as the
5909
     * entry is owned (and thus freed) by tif_map_dir_offset_to_number.
5910
     * However, we need firstly to find the directory number from offset. */
5911
5912
0
    foundEntryOldOff =
5913
0
        (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5914
0
            tif->tif_map_dir_offset_to_number, &entryOld);
5915
0
    if (foundEntryOldOff)
5916
0
    {
5917
0
        entryOld.dirNumber = foundEntryOldOff->dirNumber;
5918
0
        if (tif->tif_map_dir_number_to_offset != NULL)
5919
0
        {
5920
0
            TIFFOffsetAndDirNumber *foundEntryOldDir =
5921
0
                (TIFFOffsetAndDirNumber *)TIFFHashSetLookup(
5922
0
                    tif->tif_map_dir_number_to_offset, &entryOld);
5923
0
            if (foundEntryOldDir)
5924
0
            {
5925
0
                TIFFHashSetRemove(tif->tif_map_dir_number_to_offset,
5926
0
                                  foundEntryOldDir);
5927
0
                TIFFHashSetRemove(tif->tif_map_dir_offset_to_number,
5928
0
                                  foundEntryOldOff);
5929
0
                return 1;
5930
0
            }
5931
0
        }
5932
0
        else
5933
0
        {
5934
0
            TIFFErrorExtR(tif, "_TIFFRemoveEntryFromDirectoryListByOffset",
5935
0
                          "Unexpectedly tif_map_dir_number_to_offset is "
5936
0
                          "missing but tif_map_dir_offset_to_number exists.");
5937
0
            return 0;
5938
0
        }
5939
0
    }
5940
0
    return 1;
5941
0
} /*--- _TIFFRemoveEntryFromDirectoryListByOffset() ---*/
5942
5943
/*
5944
 * Check the count field of a directory entry against a known value.  The
5945
 * caller is expected to skip/ignore the tag if there is a mismatch.
5946
 */
5947
static int CheckDirCount(TIFF *tif, TIFFDirEntry *dir, uint32_t count)
5948
0
{
5949
0
    if ((uint64_t)count > dir->tdir_count)
5950
0
    {
5951
0
        const TIFFField *fip = TIFFFieldWithTag(tif, dir->tdir_tag);
5952
0
        TIFFWarningExtR(tif, tif->tif_name,
5953
0
                        "incorrect count for field \"%s\" (%" PRIu64
5954
0
                        ", expecting %" PRIu32 "); tag ignored",
5955
0
                        fip ? fip->field_name : "unknown tagname",
5956
0
                        dir->tdir_count, count);
5957
0
        return (0);
5958
0
    }
5959
0
    else if ((uint64_t)count < dir->tdir_count)
5960
0
    {
5961
0
        const TIFFField *fip = TIFFFieldWithTag(tif, dir->tdir_tag);
5962
0
        TIFFWarningExtR(tif, tif->tif_name,
5963
0
                        "incorrect count for field \"%s\" (%" PRIu64
5964
0
                        ", expecting %" PRIu32 "); tag trimmed",
5965
0
                        fip ? fip->field_name : "unknown tagname",
5966
0
                        dir->tdir_count, count);
5967
0
        dir->tdir_count = count;
5968
0
        return (1);
5969
0
    }
5970
0
    return (1);
5971
0
}
5972
5973
/*
5974
 * Read IFD structure from the specified offset. If the pointer to
5975
 * nextdiroff variable has been specified, read it too. Function returns a
5976
 * number of fields in the directory or 0 if failed.
5977
 */
5978
static uint16_t TIFFFetchDirectory(TIFF *tif, uint64_t diroff,
5979
                                   TIFFDirEntry **pdir, uint64_t *nextdiroff)
5980
988
{
5981
988
    static const char module[] = "TIFFFetchDirectory";
5982
5983
988
    void *origdir;
5984
988
    uint16_t dircount16;
5985
988
    uint32_t dirsize;
5986
988
    TIFFDirEntry *dir;
5987
988
    uint8_t *ma;
5988
988
    TIFFDirEntry *mb;
5989
988
    uint16_t n;
5990
988
    uint64_t filesize;
5991
988
    uint64_t allocsize;
5992
988
    assert(pdir);
5993
5994
988
    tif->tif_diroff = diroff;
5995
988
    if (nextdiroff)
5996
988
        *nextdiroff = 0;
5997
988
    if (!isMapped(tif))
5998
988
    {
5999
988
        if (!SeekOK(tif, tif->tif_diroff))
6000
100
        {
6001
100
            TIFFErrorExtR(tif, module,
6002
100
                          "%s: Seek error accessing TIFF directory",
6003
100
                          tif->tif_name);
6004
100
            return 0;
6005
100
        }
6006
888
        if (!(tif->tif_flags & TIFF_BIGTIFF))
6007
825
        {
6008
825
            if (!ReadOK(tif, &dircount16, sizeof(uint16_t)))
6009
1
            {
6010
1
                TIFFErrorExtR(tif, module,
6011
1
                              "%s: Can not read TIFF directory count",
6012
1
                              tif->tif_name);
6013
1
                return 0;
6014
1
            }
6015
824
            if (tif->tif_flags & TIFF_SWAB)
6016
126
                TIFFSwabShort(&dircount16);
6017
824
            if (dircount16 > 4096)
6018
3
            {
6019
3
                TIFFErrorExtR(tif, module,
6020
3
                              "Sanity check on directory count failed, this is "
6021
3
                              "probably not a valid IFD offset");
6022
3
                return 0;
6023
3
            }
6024
821
            dirsize = 12;
6025
821
        }
6026
63
        else
6027
63
        {
6028
63
            uint64_t dircount64;
6029
63
            if (!ReadOK(tif, &dircount64, sizeof(uint64_t)))
6030
1
            {
6031
1
                TIFFErrorExtR(tif, module,
6032
1
                              "%s: Can not read TIFF directory count",
6033
1
                              tif->tif_name);
6034
1
                return 0;
6035
1
            }
6036
62
            if (tif->tif_flags & TIFF_SWAB)
6037
9
                TIFFSwabLong8(&dircount64);
6038
62
            if (dircount64 > 4096)
6039
2
            {
6040
2
                TIFFErrorExtR(tif, module,
6041
2
                              "Sanity check on directory count failed, this is "
6042
2
                              "probably not a valid IFD offset");
6043
2
                return 0;
6044
2
            }
6045
60
            dircount16 = (uint16_t)dircount64;
6046
60
            dirsize = 20;
6047
60
        }
6048
881
        origdir = _TIFFCheckMalloc(tif, dircount16, dirsize,
6049
881
                                   "to read TIFF directory");
6050
881
        if (origdir == NULL)
6051
3
            return 0;
6052
878
        if (!ReadOK(tif, origdir, (tmsize_t)(dircount16 * dirsize)))
6053
19
        {
6054
19
            TIFFErrorExtR(tif, module, "%.100s: Can not read TIFF directory",
6055
19
                          tif->tif_name);
6056
19
            _TIFFfreeExt(tif, origdir);
6057
19
            return 0;
6058
19
        }
6059
        /*
6060
         * Read offset to next directory for sequential scans if
6061
         * needed.
6062
         */
6063
859
        if (nextdiroff)
6064
859
        {
6065
859
            if (!(tif->tif_flags & TIFF_BIGTIFF))
6066
801
            {
6067
801
                uint32_t nextdiroff32;
6068
801
                if (!ReadOK(tif, &nextdiroff32, sizeof(uint32_t)))
6069
239
                    nextdiroff32 = 0;
6070
801
                if (tif->tif_flags & TIFF_SWAB)
6071
123
                    TIFFSwabLong(&nextdiroff32);
6072
801
                *nextdiroff = nextdiroff32;
6073
801
            }
6074
58
            else
6075
58
            {
6076
58
                if (!ReadOK(tif, nextdiroff, sizeof(uint64_t)))
6077
40
                    *nextdiroff = 0;
6078
58
                if (tif->tif_flags & TIFF_SWAB)
6079
9
                    TIFFSwabLong8(nextdiroff);
6080
58
            }
6081
859
        }
6082
859
    }
6083
0
    else
6084
0
    {
6085
0
        tmsize_t m;
6086
0
        tmsize_t off;
6087
0
        if (tif->tif_diroff > (uint64_t)INT64_MAX)
6088
0
        {
6089
0
            TIFFErrorExtR(tif, module, "Can not read TIFF directory count");
6090
0
            return (0);
6091
0
        }
6092
0
        off = (tmsize_t)tif->tif_diroff;
6093
6094
        /*
6095
         * Check for integer overflow when validating the dir_off,
6096
         * otherwise a very high offset may cause an OOB read and
6097
         * crash the client. Make two comparisons instead of
6098
         *
6099
         *  off + sizeof(uint16_t) > tif->tif_size
6100
         *
6101
         * to avoid overflow.
6102
         */
6103
0
        if (!(tif->tif_flags & TIFF_BIGTIFF))
6104
0
        {
6105
0
            m = off + sizeof(uint16_t);
6106
0
            if ((m < off) || (m < (tmsize_t)sizeof(uint16_t)) ||
6107
0
                (m > tif->tif_size))
6108
0
            {
6109
0
                TIFFErrorExtR(tif, module, "Can not read TIFF directory count");
6110
0
                return 0;
6111
0
            }
6112
0
            else
6113
0
            {
6114
0
                _TIFFmemcpy(&dircount16, tif->tif_base + off, sizeof(uint16_t));
6115
0
            }
6116
0
            off += sizeof(uint16_t);
6117
0
            if (tif->tif_flags & TIFF_SWAB)
6118
0
                TIFFSwabShort(&dircount16);
6119
0
            if (dircount16 > 4096)
6120
0
            {
6121
0
                TIFFErrorExtR(tif, module,
6122
0
                              "Sanity check on directory count failed, this is "
6123
0
                              "probably not a valid IFD offset");
6124
0
                return 0;
6125
0
            }
6126
0
            dirsize = 12;
6127
0
        }
6128
0
        else
6129
0
        {
6130
0
            uint64_t dircount64;
6131
0
            m = off + sizeof(uint64_t);
6132
0
            if ((m < off) || (m < (tmsize_t)sizeof(uint64_t)) ||
6133
0
                (m > tif->tif_size))
6134
0
            {
6135
0
                TIFFErrorExtR(tif, module, "Can not read TIFF directory count");
6136
0
                return 0;
6137
0
            }
6138
0
            else
6139
0
            {
6140
0
                _TIFFmemcpy(&dircount64, tif->tif_base + off, sizeof(uint64_t));
6141
0
            }
6142
0
            off += sizeof(uint64_t);
6143
0
            if (tif->tif_flags & TIFF_SWAB)
6144
0
                TIFFSwabLong8(&dircount64);
6145
0
            if (dircount64 > 4096)
6146
0
            {
6147
0
                TIFFErrorExtR(tif, module,
6148
0
                              "Sanity check on directory count failed, this is "
6149
0
                              "probably not a valid IFD offset");
6150
0
                return 0;
6151
0
            }
6152
0
            dircount16 = (uint16_t)dircount64;
6153
0
            dirsize = 20;
6154
0
        }
6155
0
        if (dircount16 == 0)
6156
0
        {
6157
0
            TIFFErrorExtR(tif, module,
6158
0
                          "Sanity check on directory count failed, zero tag "
6159
0
                          "directories not supported");
6160
0
            return 0;
6161
0
        }
6162
        /* Before allocating a huge amount of memory for corrupted files, check
6163
         * if size of requested memory is not greater than file size. */
6164
0
        filesize = TIFFGetFileSize(tif);
6165
0
        allocsize = (uint64_t)dircount16 * dirsize;
6166
0
        if (allocsize > filesize)
6167
0
        {
6168
0
            TIFFWarningExtR(
6169
0
                tif, module,
6170
0
                "Requested memory size for TIFF directory of %" PRIu64
6171
0
                " is greater than filesize %" PRIu64
6172
0
                ". Memory not allocated, TIFF directory not read",
6173
0
                allocsize, filesize);
6174
0
            return 0;
6175
0
        }
6176
0
        origdir = _TIFFCheckMalloc(tif, dircount16, dirsize,
6177
0
                                   "to read TIFF directory");
6178
0
        if (origdir == NULL)
6179
0
            return 0;
6180
0
        m = off + dircount16 * dirsize;
6181
0
        if ((m < off) || (m < (tmsize_t)(dircount16 * dirsize)) ||
6182
0
            (m > tif->tif_size))
6183
0
        {
6184
0
            TIFFErrorExtR(tif, module, "Can not read TIFF directory");
6185
0
            _TIFFfreeExt(tif, origdir);
6186
0
            return 0;
6187
0
        }
6188
0
        else
6189
0
        {
6190
0
            _TIFFmemcpy(origdir, tif->tif_base + off, dircount16 * dirsize);
6191
0
        }
6192
0
        if (nextdiroff)
6193
0
        {
6194
0
            off += dircount16 * dirsize;
6195
0
            if (!(tif->tif_flags & TIFF_BIGTIFF))
6196
0
            {
6197
0
                uint32_t nextdiroff32;
6198
0
                m = off + sizeof(uint32_t);
6199
0
                if ((m < off) || (m < (tmsize_t)sizeof(uint32_t)) ||
6200
0
                    (m > tif->tif_size))
6201
0
                    nextdiroff32 = 0;
6202
0
                else
6203
0
                    _TIFFmemcpy(&nextdiroff32, tif->tif_base + off,
6204
0
                                sizeof(uint32_t));
6205
0
                if (tif->tif_flags & TIFF_SWAB)
6206
0
                    TIFFSwabLong(&nextdiroff32);
6207
0
                *nextdiroff = nextdiroff32;
6208
0
            }
6209
0
            else
6210
0
            {
6211
0
                m = off + sizeof(uint64_t);
6212
0
                if ((m < off) || (m < (tmsize_t)sizeof(uint64_t)) ||
6213
0
                    (m > tif->tif_size))
6214
0
                    *nextdiroff = 0;
6215
0
                else
6216
0
                    _TIFFmemcpy(nextdiroff, tif->tif_base + off,
6217
0
                                sizeof(uint64_t));
6218
0
                if (tif->tif_flags & TIFF_SWAB)
6219
0
                    TIFFSwabLong8(nextdiroff);
6220
0
            }
6221
0
        }
6222
0
    }
6223
    /* No check against filesize needed here because "dir" should have same size
6224
     * than "origdir" checked above. */
6225
859
    dir = (TIFFDirEntry *)_TIFFCheckMalloc(
6226
859
        tif, dircount16, sizeof(TIFFDirEntry), "to read TIFF directory");
6227
859
    if (dir == 0)
6228
0
    {
6229
0
        _TIFFfreeExt(tif, origdir);
6230
0
        return 0;
6231
0
    }
6232
859
    ma = (uint8_t *)origdir;
6233
859
    mb = dir;
6234
45.3k
    for (n = 0; n < dircount16; n++)
6235
44.4k
    {
6236
44.4k
        mb->tdir_ignore = FALSE;
6237
44.4k
        if (tif->tif_flags & TIFF_SWAB)
6238
2.31k
            TIFFSwabShort((uint16_t *)ma);
6239
44.4k
        mb->tdir_tag = *(uint16_t *)ma;
6240
44.4k
        ma += sizeof(uint16_t);
6241
44.4k
        if (tif->tif_flags & TIFF_SWAB)
6242
2.31k
            TIFFSwabShort((uint16_t *)ma);
6243
44.4k
        mb->tdir_type = *(uint16_t *)ma;
6244
44.4k
        ma += sizeof(uint16_t);
6245
44.4k
        if (!(tif->tif_flags & TIFF_BIGTIFF))
6246
44.1k
        {
6247
44.1k
            if (tif->tif_flags & TIFF_SWAB)
6248
2.17k
                TIFFSwabLong((uint32_t *)ma);
6249
44.1k
            mb->tdir_count = (uint64_t)(*(uint32_t *)ma);
6250
44.1k
            ma += sizeof(uint32_t);
6251
44.1k
            mb->tdir_offset.toff_long8 = 0;
6252
44.1k
            *(uint32_t *)(&mb->tdir_offset) = *(uint32_t *)ma;
6253
44.1k
            ma += sizeof(uint32_t);
6254
44.1k
        }
6255
323
        else
6256
323
        {
6257
323
            if (tif->tif_flags & TIFF_SWAB)
6258
135
                TIFFSwabLong8((uint64_t *)ma);
6259
323
            mb->tdir_count = TIFFReadUInt64(ma);
6260
323
            ma += sizeof(uint64_t);
6261
323
            mb->tdir_offset.toff_long8 = TIFFReadUInt64(ma);
6262
323
            ma += sizeof(uint64_t);
6263
323
        }
6264
44.4k
        mb++;
6265
44.4k
    }
6266
859
    _TIFFfreeExt(tif, origdir);
6267
859
    *pdir = dir;
6268
859
    return dircount16;
6269
859
}
6270
6271
/*
6272
 * Fetch a tag that is not handled by special case code.
6273
 */
6274
static int TIFFFetchNormalTag(TIFF *tif, TIFFDirEntry *dp, int recover)
6275
18.9k
{
6276
18.9k
    static const char module[] = "TIFFFetchNormalTag";
6277
18.9k
    enum TIFFReadDirEntryErr err;
6278
18.9k
    uint32_t fii;
6279
18.9k
    const TIFFField *fip = NULL;
6280
18.9k
    TIFFReadDirectoryFindFieldInfo(tif, dp->tdir_tag, &fii);
6281
18.9k
    if (fii == FAILED_FII)
6282
0
    {
6283
0
        TIFFErrorExtR(tif, "TIFFFetchNormalTag",
6284
0
                      "No definition found for tag %" PRIu16, dp->tdir_tag);
6285
0
        return 0;
6286
0
    }
6287
18.9k
    fip = tif->tif_fields[fii];
6288
18.9k
    assert(fip != NULL); /* should not happen */
6289
18.9k
    assert(fip->set_field_type !=
6290
18.9k
           TIFF_SETGET_OTHER); /* if so, we shouldn't arrive here but deal with
6291
                                  this in specialized code */
6292
18.9k
    assert(fip->set_field_type !=
6293
18.9k
           TIFF_SETGET_INT); /* if so, we shouldn't arrive here as this is only
6294
                                the case for pseudo-tags */
6295
18.9k
    err = TIFFReadDirEntryErrOk;
6296
18.9k
    switch (fip->set_field_type)
6297
18.9k
    {
6298
12.8k
        case TIFF_SETGET_UNDEFINED:
6299
12.8k
            TIFFErrorExtR(
6300
12.8k
                tif, "TIFFFetchNormalTag",
6301
12.8k
                "Defined set_field_type of custom tag %u (%s) is "
6302
12.8k
                "TIFF_SETGET_UNDEFINED and thus tag is not read from file",
6303
12.8k
                fip->field_tag, fip->field_name);
6304
12.8k
            break;
6305
236
        case TIFF_SETGET_ASCII:
6306
236
        {
6307
236
            uint8_t *data;
6308
236
            assert(fip->field_passcount == 0);
6309
236
            err = TIFFReadDirEntryByteArray(tif, dp, &data);
6310
236
            if (err == TIFFReadDirEntryErrOk)
6311
91
            {
6312
91
                size_t mb = 0;
6313
91
                int n;
6314
91
                if (data != NULL)
6315
89
                {
6316
89
                    if (dp->tdir_count > 0 && data[dp->tdir_count - 1] == 0)
6317
58
                    {
6318
                        /* optimization: if data is known to be 0 terminated, we
6319
                         * can use strlen() */
6320
58
                        mb = strlen((const char *)data);
6321
58
                    }
6322
31
                    else
6323
31
                    {
6324
                        /* general case. equivalent to non-portable */
6325
                        /* mb = strnlen((const char*)data,
6326
                         * (uint32_t)dp->tdir_count); */
6327
31
                        uint8_t *ma = data;
6328
278
                        while (mb < (uint32_t)dp->tdir_count)
6329
259
                        {
6330
259
                            if (*ma == 0)
6331
12
                                break;
6332
247
                            ma++;
6333
247
                            mb++;
6334
247
                        }
6335
31
                    }
6336
89
                }
6337
91
                if (!EvaluateIFDdatasizeReading(tif, dp))
6338
0
                {
6339
0
                    if (data != NULL)
6340
0
                        _TIFFfreeExt(tif, data);
6341
0
                    return (0);
6342
0
                }
6343
91
                if (mb + 1 < (uint32_t)dp->tdir_count)
6344
35
                    TIFFWarningExtR(
6345
35
                        tif, module,
6346
35
                        "ASCII value for tag \"%s\" contains null byte in "
6347
35
                        "value; value incorrectly truncated during reading due "
6348
35
                        "to implementation limitations",
6349
35
                        fip->field_name);
6350
56
                else if (mb + 1 > (uint32_t)dp->tdir_count)
6351
21
                {
6352
21
                    uint8_t *o;
6353
21
                    TIFFWarningExtR(tif, module,
6354
21
                                    "ASCII value for tag \"%s\" does not end "
6355
21
                                    "in null byte. Forcing it to be null",
6356
21
                                    fip->field_name);
6357
                    /* TIFFReadDirEntryArrayWithLimit() ensures this can't be
6358
                     * larger than MAX_SIZE_TAG_DATA */
6359
21
                    assert((uint32_t)dp->tdir_count + 1 == dp->tdir_count + 1);
6360
21
                    o =
6361
21
                        _TIFFmallocExt(tif, (uint32_t)dp->tdir_count + 1);
6362
21
                    if (o == NULL)
6363
0
                    {
6364
0
                        if (data != NULL)
6365
0
                            _TIFFfreeExt(tif, data);
6366
0
                        return (0);
6367
0
                    }
6368
21
                    if (dp->tdir_count > 0)
6369
19
                    {
6370
19
                        _TIFFmemcpy(o, data, (uint32_t)dp->tdir_count);
6371
19
                    }
6372
21
                    o[(uint32_t)dp->tdir_count] = 0;
6373
21
                    if (data != 0)
6374
19
                        _TIFFfreeExt(tif, data);
6375
21
                    data = o;
6376
21
                }
6377
91
                n = TIFFSetField(tif, dp->tdir_tag, data);
6378
91
                if (data != 0)
6379
91
                    _TIFFfreeExt(tif, data);
6380
91
                if (!n)
6381
0
                    return (0);
6382
91
            }
6383
236
        }
6384
236
        break;
6385
236
        case TIFF_SETGET_UINT8:
6386
31
        {
6387
31
            uint8_t data = 0;
6388
31
            assert(fip->field_readcount == 1);
6389
31
            assert(fip->field_passcount == 0);
6390
31
            err = TIFFReadDirEntryByte(tif, dp, &data);
6391
31
            if (err == TIFFReadDirEntryErrOk)
6392
9
            {
6393
9
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6394
0
                    return (0);
6395
9
            }
6396
31
        }
6397
31
        break;
6398
31
        case TIFF_SETGET_SINT8:
6399
0
        {
6400
0
            int8_t data = 0;
6401
0
            assert(fip->field_readcount == 1);
6402
0
            assert(fip->field_passcount == 0);
6403
0
            err = TIFFReadDirEntrySbyte(tif, dp, &data);
6404
0
            if (err == TIFFReadDirEntryErrOk)
6405
0
            {
6406
0
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6407
0
                    return (0);
6408
0
            }
6409
0
        }
6410
0
        break;
6411
1.06k
        case TIFF_SETGET_UINT16:
6412
1.06k
        {
6413
1.06k
            uint16_t data;
6414
1.06k
            assert(fip->field_readcount == 1);
6415
1.06k
            assert(fip->field_passcount == 0);
6416
1.06k
            err = TIFFReadDirEntryShort(tif, dp, &data);
6417
1.06k
            if (err == TIFFReadDirEntryErrOk)
6418
933
            {
6419
933
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6420
13
                    return (0);
6421
933
            }
6422
1.06k
        }
6423
1.05k
        break;
6424
1.05k
        case TIFF_SETGET_SINT16:
6425
0
        {
6426
0
            int16_t data;
6427
0
            assert(fip->field_readcount == 1);
6428
0
            assert(fip->field_passcount == 0);
6429
0
            err = TIFFReadDirEntrySshort(tif, dp, &data);
6430
0
            if (err == TIFFReadDirEntryErrOk)
6431
0
            {
6432
0
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6433
0
                    return (0);
6434
0
            }
6435
0
        }
6436
0
        break;
6437
1.70k
        case TIFF_SETGET_UINT32:
6438
1.70k
        {
6439
1.70k
            uint32_t data;
6440
1.70k
            assert(fip->field_readcount == 1);
6441
1.70k
            assert(fip->field_passcount == 0);
6442
1.70k
            err = TIFFReadDirEntryLong(tif, dp, &data);
6443
1.70k
            if (err == TIFFReadDirEntryErrOk)
6444
1.64k
            {
6445
1.64k
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6446
1
                    return (0);
6447
1.64k
            }
6448
1.70k
        }
6449
1.70k
        break;
6450
1.70k
        case TIFF_SETGET_SINT32:
6451
0
        {
6452
0
            int32_t data;
6453
0
            assert(fip->field_readcount == 1);
6454
0
            assert(fip->field_passcount == 0);
6455
0
            err = TIFFReadDirEntrySlong(tif, dp, &data);
6456
0
            if (err == TIFFReadDirEntryErrOk)
6457
0
            {
6458
0
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6459
0
                    return (0);
6460
0
            }
6461
0
        }
6462
0
        break;
6463
0
        case TIFF_SETGET_UINT64:
6464
0
        {
6465
0
            uint64_t data;
6466
0
            assert(fip->field_readcount == 1);
6467
0
            assert(fip->field_passcount == 0);
6468
0
            err = TIFFReadDirEntryLong8(tif, dp, &data);
6469
0
            if (err == TIFFReadDirEntryErrOk)
6470
0
            {
6471
0
                if (!EvaluateIFDdatasizeReading(tif, dp))
6472
0
                    return 0;
6473
0
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6474
0
                    return (0);
6475
0
            }
6476
0
        }
6477
0
        break;
6478
0
        case TIFF_SETGET_SINT64:
6479
0
        {
6480
0
            int64_t data;
6481
0
            assert(fip->field_readcount == 1);
6482
0
            assert(fip->field_passcount == 0);
6483
0
            err = TIFFReadDirEntrySlong8(tif, dp, &data);
6484
0
            if (err == TIFFReadDirEntryErrOk)
6485
0
            {
6486
0
                if (!EvaluateIFDdatasizeReading(tif, dp))
6487
0
                    return 0;
6488
0
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6489
0
                    return (0);
6490
0
            }
6491
0
        }
6492
0
        break;
6493
190
        case TIFF_SETGET_FLOAT:
6494
190
        {
6495
190
            float data;
6496
190
            assert(fip->field_readcount == 1);
6497
190
            assert(fip->field_passcount == 0);
6498
190
            err = TIFFReadDirEntryFloat(tif, dp, &data);
6499
190
            if (err == TIFFReadDirEntryErrOk)
6500
100
            {
6501
100
                if (!EvaluateIFDdatasizeReading(tif, dp))
6502
0
                    return 0;
6503
100
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6504
2
                    return (0);
6505
100
            }
6506
190
        }
6507
188
        break;
6508
188
        case TIFF_SETGET_DOUBLE:
6509
10
        {
6510
10
            double data;
6511
10
            assert(fip->field_readcount == 1);
6512
10
            assert(fip->field_passcount == 0);
6513
10
            err = TIFFReadDirEntryDouble(tif, dp, &data);
6514
10
            if (err == TIFFReadDirEntryErrOk)
6515
5
            {
6516
5
                if (!EvaluateIFDdatasizeReading(tif, dp))
6517
0
                    return 0;
6518
5
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6519
0
                    return (0);
6520
5
            }
6521
10
        }
6522
10
        break;
6523
40
        case TIFF_SETGET_IFD8:
6524
40
        {
6525
40
            uint64_t data;
6526
40
            assert(fip->field_readcount == 1);
6527
40
            assert(fip->field_passcount == 0);
6528
40
            err = TIFFReadDirEntryIfd8(tif, dp, &data);
6529
40
            if (err == TIFFReadDirEntryErrOk)
6530
26
            {
6531
26
                if (!EvaluateIFDdatasizeReading(tif, dp))
6532
0
                    return 0;
6533
26
                if (!TIFFSetField(tif, dp->tdir_tag, data))
6534
6
                    return (0);
6535
26
            }
6536
40
        }
6537
34
        break;
6538
96
        case TIFF_SETGET_UINT16_PAIR:
6539
96
        {
6540
96
            uint16_t *data;
6541
96
            assert(fip->field_readcount == 2);
6542
96
            assert(fip->field_passcount == 0);
6543
96
            if (dp->tdir_count != 2)
6544
26
            {
6545
26
                TIFFWarningExtR(tif, module,
6546
26
                                "incorrect count for field \"%s\", expected 2, "
6547
26
                                "got %" PRIu64,
6548
26
                                fip->field_name, dp->tdir_count);
6549
26
                return (0);
6550
26
            }
6551
70
            err = TIFFReadDirEntryShortArray(tif, dp, &data);
6552
70
            if (err == TIFFReadDirEntryErrOk)
6553
60
            {
6554
60
                int m;
6555
60
                assert(data); /* avoid CLang static Analyzer false positive */
6556
60
                m = TIFFSetField(tif, dp->tdir_tag, data[0], data[1]);
6557
60
                _TIFFfreeExt(tif, data);
6558
60
                if (!m)
6559
0
                    return (0);
6560
60
            }
6561
70
        }
6562
70
        break;
6563
70
        case TIFF_SETGET_C0_UINT8:
6564
17
        {
6565
17
            uint8_t *data;
6566
17
            assert(fip->field_readcount >= 1);
6567
17
            assert(fip->field_passcount == 0);
6568
17
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6569
9
            {
6570
9
                TIFFWarningExtR(tif, module,
6571
9
                                "incorrect count for field \"%s\", expected "
6572
9
                                "%d, got %" PRIu64,
6573
9
                                fip->field_name, (int)fip->field_readcount,
6574
9
                                dp->tdir_count);
6575
9
                return (0);
6576
9
            }
6577
8
            else
6578
8
            {
6579
8
                err = TIFFReadDirEntryByteArray(tif, dp, &data);
6580
8
                if (err == TIFFReadDirEntryErrOk)
6581
8
                {
6582
8
                    int m;
6583
8
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6584
0
                    {
6585
0
                        if (data != 0)
6586
0
                            _TIFFfreeExt(tif, data);
6587
0
                        return 0;
6588
0
                    }
6589
8
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6590
8
                    if (data != 0)
6591
8
                        _TIFFfreeExt(tif, data);
6592
8
                    if (!m)
6593
0
                        return (0);
6594
8
                }
6595
8
            }
6596
17
        }
6597
8
        break;
6598
8
        case TIFF_SETGET_C0_SINT8:
6599
0
        {
6600
0
            int8_t *data;
6601
0
            assert(fip->field_readcount >= 1);
6602
0
            assert(fip->field_passcount == 0);
6603
0
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6604
0
            {
6605
0
                TIFFWarningExtR(tif, module,
6606
0
                                "incorrect count for field \"%s\", expected "
6607
0
                                "%d, got %" PRIu64,
6608
0
                                fip->field_name, (int)fip->field_readcount,
6609
0
                                dp->tdir_count);
6610
0
                return (0);
6611
0
            }
6612
0
            else
6613
0
            {
6614
0
                err = TIFFReadDirEntrySbyteArray(tif, dp, &data);
6615
0
                if (err == TIFFReadDirEntryErrOk)
6616
0
                {
6617
0
                    int m;
6618
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6619
0
                    {
6620
0
                        if (data != 0)
6621
0
                            _TIFFfreeExt(tif, data);
6622
0
                        return 0;
6623
0
                    }
6624
0
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6625
0
                    if (data != 0)
6626
0
                        _TIFFfreeExt(tif, data);
6627
0
                    if (!m)
6628
0
                        return (0);
6629
0
                }
6630
0
            }
6631
0
        }
6632
0
        break;
6633
11
        case TIFF_SETGET_C0_UINT16:
6634
11
        {
6635
11
            uint16_t *data;
6636
11
            assert(fip->field_readcount >= 1);
6637
11
            assert(fip->field_passcount == 0);
6638
11
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6639
11
            {
6640
11
                TIFFWarningExtR(tif, module,
6641
11
                                "incorrect count for field \"%s\", expected "
6642
11
                                "%d, got %" PRIu64,
6643
11
                                fip->field_name, (int)fip->field_readcount,
6644
11
                                dp->tdir_count);
6645
11
                return (0);
6646
11
            }
6647
0
            else
6648
0
            {
6649
0
                err = TIFFReadDirEntryShortArray(tif, dp, &data);
6650
0
                if (err == TIFFReadDirEntryErrOk)
6651
0
                {
6652
0
                    int m;
6653
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6654
0
                    {
6655
0
                        if (data != 0)
6656
0
                            _TIFFfreeExt(tif, data);
6657
0
                        return 0;
6658
0
                    }
6659
0
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6660
0
                    if (data != 0)
6661
0
                        _TIFFfreeExt(tif, data);
6662
0
                    if (!m)
6663
0
                        return (0);
6664
0
                }
6665
0
            }
6666
11
        }
6667
0
        break;
6668
0
        case TIFF_SETGET_C0_SINT16:
6669
0
        {
6670
0
            int16_t *data;
6671
0
            assert(fip->field_readcount >= 1);
6672
0
            assert(fip->field_passcount == 0);
6673
0
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6674
0
            {
6675
0
                TIFFWarningExtR(tif, module,
6676
0
                                "incorrect count for field \"%s\", expected "
6677
0
                                "%d, got %" PRIu64,
6678
0
                                fip->field_name, (int)fip->field_readcount,
6679
0
                                dp->tdir_count);
6680
0
                return (0);
6681
0
            }
6682
0
            else
6683
0
            {
6684
0
                err = TIFFReadDirEntrySshortArray(tif, dp, &data);
6685
0
                if (err == TIFFReadDirEntryErrOk)
6686
0
                {
6687
0
                    int m;
6688
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6689
0
                    {
6690
0
                        if (data != 0)
6691
0
                            _TIFFfreeExt(tif, data);
6692
0
                        return 0;
6693
0
                    }
6694
0
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6695
0
                    if (data != 0)
6696
0
                        _TIFFfreeExt(tif, data);
6697
0
                    if (!m)
6698
0
                        return (0);
6699
0
                }
6700
0
            }
6701
0
        }
6702
0
        break;
6703
14
        case TIFF_SETGET_C0_UINT32:
6704
14
        {
6705
14
            uint32_t *data;
6706
14
            assert(fip->field_readcount >= 1);
6707
14
            assert(fip->field_passcount == 0);
6708
14
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6709
5
            {
6710
5
                TIFFWarningExtR(tif, module,
6711
5
                                "incorrect count for field \"%s\", expected "
6712
5
                                "%d, got %" PRIu64,
6713
5
                                fip->field_name, (int)fip->field_readcount,
6714
5
                                dp->tdir_count);
6715
5
                return (0);
6716
5
            }
6717
9
            else
6718
9
            {
6719
9
                err = TIFFReadDirEntryLongArray(tif, dp, &data);
6720
9
                if (err == TIFFReadDirEntryErrOk)
6721
3
                {
6722
3
                    int m;
6723
3
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6724
0
                    {
6725
0
                        if (data != 0)
6726
0
                            _TIFFfreeExt(tif, data);
6727
0
                        return 0;
6728
0
                    }
6729
3
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6730
3
                    if (data != 0)
6731
3
                        _TIFFfreeExt(tif, data);
6732
3
                    if (!m)
6733
0
                        return (0);
6734
3
                }
6735
9
            }
6736
14
        }
6737
9
        break;
6738
9
        case TIFF_SETGET_C0_SINT32:
6739
0
        {
6740
0
            int32_t *data;
6741
0
            assert(fip->field_readcount >= 1);
6742
0
            assert(fip->field_passcount == 0);
6743
0
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6744
0
            {
6745
0
                TIFFWarningExtR(tif, module,
6746
0
                                "incorrect count for field \"%s\", expected "
6747
0
                                "%d, got %" PRIu64,
6748
0
                                fip->field_name, (int)fip->field_readcount,
6749
0
                                dp->tdir_count);
6750
0
                return (0);
6751
0
            }
6752
0
            else
6753
0
            {
6754
0
                err = TIFFReadDirEntrySlongArray(tif, dp, &data);
6755
0
                if (err == TIFFReadDirEntryErrOk)
6756
0
                {
6757
0
                    int m;
6758
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6759
0
                    {
6760
0
                        if (data != 0)
6761
0
                            _TIFFfreeExt(tif, data);
6762
0
                        return 0;
6763
0
                    }
6764
0
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6765
0
                    if (data != 0)
6766
0
                        _TIFFfreeExt(tif, data);
6767
0
                    if (!m)
6768
0
                        return (0);
6769
0
                }
6770
0
            }
6771
0
        }
6772
0
        break;
6773
0
        case TIFF_SETGET_C0_UINT64:
6774
0
        {
6775
0
            uint64_t *data;
6776
0
            assert(fip->field_readcount >= 1);
6777
0
            assert(fip->field_passcount == 0);
6778
0
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6779
0
            {
6780
0
                TIFFWarningExtR(tif, module,
6781
0
                                "incorrect count for field \"%s\", expected "
6782
0
                                "%d, got %" PRIu64,
6783
0
                                fip->field_name, (int)fip->field_readcount,
6784
0
                                dp->tdir_count);
6785
0
                return (0);
6786
0
            }
6787
0
            else
6788
0
            {
6789
0
                err = TIFFReadDirEntryLong8Array(tif, dp, &data);
6790
0
                if (err == TIFFReadDirEntryErrOk)
6791
0
                {
6792
0
                    int m;
6793
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6794
0
                    {
6795
0
                        if (data != 0)
6796
0
                            _TIFFfreeExt(tif, data);
6797
0
                        return 0;
6798
0
                    }
6799
0
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6800
0
                    if (data != 0)
6801
0
                        _TIFFfreeExt(tif, data);
6802
0
                    if (!m)
6803
0
                        return (0);
6804
0
                }
6805
0
            }
6806
0
        }
6807
0
        break;
6808
0
        case TIFF_SETGET_C0_SINT64:
6809
0
        {
6810
0
            int64_t *data;
6811
0
            assert(fip->field_readcount >= 1);
6812
0
            assert(fip->field_passcount == 0);
6813
0
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6814
0
            {
6815
0
                TIFFWarningExtR(tif, module,
6816
0
                                "incorrect count for field \"%s\", expected "
6817
0
                                "%d, got %" PRIu64,
6818
0
                                fip->field_name, (int)fip->field_readcount,
6819
0
                                dp->tdir_count);
6820
0
                return (0);
6821
0
            }
6822
0
            else
6823
0
            {
6824
0
                err = TIFFReadDirEntrySlong8Array(tif, dp, &data);
6825
0
                if (err == TIFFReadDirEntryErrOk)
6826
0
                {
6827
0
                    int m;
6828
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6829
0
                    {
6830
0
                        if (data != 0)
6831
0
                            _TIFFfreeExt(tif, data);
6832
0
                        return 0;
6833
0
                    }
6834
0
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6835
0
                    if (data != 0)
6836
0
                        _TIFFfreeExt(tif, data);
6837
0
                    if (!m)
6838
0
                        return (0);
6839
0
                }
6840
0
            }
6841
0
        }
6842
0
        break;
6843
69
        case TIFF_SETGET_C0_FLOAT:
6844
69
        {
6845
69
            float *data;
6846
69
            assert(fip->field_readcount >= 1);
6847
69
            assert(fip->field_passcount == 0);
6848
69
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6849
20
            {
6850
20
                TIFFWarningExtR(tif, module,
6851
20
                                "incorrect count for field \"%s\", expected "
6852
20
                                "%d, got %" PRIu64,
6853
20
                                fip->field_name, (int)fip->field_readcount,
6854
20
                                dp->tdir_count);
6855
20
                return (0);
6856
20
            }
6857
49
            else
6858
49
            {
6859
49
                err = TIFFReadDirEntryFloatArray(tif, dp, &data);
6860
49
                if (err == TIFFReadDirEntryErrOk)
6861
34
                {
6862
34
                    int m;
6863
34
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6864
0
                    {
6865
0
                        if (data != 0)
6866
0
                            _TIFFfreeExt(tif, data);
6867
0
                        return 0;
6868
0
                    }
6869
34
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6870
34
                    if (data != 0)
6871
34
                        _TIFFfreeExt(tif, data);
6872
34
                    if (!m)
6873
0
                        return (0);
6874
34
                }
6875
49
            }
6876
69
        }
6877
49
        break;
6878
        /*--: Rational2Double: Extend for Double Arrays and Rational-Arrays read
6879
         * into Double-Arrays. */
6880
49
        case TIFF_SETGET_C0_DOUBLE:
6881
0
        {
6882
0
            double *data;
6883
0
            assert(fip->field_readcount >= 1);
6884
0
            assert(fip->field_passcount == 0);
6885
0
            if (dp->tdir_count != (uint64_t)fip->field_readcount)
6886
0
            {
6887
0
                TIFFWarningExtR(tif, module,
6888
0
                                "incorrect count for field \"%s\", expected "
6889
0
                                "%d, got %" PRIu64,
6890
0
                                fip->field_name, (int)fip->field_readcount,
6891
0
                                dp->tdir_count);
6892
0
                return (0);
6893
0
            }
6894
0
            else
6895
0
            {
6896
0
                err = TIFFReadDirEntryDoubleArray(tif, dp, &data);
6897
0
                if (err == TIFFReadDirEntryErrOk)
6898
0
                {
6899
0
                    int m;
6900
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6901
0
                    {
6902
0
                        if (data != 0)
6903
0
                            _TIFFfreeExt(tif, data);
6904
0
                        return 0;
6905
0
                    }
6906
0
                    m = TIFFSetField(tif, dp->tdir_tag, data);
6907
0
                    if (data != 0)
6908
0
                        _TIFFfreeExt(tif, data);
6909
0
                    if (!m)
6910
0
                        return (0);
6911
0
                }
6912
0
            }
6913
0
        }
6914
0
        break;
6915
11
        case TIFF_SETGET_C16_ASCII:
6916
11
        {
6917
11
            uint8_t *data;
6918
11
            assert(fip->field_readcount == TIFF_VARIABLE);
6919
11
            assert(fip->field_passcount == 1);
6920
11
            if (dp->tdir_count > 0xFFFF)
6921
1
                err = TIFFReadDirEntryErrCount;
6922
10
            else
6923
10
            {
6924
10
                err = TIFFReadDirEntryByteArray(tif, dp, &data);
6925
10
                if (err == TIFFReadDirEntryErrOk)
6926
5
                {
6927
5
                    int m;
6928
5
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6929
0
                    {
6930
0
                        if (data != 0)
6931
0
                            _TIFFfreeExt(tif, data);
6932
0
                        return 0;
6933
0
                    }
6934
5
                    if (data != 0 && dp->tdir_count > 0 &&
6935
4
                        data[dp->tdir_count - 1] != '\0')
6936
3
                    {
6937
3
                        uint8_t *o;
6938
3
                        TIFFWarningExtR(tif, module,
6939
3
                                        "ASCII value for ASCII array tag "
6940
3
                                        "\"%s\" does not end in null "
6941
3
                                        "byte. Forcing it to be null",
6942
3
                                        fip->field_name);
6943
                        /* Enlarge buffer and add terminating null. */
6944
3
                        o =
6945
3
                            _TIFFmallocExt(tif, (uint32_t)dp->tdir_count + 1);
6946
3
                        if (o == NULL)
6947
0
                        {
6948
0
                            if (data != NULL)
6949
0
                                _TIFFfreeExt(tif, data);
6950
0
                            return (0);
6951
0
                        }
6952
3
                        if (dp->tdir_count > 0)
6953
3
                        {
6954
3
                            _TIFFmemcpy(o, data, (uint32_t)dp->tdir_count);
6955
3
                        }
6956
3
                        o[(uint32_t)dp->tdir_count] = 0;
6957
3
                        dp->tdir_count++; /* Increment for added null. */
6958
3
                        if (data != 0)
6959
3
                            _TIFFfreeExt(tif, data);
6960
3
                        data = o;
6961
3
                    }
6962
5
                    m = TIFFSetField(tif, dp->tdir_tag,
6963
5
                                     (uint16_t)(dp->tdir_count), data);
6964
5
                    if (data != 0)
6965
4
                        _TIFFfreeExt(tif, data);
6966
5
                    if (!m)
6967
1
                        return (0);
6968
5
                }
6969
10
            }
6970
11
        }
6971
10
        break;
6972
13
        case TIFF_SETGET_C16_UINT8:
6973
13
        {
6974
13
            uint8_t *data;
6975
13
            assert(fip->field_readcount == TIFF_VARIABLE);
6976
13
            assert(fip->field_passcount == 1);
6977
13
            if (dp->tdir_count > 0xFFFF)
6978
9
                err = TIFFReadDirEntryErrCount;
6979
4
            else
6980
4
            {
6981
4
                err = TIFFReadDirEntryByteArray(tif, dp, &data);
6982
4
                if (err == TIFFReadDirEntryErrOk)
6983
0
                {
6984
0
                    int m;
6985
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
6986
0
                    {
6987
0
                        if (data != 0)
6988
0
                            _TIFFfreeExt(tif, data);
6989
0
                        return 0;
6990
0
                    }
6991
0
                    m = TIFFSetField(tif, dp->tdir_tag,
6992
0
                                     (uint16_t)(dp->tdir_count), data);
6993
0
                    if (data != 0)
6994
0
                        _TIFFfreeExt(tif, data);
6995
0
                    if (!m)
6996
0
                        return (0);
6997
0
                }
6998
4
            }
6999
13
        }
7000
13
        break;
7001
13
        case TIFF_SETGET_C16_SINT8:
7002
0
        {
7003
0
            int8_t *data;
7004
0
            assert(fip->field_readcount == TIFF_VARIABLE);
7005
0
            assert(fip->field_passcount == 1);
7006
0
            if (dp->tdir_count > 0xFFFF)
7007
0
                err = TIFFReadDirEntryErrCount;
7008
0
            else
7009
0
            {
7010
0
                err = TIFFReadDirEntrySbyteArray(tif, dp, &data);
7011
0
                if (err == TIFFReadDirEntryErrOk)
7012
0
                {
7013
0
                    int m;
7014
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7015
0
                    {
7016
0
                        if (data != 0)
7017
0
                            _TIFFfreeExt(tif, data);
7018
0
                        return 0;
7019
0
                    }
7020
0
                    m = TIFFSetField(tif, dp->tdir_tag,
7021
0
                                     (uint16_t)(dp->tdir_count), data);
7022
0
                    if (data != 0)
7023
0
                        _TIFFfreeExt(tif, data);
7024
0
                    if (!m)
7025
0
                        return (0);
7026
0
                }
7027
0
            }
7028
0
        }
7029
0
        break;
7030
59
        case TIFF_SETGET_C16_UINT16:
7031
59
        {
7032
59
            uint16_t *data;
7033
59
            assert(fip->field_readcount == TIFF_VARIABLE);
7034
59
            assert(fip->field_passcount == 1);
7035
59
            if (dp->tdir_count > 0xFFFF)
7036
3
                err = TIFFReadDirEntryErrCount;
7037
56
            else
7038
56
            {
7039
56
                err = TIFFReadDirEntryShortArray(tif, dp, &data);
7040
56
                if (err == TIFFReadDirEntryErrOk)
7041
38
                {
7042
38
                    int m;
7043
38
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7044
0
                    {
7045
0
                        if (data != 0)
7046
0
                            _TIFFfreeExt(tif, data);
7047
0
                        return 0;
7048
0
                    }
7049
38
                    m = TIFFSetField(tif, dp->tdir_tag,
7050
38
                                     (uint16_t)(dp->tdir_count), data);
7051
38
                    if (data != 0)
7052
34
                        _TIFFfreeExt(tif, data);
7053
38
                    if (!m)
7054
3
                        return (0);
7055
38
                }
7056
56
            }
7057
59
        }
7058
56
        break;
7059
56
        case TIFF_SETGET_C16_SINT16:
7060
0
        {
7061
0
            int16_t *data;
7062
0
            assert(fip->field_readcount == TIFF_VARIABLE);
7063
0
            assert(fip->field_passcount == 1);
7064
0
            if (dp->tdir_count > 0xFFFF)
7065
0
                err = TIFFReadDirEntryErrCount;
7066
0
            else
7067
0
            {
7068
0
                err = TIFFReadDirEntrySshortArray(tif, dp, &data);
7069
0
                if (err == TIFFReadDirEntryErrOk)
7070
0
                {
7071
0
                    int m;
7072
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7073
0
                    {
7074
0
                        if (data != 0)
7075
0
                            _TIFFfreeExt(tif, data);
7076
0
                        return 0;
7077
0
                    }
7078
0
                    m = TIFFSetField(tif, dp->tdir_tag,
7079
0
                                     (uint16_t)(dp->tdir_count), data);
7080
0
                    if (data != 0)
7081
0
                        _TIFFfreeExt(tif, data);
7082
0
                    if (!m)
7083
0
                        return (0);
7084
0
                }
7085
0
            }
7086
0
        }
7087
0
        break;
7088
77
        case TIFF_SETGET_C16_UINT32:
7089
77
        {
7090
77
            uint32_t *data;
7091
77
            assert(fip->field_readcount == TIFF_VARIABLE);
7092
77
            assert(fip->field_passcount == 1);
7093
77
            if (dp->tdir_count > 0xFFFF)
7094
4
                err = TIFFReadDirEntryErrCount;
7095
73
            else
7096
73
            {
7097
73
                err = TIFFReadDirEntryLongArray(tif, dp, &data);
7098
73
                if (err == TIFFReadDirEntryErrOk)
7099
23
                {
7100
23
                    int m;
7101
23
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7102
0
                    {
7103
0
                        if (data != 0)
7104
0
                            _TIFFfreeExt(tif, data);
7105
0
                        return 0;
7106
0
                    }
7107
23
                    m = TIFFSetField(tif, dp->tdir_tag,
7108
23
                                     (uint16_t)(dp->tdir_count), data);
7109
23
                    if (data != 0)
7110
18
                        _TIFFfreeExt(tif, data);
7111
23
                    if (!m)
7112
5
                        return (0);
7113
23
                }
7114
73
            }
7115
77
        }
7116
72
        break;
7117
72
        case TIFF_SETGET_C16_SINT32:
7118
0
        {
7119
0
            int32_t *data;
7120
0
            assert(fip->field_readcount == TIFF_VARIABLE);
7121
0
            assert(fip->field_passcount == 1);
7122
0
            if (dp->tdir_count > 0xFFFF)
7123
0
                err = TIFFReadDirEntryErrCount;
7124
0
            else
7125
0
            {
7126
0
                err = TIFFReadDirEntrySlongArray(tif, dp, &data);
7127
0
                if (err == TIFFReadDirEntryErrOk)
7128
0
                {
7129
0
                    int m;
7130
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7131
0
                    {
7132
0
                        if (data != 0)
7133
0
                            _TIFFfreeExt(tif, data);
7134
0
                        return 0;
7135
0
                    }
7136
0
                    m = TIFFSetField(tif, dp->tdir_tag,
7137
0
                                     (uint16_t)(dp->tdir_count), data);
7138
0
                    if (data != 0)
7139
0
                        _TIFFfreeExt(tif, data);
7140
0
                    if (!m)
7141
0
                        return (0);
7142
0
                }
7143
0
            }
7144
0
        }
7145
0
        break;
7146
0
        case TIFF_SETGET_C16_UINT64:
7147
0
        {
7148
0
            uint64_t *data;
7149
0
            assert(fip->field_readcount == TIFF_VARIABLE);
7150
0
            assert(fip->field_passcount == 1);
7151
0
            if (dp->tdir_count > 0xFFFF)
7152
0
                err = TIFFReadDirEntryErrCount;
7153
0
            else
7154
0
            {
7155
0
                err = TIFFReadDirEntryLong8Array(tif, dp, &data);
7156
0
                if (err == TIFFReadDirEntryErrOk)
7157
0
                {
7158
0
                    int m;
7159
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7160
0
                    {
7161
0
                        if (data != 0)
7162
0
                            _TIFFfreeExt(tif, data);
7163
0
                        return 0;
7164
0
                    }
7165
0
                    m = TIFFSetField(tif, dp->tdir_tag,
7166
0
                                     (uint16_t)(dp->tdir_count), data);
7167
0
                    if (data != 0)
7168
0
                        _TIFFfreeExt(tif, data);
7169
0
                    if (!m)
7170
0
                        return (0);
7171
0
                }
7172
0
            }
7173
0
        }
7174
0
        break;
7175
0
        case TIFF_SETGET_C16_SINT64:
7176
0
        {
7177
0
            int64_t *data;
7178
0
            assert(fip->field_readcount == TIFF_VARIABLE);
7179
0
            assert(fip->field_passcount == 1);
7180
0
            if (dp->tdir_count > 0xFFFF)
7181
0
                err = TIFFReadDirEntryErrCount;
7182
0
            else
7183
0
            {
7184
0
                err = TIFFReadDirEntrySlong8Array(tif, dp, &data);
7185
0
                if (err == TIFFReadDirEntryErrOk)
7186
0
                {
7187
0
                    int m;
7188
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7189
0
                    {
7190
0
                        if (data != 0)
7191
0
                            _TIFFfreeExt(tif, data);
7192
0
                        return 0;
7193
0
                    }
7194
0
                    m = TIFFSetField(tif, dp->tdir_tag,
7195
0
                                     (uint16_t)(dp->tdir_count), data);
7196
0
                    if (data != 0)
7197
0
                        _TIFFfreeExt(tif, data);
7198
0
                    if (!m)
7199
0
                        return (0);
7200
0
                }
7201
0
            }
7202
0
        }
7203
0
        break;
7204
90
        case TIFF_SETGET_C16_FLOAT:
7205
90
        {
7206
90
            float *data;
7207
90
            assert(fip->field_readcount == TIFF_VARIABLE);
7208
90
            assert(fip->field_passcount == 1);
7209
90
            if (dp->tdir_count > 0xFFFF)
7210
20
                err = TIFFReadDirEntryErrCount;
7211
70
            else
7212
70
            {
7213
70
                err = TIFFReadDirEntryFloatArray(tif, dp, &data);
7214
70
                if (err == TIFFReadDirEntryErrOk)
7215
44
                {
7216
44
                    int m;
7217
44
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7218
0
                    {
7219
0
                        if (data != 0)
7220
0
                            _TIFFfreeExt(tif, data);
7221
0
                        return 0;
7222
0
                    }
7223
44
                    m = TIFFSetField(tif, dp->tdir_tag,
7224
44
                                     (uint16_t)(dp->tdir_count), data);
7225
44
                    if (data != 0)
7226
41
                        _TIFFfreeExt(tif, data);
7227
44
                    if (!m)
7228
3
                        return (0);
7229
44
                }
7230
70
            }
7231
90
        }
7232
87
        break;
7233
87
        case TIFF_SETGET_C16_DOUBLE:
7234
0
        {
7235
0
            double *data;
7236
0
            assert(fip->field_readcount == TIFF_VARIABLE);
7237
0
            assert(fip->field_passcount == 1);
7238
0
            if (dp->tdir_count > 0xFFFF)
7239
0
                err = TIFFReadDirEntryErrCount;
7240
0
            else
7241
0
            {
7242
0
                err = TIFFReadDirEntryDoubleArray(tif, dp, &data);
7243
0
                if (err == TIFFReadDirEntryErrOk)
7244
0
                {
7245
0
                    int m;
7246
0
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7247
0
                    {
7248
0
                        if (data != 0)
7249
0
                            _TIFFfreeExt(tif, data);
7250
0
                        return 0;
7251
0
                    }
7252
0
                    m = TIFFSetField(tif, dp->tdir_tag,
7253
0
                                     (uint16_t)(dp->tdir_count), data);
7254
0
                    if (data != 0)
7255
0
                        _TIFFfreeExt(tif, data);
7256
0
                    if (!m)
7257
0
                        return (0);
7258
0
                }
7259
0
            }
7260
0
        }
7261
0
        break;
7262
28
        case TIFF_SETGET_C16_IFD8:
7263
28
        {
7264
28
            uint64_t *data;
7265
28
            assert(fip->field_readcount == TIFF_VARIABLE);
7266
28
            assert(fip->field_passcount == 1);
7267
28
            if (dp->tdir_count > 0xFFFF)
7268
8
                err = TIFFReadDirEntryErrCount;
7269
20
            else
7270
20
            {
7271
20
                err = TIFFReadDirEntryIfd8Array(tif, dp, &data);
7272
20
                if (err == TIFFReadDirEntryErrOk)
7273
15
                {
7274
15
                    int m;
7275
15
                    if (!EvaluateIFDdatasizeReading(tif, dp))
7276
0
                    {
7277
0
                        if (data != 0)
7278
0
                            _TIFFfreeExt(tif, data);
7279
0
                        return 0;
7280
0
                    }
7281
15
                    m = TIFFSetField(tif, dp->tdir_tag,
7282
15
                                     (uint16_t)(dp->tdir_count), data);
7283
15
                    if (data != 0)
7284
13
                        _TIFFfreeExt(tif, data);
7285
15
                    if (!m)
7286
0
                        return (0);
7287
15
                }
7288
20
            }
7289
28
        }
7290
28
        break;
7291
238
        case TIFF_SETGET_C32_ASCII:
7292
238
        {
7293
238
            uint8_t *data;
7294
238
            assert(fip->field_readcount == TIFF_VARIABLE2);
7295
238
            assert(fip->field_passcount == 1);
7296
238
            err = TIFFReadDirEntryByteArray(tif, dp, &data);
7297
238
            if (err == TIFFReadDirEntryErrOk)
7298
86
            {
7299
86
                int m;
7300
86
                if (!EvaluateIFDdatasizeReading(tif, dp))
7301
0
                {
7302
0
                    if (data != 0)
7303
0
                        _TIFFfreeExt(tif, data);
7304
0
                    return 0;
7305
0
                }
7306
86
                if (data != 0 && dp->tdir_count > 0 &&
7307
77
                    data[dp->tdir_count - 1] != '\0')
7308
29
                {
7309
29
                    uint8_t *o;
7310
29
                    TIFFWarningExtR(
7311
29
                        tif, module,
7312
29
                        "ASCII value for ASCII array tag \"%s\" does not end "
7313
29
                        "in null byte. Forcing it to be null",
7314
29
                        fip->field_name);
7315
                    /* Enlarge buffer and add terminating null. */
7316
29
                    o =
7317
29
                        _TIFFmallocExt(tif, (uint32_t)dp->tdir_count + 1);
7318
29
                    if (o == NULL)
7319
0
                    {
7320
0
                        if (data != NULL)
7321
0
                            _TIFFfreeExt(tif, data);
7322
0
                        return (0);
7323
0
                    }
7324
29
                    if (dp->tdir_count > 0)
7325
29
                    {
7326
29
                        _TIFFmemcpy(o, data, (uint32_t)dp->tdir_count);
7327
29
                    }
7328
29
                    o[(uint32_t)dp->tdir_count] = 0;
7329
29
                    dp->tdir_count++; /* Increment for added null. */
7330
29
                    if (data != 0)
7331
29
                        _TIFFfreeExt(tif, data);
7332
29
                    data = o;
7333
29
                }
7334
86
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7335
86
                                 data);
7336
86
                if (data != 0)
7337
77
                    _TIFFfreeExt(tif, data);
7338
86
                if (!m)
7339
0
                    return (0);
7340
86
            }
7341
238
        }
7342
238
        break;
7343
435
        case TIFF_SETGET_C32_UINT8:
7344
435
        {
7345
435
            uint8_t *data;
7346
435
            uint32_t count = 0;
7347
435
            assert(fip->field_readcount == TIFF_VARIABLE2);
7348
435
            assert(fip->field_passcount == 1);
7349
435
            if (fip->field_tag == TIFFTAG_RICHTIFFIPTC &&
7350
3
                dp->tdir_type == TIFF_LONG)
7351
2
            {
7352
                /* Adobe's software (wrongly) writes RichTIFFIPTC tag with
7353
                 * data type LONG instead of UNDEFINED. Work around this
7354
                 * frequently found issue */
7355
2
                void *origdata;
7356
2
                err = TIFFReadDirEntryArray(tif, dp, &count, 4, &origdata);
7357
2
                if ((err != TIFFReadDirEntryErrOk) || (origdata == 0))
7358
1
                {
7359
1
                    data = NULL;
7360
1
                }
7361
1
                else
7362
1
                {
7363
1
                    if (tif->tif_flags & TIFF_SWAB)
7364
1
                        TIFFSwabArrayOfLong((uint32_t *)origdata, count);
7365
1
                    data = (uint8_t *)origdata;
7366
1
                    count = (uint32_t)(count * 4);
7367
1
                }
7368
2
            }
7369
433
            else
7370
433
            {
7371
433
                err = TIFFReadDirEntryByteArray(tif, dp, &data);
7372
433
                count = (uint32_t)(dp->tdir_count);
7373
433
            }
7374
435
            if (err == TIFFReadDirEntryErrOk)
7375
149
            {
7376
149
                int m;
7377
149
                if (!EvaluateIFDdatasizeReading(tif, dp))
7378
0
                {
7379
0
                    if (data != 0)
7380
0
                        _TIFFfreeExt(tif, data);
7381
0
                    return 0;
7382
0
                }
7383
149
                m = TIFFSetField(tif, dp->tdir_tag, count, data);
7384
149
                if (data != 0)
7385
66
                    _TIFFfreeExt(tif, data);
7386
149
                if (!m)
7387
83
                    return (0);
7388
149
            }
7389
435
        }
7390
352
        break;
7391
352
        case TIFF_SETGET_C32_SINT8:
7392
60
        {
7393
60
            int8_t *data = NULL;
7394
60
            assert(fip->field_readcount == TIFF_VARIABLE2);
7395
60
            assert(fip->field_passcount == 1);
7396
60
            err = TIFFReadDirEntrySbyteArray(tif, dp, &data);
7397
60
            if (err == TIFFReadDirEntryErrOk)
7398
8
            {
7399
8
                int m;
7400
8
                if (!EvaluateIFDdatasizeReading(tif, dp))
7401
0
                {
7402
0
                    if (data != 0)
7403
0
                        _TIFFfreeExt(tif, data);
7404
0
                    return 0;
7405
0
                }
7406
8
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7407
8
                                 data);
7408
8
                if (data != 0)
7409
7
                    _TIFFfreeExt(tif, data);
7410
8
                if (!m)
7411
1
                    return (0);
7412
8
            }
7413
60
        }
7414
59
        break;
7415
535
        case TIFF_SETGET_C32_UINT16:
7416
535
        {
7417
535
            uint16_t *data;
7418
535
            assert(fip->field_readcount == TIFF_VARIABLE2);
7419
535
            assert(fip->field_passcount == 1);
7420
535
            err = TIFFReadDirEntryShortArray(tif, dp, &data);
7421
535
            if (err == TIFFReadDirEntryErrOk)
7422
309
            {
7423
309
                int m;
7424
309
                if (!EvaluateIFDdatasizeReading(tif, dp))
7425
0
                {
7426
0
                    if (data != 0)
7427
0
                        _TIFFfreeExt(tif, data);
7428
0
                    return 0;
7429
0
                }
7430
309
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7431
309
                                 data);
7432
309
                if (data != 0)
7433
294
                    _TIFFfreeExt(tif, data);
7434
309
                if (!m)
7435
15
                    return (0);
7436
309
            }
7437
535
        }
7438
520
        break;
7439
520
        case TIFF_SETGET_C32_SINT16:
7440
123
        {
7441
123
            int16_t *data = NULL;
7442
123
            assert(fip->field_readcount == TIFF_VARIABLE2);
7443
123
            assert(fip->field_passcount == 1);
7444
123
            err = TIFFReadDirEntrySshortArray(tif, dp, &data);
7445
123
            if (err == TIFFReadDirEntryErrOk)
7446
40
            {
7447
40
                int m;
7448
40
                if (!EvaluateIFDdatasizeReading(tif, dp))
7449
0
                {
7450
0
                    if (data != 0)
7451
0
                        _TIFFfreeExt(tif, data);
7452
0
                    return 0;
7453
0
                }
7454
40
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7455
40
                                 data);
7456
40
                if (data != 0)
7457
34
                    _TIFFfreeExt(tif, data);
7458
40
                if (!m)
7459
6
                    return (0);
7460
40
            }
7461
123
        }
7462
117
        break;
7463
274
        case TIFF_SETGET_C32_UINT32:
7464
274
        {
7465
274
            uint32_t *data;
7466
274
            assert(fip->field_readcount == TIFF_VARIABLE2);
7467
274
            assert(fip->field_passcount == 1);
7468
274
            err = TIFFReadDirEntryLongArray(tif, dp, &data);
7469
274
            if (err == TIFFReadDirEntryErrOk)
7470
55
            {
7471
55
                int m;
7472
55
                if (!EvaluateIFDdatasizeReading(tif, dp))
7473
0
                {
7474
0
                    if (data != 0)
7475
0
                        _TIFFfreeExt(tif, data);
7476
0
                    return 0;
7477
0
                }
7478
55
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7479
55
                                 data);
7480
55
                if (data != 0)
7481
44
                    _TIFFfreeExt(tif, data);
7482
55
                if (!m)
7483
11
                    return (0);
7484
55
            }
7485
274
        }
7486
263
        break;
7487
263
        case TIFF_SETGET_C32_SINT32:
7488
50
        {
7489
50
            int32_t *data = NULL;
7490
50
            assert(fip->field_readcount == TIFF_VARIABLE2);
7491
50
            assert(fip->field_passcount == 1);
7492
50
            err = TIFFReadDirEntrySlongArray(tif, dp, &data);
7493
50
            if (err == TIFFReadDirEntryErrOk)
7494
14
            {
7495
14
                int m;
7496
14
                if (!EvaluateIFDdatasizeReading(tif, dp))
7497
0
                {
7498
0
                    if (data != 0)
7499
0
                        _TIFFfreeExt(tif, data);
7500
0
                    return 0;
7501
0
                }
7502
14
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7503
14
                                 data);
7504
14
                if (data != 0)
7505
13
                    _TIFFfreeExt(tif, data);
7506
14
                if (!m)
7507
1
                    return (0);
7508
14
            }
7509
50
        }
7510
49
        break;
7511
70
        case TIFF_SETGET_C32_UINT64:
7512
70
        {
7513
70
            uint64_t *data;
7514
70
            assert(fip->field_readcount == TIFF_VARIABLE2);
7515
70
            assert(fip->field_passcount == 1);
7516
70
            err = TIFFReadDirEntryLong8Array(tif, dp, &data);
7517
70
            if (err == TIFFReadDirEntryErrOk)
7518
31
            {
7519
31
                int m;
7520
31
                if (!EvaluateIFDdatasizeReading(tif, dp))
7521
0
                {
7522
0
                    if (data != 0)
7523
0
                        _TIFFfreeExt(tif, data);
7524
0
                    return 0;
7525
0
                }
7526
31
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7527
31
                                 data);
7528
31
                if (data != 0)
7529
18
                    _TIFFfreeExt(tif, data);
7530
31
                if (!m)
7531
26
                    return (0);
7532
31
            }
7533
70
        }
7534
44
        break;
7535
77
        case TIFF_SETGET_C32_SINT64:
7536
77
        {
7537
77
            int64_t *data = NULL;
7538
77
            assert(fip->field_readcount == TIFF_VARIABLE2);
7539
77
            assert(fip->field_passcount == 1);
7540
77
            err = TIFFReadDirEntrySlong8Array(tif, dp, &data);
7541
77
            if (err == TIFFReadDirEntryErrOk)
7542
44
            {
7543
44
                int m;
7544
44
                if (!EvaluateIFDdatasizeReading(tif, dp))
7545
0
                {
7546
0
                    if (data != 0)
7547
0
                        _TIFFfreeExt(tif, data);
7548
0
                    return 0;
7549
0
                }
7550
44
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7551
44
                                 data);
7552
44
                if (data != 0)
7553
39
                    _TIFFfreeExt(tif, data);
7554
44
                if (!m)
7555
27
                    return (0);
7556
44
            }
7557
77
        }
7558
50
        break;
7559
223
        case TIFF_SETGET_C32_FLOAT:
7560
223
        {
7561
223
            float *data;
7562
223
            assert(fip->field_readcount == TIFF_VARIABLE2);
7563
223
            assert(fip->field_passcount == 1);
7564
223
            err = TIFFReadDirEntryFloatArray(tif, dp, &data);
7565
223
            if (err == TIFFReadDirEntryErrOk)
7566
46
            {
7567
46
                int m;
7568
46
                if (!EvaluateIFDdatasizeReading(tif, dp))
7569
0
                {
7570
0
                    if (data != 0)
7571
0
                        _TIFFfreeExt(tif, data);
7572
0
                    return 0;
7573
0
                }
7574
46
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7575
46
                                 data);
7576
46
                if (data != 0)
7577
38
                    _TIFFfreeExt(tif, data);
7578
46
                if (!m)
7579
8
                    return (0);
7580
46
            }
7581
223
        }
7582
215
        break;
7583
215
        case TIFF_SETGET_C32_DOUBLE:
7584
189
        {
7585
189
            double *data;
7586
189
            assert(fip->field_readcount == TIFF_VARIABLE2);
7587
189
            assert(fip->field_passcount == 1);
7588
189
            err = TIFFReadDirEntryDoubleArray(tif, dp, &data);
7589
189
            if (err == TIFFReadDirEntryErrOk)
7590
63
            {
7591
63
                int m;
7592
63
                if (!EvaluateIFDdatasizeReading(tif, dp))
7593
0
                {
7594
0
                    if (data != 0)
7595
0
                        _TIFFfreeExt(tif, data);
7596
0
                    return 0;
7597
0
                }
7598
63
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7599
63
                                 data);
7600
63
                if (data != 0)
7601
63
                    _TIFFfreeExt(tif, data);
7602
63
                if (!m)
7603
0
                    return (0);
7604
63
            }
7605
189
        }
7606
189
        break;
7607
189
        case TIFF_SETGET_C32_IFD8:
7608
46
        {
7609
46
            uint64_t *data;
7610
46
            assert(fip->field_readcount == TIFF_VARIABLE2);
7611
46
            assert(fip->field_passcount == 1);
7612
46
            err = TIFFReadDirEntryIfd8Array(tif, dp, &data);
7613
46
            if (err == TIFFReadDirEntryErrOk)
7614
17
            {
7615
17
                int m;
7616
17
                if (!EvaluateIFDdatasizeReading(tif, dp))
7617
0
                {
7618
0
                    if (data != 0)
7619
0
                        _TIFFfreeExt(tif, data);
7620
0
                    return 0;
7621
0
                }
7622
17
                m = TIFFSetField(tif, dp->tdir_tag, (uint32_t)(dp->tdir_count),
7623
17
                                 data);
7624
17
                if (data != 0)
7625
8
                    _TIFFfreeExt(tif, data);
7626
17
                if (!m)
7627
9
                    return (0);
7628
17
            }
7629
46
        }
7630
37
        break;
7631
37
        default:
7632
0
            assert(0); /* we should never get here */
7633
0
            break;
7634
18.9k
    }
7635
18.6k
    if (err != TIFFReadDirEntryErrOk)
7636
2.11k
    {
7637
2.11k
        TIFFReadDirEntryOutputErr(tif, err, module, fip->field_name, recover);
7638
2.11k
        return (0);
7639
2.11k
    }
7640
16.5k
    return (1);
7641
18.6k
}
7642
7643
/*
7644
 * Fetch a set of offsets or lengths.
7645
 * While this routine says "strips", in fact it's also used for tiles.
7646
 */
7647
static int TIFFFetchStripThing(TIFF *tif, TIFFDirEntry *dir, uint32_t nstrips,
7648
                               uint64_t **lpp)
7649
735
{
7650
735
    static const char module[] = "TIFFFetchStripThing";
7651
735
    enum TIFFReadDirEntryErr err;
7652
735
    uint64_t *data;
7653
735
    err = TIFFReadDirEntryLong8ArrayWithLimit(tif, dir, &data, nstrips);
7654
735
    if (err != TIFFReadDirEntryErrOk)
7655
110
    {
7656
110
        const TIFFField *fip = TIFFFieldWithTag(tif, dir->tdir_tag);
7657
110
        TIFFReadDirEntryOutputErr(tif, err, module,
7658
110
                                  fip ? fip->field_name : "unknown tagname", 0);
7659
110
        return (0);
7660
110
    }
7661
625
    if (dir->tdir_count < (uint64_t)nstrips)
7662
124
    {
7663
124
        uint64_t *resizeddata;
7664
124
        const TIFFField *fip = TIFFFieldWithTag(tif, dir->tdir_tag);
7665
124
        const char *pszMax = getenv("LIBTIFF_STRILE_ARRAY_MAX_RESIZE_COUNT");
7666
124
        uint32_t max_nstrips = 1000000;
7667
124
        uint64_t allocsize;
7668
124
        if (pszMax)
7669
0
            max_nstrips = (uint32_t)atoi(pszMax);
7670
124
        TIFFReadDirEntryOutputErr(tif, TIFFReadDirEntryErrCount, module,
7671
124
                                  fip ? fip->field_name : "unknown tagname",
7672
124
                                  (nstrips <= max_nstrips));
7673
7674
124
        if (nstrips > max_nstrips)
7675
6
        {
7676
6
            _TIFFfreeExt(tif, data);
7677
6
            return (0);
7678
6
        }
7679
7680
118
        allocsize = (uint64_t)nstrips * sizeof(uint64_t);
7681
118
        if (allocsize > 100 * 1024 * 1024)
7682
0
        {
7683
            /* Before allocating a huge amount of memory for corrupted files,
7684
             * check if size of requested memory is not greater than file size.
7685
             */
7686
0
            const uint64_t filesize = TIFFGetFileSize(tif);
7687
0
            if (allocsize > filesize)
7688
0
            {
7689
0
                TIFFWarningExtR(
7690
0
                    tif, module,
7691
0
                    "Requested memory size for StripArray of %" PRIu64
7692
0
                    " is greater than filesize %" PRIu64
7693
0
                    ". Memory not allocated",
7694
0
                    allocsize, filesize);
7695
0
                _TIFFfreeExt(tif, data);
7696
0
                return (0);
7697
0
            }
7698
0
        }
7699
118
        resizeddata = (uint64_t *)_TIFFCheckMalloc(
7700
118
            tif, nstrips, sizeof(uint64_t), "for strip array");
7701
118
        if (resizeddata == 0)
7702
0
        {
7703
0
            _TIFFfreeExt(tif, data);
7704
0
            return (0);
7705
0
        }
7706
118
        if (dir->tdir_count)
7707
79
            _TIFFmemcpy(resizeddata, data,
7708
79
                        (uint32_t)dir->tdir_count * sizeof(uint64_t));
7709
118
        _TIFFmemset(resizeddata + (uint32_t)dir->tdir_count, 0,
7710
118
                    (nstrips - (uint32_t)dir->tdir_count) * sizeof(uint64_t));
7711
118
        _TIFFfreeExt(tif, data);
7712
118
        data = resizeddata;
7713
118
    }
7714
619
    *lpp = data;
7715
619
    return (1);
7716
625
}
7717
7718
/*
7719
 * Fetch and set the SubjectDistance EXIF tag.
7720
 */
7721
static int TIFFFetchSubjectDistance(TIFF *tif, TIFFDirEntry *dir)
7722
0
{
7723
0
    static const char module[] = "TIFFFetchSubjectDistance";
7724
0
    enum TIFFReadDirEntryErr err;
7725
0
    UInt64Aligned_t m;
7726
0
    m.l = 0;
7727
0
    assert(sizeof(double) == 8);
7728
0
    assert(sizeof(uint64_t) == 8);
7729
0
    assert(sizeof(uint32_t) == 4);
7730
0
    if (dir->tdir_count != 1)
7731
0
        err = TIFFReadDirEntryErrCount;
7732
0
    else if (dir->tdir_type != TIFF_RATIONAL)
7733
0
        err = TIFFReadDirEntryErrType;
7734
0
    else
7735
0
    {
7736
0
        if (!(tif->tif_flags & TIFF_BIGTIFF))
7737
0
        {
7738
0
            uint32_t offset;
7739
0
            offset = *(uint32_t *)(&dir->tdir_offset);
7740
0
            if (tif->tif_flags & TIFF_SWAB)
7741
0
                TIFFSwabLong(&offset);
7742
0
            err = TIFFReadDirEntryData(tif, offset, 8, m.i);
7743
0
        }
7744
0
        else
7745
0
        {
7746
0
            m.l = dir->tdir_offset.toff_long8;
7747
0
            err = TIFFReadDirEntryErrOk;
7748
0
        }
7749
0
    }
7750
0
    if (err == TIFFReadDirEntryErrOk)
7751
0
    {
7752
0
        double n;
7753
0
        if (tif->tif_flags & TIFF_SWAB)
7754
0
            TIFFSwabArrayOfLong(m.i, 2);
7755
0
        if (m.i[0] == 0)
7756
0
            n = 0.0;
7757
0
        else if (m.i[0] == 0xFFFFFFFF || m.i[1] == 0)
7758
            /*
7759
             * XXX: Numerator 0xFFFFFFFF means that we have infinite
7760
             * distance. Indicate that with a negative floating point
7761
             * SubjectDistance value.
7762
             */
7763
0
            n = -1.0;
7764
0
        else
7765
0
            n = (double)m.i[0] / (double)m.i[1];
7766
0
        return (TIFFSetField(tif, dir->tdir_tag, n));
7767
0
    }
7768
0
    else
7769
0
    {
7770
0
        TIFFReadDirEntryOutputErr(tif, err, module, "SubjectDistance", TRUE);
7771
0
        return (0);
7772
0
    }
7773
0
}
7774
7775
static void allocChoppedUpStripArrays(TIFF *tif, uint32_t nstrips,
7776
                                      uint64_t stripbytes,
7777
                                      uint32_t rowsperstrip)
7778
77
{
7779
77
    TIFFDirectory *td = &tif->tif_dir;
7780
77
    uint64_t bytecount;
7781
77
    uint64_t offset;
7782
77
    uint64_t last_offset;
7783
77
    uint64_t last_bytecount;
7784
77
    uint32_t i;
7785
77
    uint64_t *newcounts;
7786
77
    uint64_t *newoffsets;
7787
77
    uint64_t allocsize;
7788
7789
77
    offset = TIFFGetStrileOffset(tif, 0);
7790
77
    last_offset = TIFFGetStrileOffset(tif, td->td_nstrips - 1);
7791
77
    last_bytecount = TIFFGetStrileByteCount(tif, td->td_nstrips - 1);
7792
77
    if (last_offset > UINT64_MAX - last_bytecount ||
7793
70
        last_offset + last_bytecount < offset)
7794
8
    {
7795
8
        return;
7796
8
    }
7797
69
    bytecount = last_offset + last_bytecount - offset;
7798
7799
    /* Before allocating a huge amount of memory for corrupted files, check if
7800
     * size of StripByteCount and StripOffset tags is not greater than
7801
     * file size.
7802
     */
7803
69
    allocsize = (uint64_t)nstrips * sizeof(uint64_t) * 2;
7804
69
    if (allocsize > 100 * 1024 * 1024)
7805
0
    {
7806
0
        const uint64_t filesize = TIFFGetFileSize(tif);
7807
0
        if (allocsize > filesize)
7808
0
        {
7809
0
            TIFFWarningExtR(tif, "allocChoppedUpStripArrays",
7810
0
                            "Requested memory size for StripByteCount and "
7811
0
                            "StripOffsets %" PRIu64
7812
0
                            " is greater than filesize %" PRIu64
7813
0
                            ". Memory not allocated",
7814
0
                            allocsize, filesize);
7815
0
            return;
7816
0
        }
7817
0
    }
7818
7819
69
    newcounts =
7820
69
        (uint64_t *)_TIFFCheckMalloc(tif, nstrips, sizeof(uint64_t),
7821
69
                                     "for chopped \"StripByteCounts\" array");
7822
69
    newoffsets = (uint64_t *)_TIFFCheckMalloc(
7823
69
        tif, nstrips, sizeof(uint64_t), "for chopped \"StripOffsets\" array");
7824
69
    if (newcounts == NULL || newoffsets == NULL)
7825
0
    {
7826
        /*
7827
         * Unable to allocate new strip information, give up and use
7828
         * the original one strip information.
7829
         */
7830
0
        if (newcounts != NULL)
7831
0
            _TIFFfreeExt(tif, newcounts);
7832
0
        if (newoffsets != NULL)
7833
0
            _TIFFfreeExt(tif, newoffsets);
7834
0
        return;
7835
0
    }
7836
7837
    /*
7838
     * Fill the strip information arrays with new bytecounts and offsets
7839
     * that reflect the broken-up format.
7840
     */
7841
2.28M
    for (i = 0; i < nstrips; i++)
7842
2.28M
    {
7843
2.28M
        if (stripbytes > bytecount)
7844
33
            stripbytes = bytecount;
7845
2.28M
        newcounts[i] = stripbytes;
7846
2.28M
        newoffsets[i] = stripbytes ? offset : 0;
7847
2.28M
        offset += stripbytes;
7848
2.28M
        bytecount -= stripbytes;
7849
2.28M
    }
7850
7851
    /*
7852
     * Replace old single strip info with multi-strip info.
7853
     */
7854
69
    td->td_stripsperimage = td->td_nstrips = nstrips;
7855
69
    TIFFSetField(tif, TIFFTAG_ROWSPERSTRIP, rowsperstrip);
7856
7857
69
    _TIFFfreeExt(tif, td->td_stripbytecount_p);
7858
69
    _TIFFfreeExt(tif, td->td_stripoffset_p);
7859
69
    td->td_stripbytecount_p = newcounts;
7860
69
    td->td_stripoffset_p = newoffsets;
7861
#ifdef STRIPBYTECOUNTSORTED_UNUSED
7862
    td->td_stripbytecountsorted = 1;
7863
#endif
7864
69
    tif->tif_flags |= TIFF_CHOPPEDUPARRAYS;
7865
69
}
7866
7867
/*
7868
 * Replace a single strip (tile) of uncompressed data by multiple strips
7869
 * (tiles), each approximately STRIP_SIZE_DEFAULT bytes. This is useful for
7870
 * dealing with large images or for dealing with machines with a limited
7871
 * amount memory.
7872
 */
7873
static void ChopUpSingleUncompressedStrip(TIFF *tif)
7874
156
{
7875
156
    register TIFFDirectory *td = &tif->tif_dir;
7876
156
    uint64_t bytecount;
7877
156
    uint64_t offset;
7878
156
    uint32_t rowblock;
7879
156
    uint64_t rowblockbytes;
7880
156
    uint64_t stripbytes;
7881
156
    uint32_t nstrips;
7882
156
    uint32_t rowsperstrip;
7883
7884
156
    bytecount = TIFFGetStrileByteCount(tif, 0);
7885
    /* On a newly created file, just re-opened to be filled, we */
7886
    /* don't want strip chop to trigger as it is going to cause issues */
7887
    /* later ( StripOffsets and StripByteCounts improperly filled) . */
7888
156
    if (bytecount == 0 && tif->tif_mode != O_RDONLY)
7889
0
        return;
7890
156
    offset = TIFFGetStrileByteCount(tif, 0);
7891
156
    assert(td->td_planarconfig == PLANARCONFIG_CONTIG);
7892
156
    if ((td->td_photometric == PHOTOMETRIC_YCBCR) && (!isUpSampled(tif)))
7893
38
        rowblock = td->td_ycbcrsubsampling[1];
7894
118
    else
7895
118
        rowblock = 1;
7896
156
    rowblockbytes = TIFFVTileSize64(tif, rowblock);
7897
    /*
7898
     * Make the rows hold at least one scanline, but fill specified amount
7899
     * of data if possible.
7900
     */
7901
156
    if (rowblockbytes > STRIP_SIZE_DEFAULT)
7902
36
    {
7903
36
        stripbytes = rowblockbytes;
7904
36
        rowsperstrip = rowblock;
7905
36
    }
7906
120
    else if (rowblockbytes > 0)
7907
107
    {
7908
107
        uint32_t rowblocksperstrip;
7909
107
        rowblocksperstrip = (uint32_t)(STRIP_SIZE_DEFAULT / rowblockbytes);
7910
107
        rowsperstrip = rowblocksperstrip * rowblock;
7911
107
        stripbytes = rowblocksperstrip * rowblockbytes;
7912
107
    }
7913
13
    else
7914
13
        return;
7915
7916
    /*
7917
     * never increase the number of rows per strip
7918
     */
7919
143
    if (rowsperstrip >= td->td_rowsperstrip || rowsperstrip == 0)
7920
52
        return;
7921
91
    nstrips = TIFFhowmany_32(td->td_imagelength, rowsperstrip);
7922
91
    if (nstrips == 0)
7923
5
        return;
7924
7925
    /* If we are going to allocate a lot of memory, make sure that the */
7926
    /* file is as big as needed */
7927
86
    if (tif->tif_mode == O_RDONLY && nstrips > 1000000 &&
7928
27
        (offset >= TIFFGetFileSize(tif) ||
7929
2
         stripbytes > (TIFFGetFileSize(tif) - offset) / (nstrips - 1)))
7930
27
    {
7931
27
        return;
7932
27
    }
7933
7934
59
    allocChoppedUpStripArrays(tif, nstrips, stripbytes, rowsperstrip);
7935
59
}
7936
7937
/*
7938
 * Replace a file with contiguous strips > 2 GB of uncompressed data by
7939
 * multiple smaller strips. This is useful for
7940
 * dealing with large images or for dealing with machines with a limited
7941
 * amount memory.
7942
 */
7943
static void TryChopUpUncompressedBigTiff(TIFF *tif)
7944
35
{
7945
35
    TIFFDirectory *td = &tif->tif_dir;
7946
35
    uint32_t rowblock;
7947
35
    uint64_t rowblockbytes;
7948
35
    uint32_t i;
7949
35
    uint64_t stripsize;
7950
35
    uint32_t rowblocksperstrip;
7951
35
    uint32_t rowsperstrip;
7952
35
    uint64_t stripbytes;
7953
35
    uint32_t nstrips;
7954
7955
35
    stripsize = TIFFStripSize64(tif);
7956
7957
35
    assert(tif->tif_dir.td_planarconfig == PLANARCONFIG_CONTIG);
7958
35
    assert(tif->tif_dir.td_compression == COMPRESSION_NONE);
7959
35
    assert((tif->tif_flags & (TIFF_STRIPCHOP | TIFF_ISTILED)) ==
7960
35
           TIFF_STRIPCHOP);
7961
35
    assert(stripsize > 0x7FFFFFFFUL);
7962
7963
    /* On a newly created file, just re-opened to be filled, we */
7964
    /* don't want strip chop to trigger as it is going to cause issues */
7965
    /* later ( StripOffsets and StripByteCounts improperly filled) . */
7966
35
    if (TIFFGetStrileByteCount(tif, 0) == 0 && tif->tif_mode != O_RDONLY)
7967
0
        return;
7968
7969
35
    if ((td->td_photometric == PHOTOMETRIC_YCBCR) && (!isUpSampled(tif)))
7970
1
        rowblock = td->td_ycbcrsubsampling[1];
7971
34
    else
7972
34
        rowblock = 1;
7973
35
    rowblockbytes = TIFFVStripSize64(tif, rowblock);
7974
35
    if (rowblockbytes == 0 || rowblockbytes > 0x7FFFFFFFUL)
7975
5
    {
7976
        /* In case of file with gigantic width */
7977
5
        return;
7978
5
    }
7979
7980
    /* Check that the strips are contiguous and of the expected size */
7981
56
    for (i = 0; i < td->td_nstrips; i++)
7982
31
    {
7983
31
        if (i == td->td_nstrips - 1)
7984
27
        {
7985
27
            if (TIFFGetStrileByteCount(tif, i) <
7986
27
                TIFFVStripSize64(tif,
7987
27
                                 td->td_imagelength - i * td->td_rowsperstrip))
7988
2
            {
7989
2
                return;
7990
2
            }
7991
27
        }
7992
4
        else
7993
4
        {
7994
4
            if (TIFFGetStrileByteCount(tif, i) != stripsize)
7995
3
            {
7996
3
                return;
7997
3
            }
7998
1
            if (i > 0 && TIFFGetStrileOffset(tif, i) !=
7999
0
                             TIFFGetStrileOffset(tif, i - 1) +
8000
0
                                 TIFFGetStrileByteCount(tif, i - 1))
8001
0
            {
8002
0
                return;
8003
0
            }
8004
1
        }
8005
31
    }
8006
8007
    /* Aim for 512 MB strips (that will still be manageable by 32 bit builds */
8008
25
    rowblocksperstrip = (uint32_t)(512 * 1024 * 1024 / rowblockbytes);
8009
25
    if (rowblocksperstrip == 0)
8010
0
        rowblocksperstrip = 1;
8011
25
    rowsperstrip = rowblocksperstrip * rowblock;
8012
25
    stripbytes = rowblocksperstrip * rowblockbytes;
8013
25
    assert(stripbytes <= 0x7FFFFFFFUL);
8014
8015
25
    if (rowsperstrip == 0)
8016
0
        return;
8017
25
    nstrips = TIFFhowmany_32(td->td_imagelength, rowsperstrip);
8018
25
    if (nstrips == 0)
8019
1
        return;
8020
8021
    /* If we are going to allocate a lot of memory, make sure that the */
8022
    /* file is as big as needed */
8023
24
    if (tif->tif_mode == O_RDONLY && nstrips > 1000000)
8024
6
    {
8025
6
        uint64_t last_offset = TIFFGetStrileOffset(tif, td->td_nstrips - 1);
8026
6
        uint64_t filesize = TIFFGetFileSize(tif);
8027
6
        uint64_t last_bytecount =
8028
6
            TIFFGetStrileByteCount(tif, td->td_nstrips - 1);
8029
6
        if (last_offset > filesize || last_bytecount > filesize - last_offset)
8030
6
        {
8031
6
            return;
8032
6
        }
8033
6
    }
8034
8035
18
    allocChoppedUpStripArrays(tif, nstrips, stripbytes, rowsperstrip);
8036
18
}
8037
8038
TIFF_NOSANITIZE_UNSIGNED_INT_OVERFLOW
8039
static uint64_t _TIFFUnsanitizedAddUInt64AndInt(uint64_t a, int b)
8040
0
{
8041
0
    return a + b;
8042
0
}
8043
8044
/* Read the value of [Strip|Tile]Offset or [Strip|Tile]ByteCount around
8045
 * strip/tile of number strile. Also fetch the neighbouring values using a
8046
 * 4096 byte page size.
8047
 */
8048
static int _TIFFPartialReadStripArray(TIFF *tif, TIFFDirEntry *dirent,
8049
                                      int strile, uint64_t *panVals)
8050
0
{
8051
0
    static const char module[] = "_TIFFPartialReadStripArray";
8052
0
#define IO_CACHE_PAGE_SIZE 4096
8053
8054
0
    size_t sizeofval;
8055
0
    const int bSwab = (tif->tif_flags & TIFF_SWAB) != 0;
8056
0
    int sizeofvalint;
8057
0
    uint64_t nBaseOffset;
8058
0
    uint64_t nOffset;
8059
0
    uint64_t nOffsetStartPage;
8060
0
    uint64_t nOffsetEndPage;
8061
0
    tmsize_t nToRead;
8062
0
    tmsize_t nRead;
8063
0
    uint64_t nLastStripOffset;
8064
0
    int iStartBefore;
8065
0
    int i;
8066
0
    const uint32_t arraySize = tif->tif_dir.td_stripoffsetbyteallocsize;
8067
0
    unsigned char buffer[2 * IO_CACHE_PAGE_SIZE];
8068
8069
0
    assert(dirent->tdir_count > 4);
8070
8071
0
    if (dirent->tdir_type == TIFF_SHORT)
8072
0
    {
8073
0
        sizeofval = sizeof(uint16_t);
8074
0
    }
8075
0
    else if (dirent->tdir_type == TIFF_LONG)
8076
0
    {
8077
0
        sizeofval = sizeof(uint32_t);
8078
0
    }
8079
0
    else if (dirent->tdir_type == TIFF_LONG8)
8080
0
    {
8081
0
        sizeofval = sizeof(uint64_t);
8082
0
    }
8083
0
    else if (dirent->tdir_type == TIFF_SLONG8)
8084
0
    {
8085
        /* Non conformant but used by some images as in */
8086
        /* https://github.com/OSGeo/gdal/issues/2165 */
8087
0
        sizeofval = sizeof(int64_t);
8088
0
    }
8089
0
    else
8090
0
    {
8091
0
        TIFFErrorExtR(tif, module,
8092
0
                      "Invalid type for [Strip|Tile][Offset/ByteCount] tag");
8093
0
        panVals[strile] = 0;
8094
0
        return 0;
8095
0
    }
8096
0
    sizeofvalint = (int)(sizeofval);
8097
8098
0
    if (tif->tif_flags & TIFF_BIGTIFF)
8099
0
    {
8100
0
        uint64_t offset = dirent->tdir_offset.toff_long8;
8101
0
        if (bSwab)
8102
0
            TIFFSwabLong8(&offset);
8103
0
        nBaseOffset = offset;
8104
0
    }
8105
0
    else
8106
0
    {
8107
0
        uint32_t offset = dirent->tdir_offset.toff_long;
8108
0
        if (bSwab)
8109
0
            TIFFSwabLong(&offset);
8110
0
        nBaseOffset = offset;
8111
0
    }
8112
    /* To avoid later unsigned integer overflows */
8113
0
    if (nBaseOffset > (uint64_t)INT64_MAX)
8114
0
    {
8115
0
        TIFFErrorExtR(tif, module, "Cannot read offset/size for strile %d",
8116
0
                      strile);
8117
0
        panVals[strile] = 0;
8118
0
        return 0;
8119
0
    }
8120
0
    nOffset = nBaseOffset + sizeofval * strile;
8121
0
    nOffsetStartPage = (nOffset / IO_CACHE_PAGE_SIZE) * IO_CACHE_PAGE_SIZE;
8122
0
    nOffsetEndPage = nOffsetStartPage + IO_CACHE_PAGE_SIZE;
8123
8124
0
    if (nOffset + sizeofval > nOffsetEndPage)
8125
0
        nOffsetEndPage += IO_CACHE_PAGE_SIZE;
8126
0
#undef IO_CACHE_PAGE_SIZE
8127
8128
0
    nLastStripOffset = nBaseOffset + arraySize * sizeofval;
8129
0
    if (nLastStripOffset < nOffsetEndPage)
8130
0
        nOffsetEndPage = nLastStripOffset;
8131
0
    if (nOffsetStartPage >= nOffsetEndPage)
8132
0
    {
8133
0
        TIFFErrorExtR(tif, module, "Cannot read offset/size for strile %d",
8134
0
                      strile);
8135
0
        panVals[strile] = 0;
8136
0
        return 0;
8137
0
    }
8138
0
    if (!SeekOK(tif, nOffsetStartPage))
8139
0
    {
8140
0
        panVals[strile] = 0;
8141
0
        return 0;
8142
0
    }
8143
8144
0
    nToRead = (tmsize_t)(nOffsetEndPage - nOffsetStartPage);
8145
0
    nRead = TIFFReadFile(tif, buffer, nToRead);
8146
0
    if (nRead < nToRead)
8147
0
    {
8148
0
        TIFFErrorExtR(tif, module,
8149
0
                      "Cannot read offset/size for strile around ~%d", strile);
8150
0
        return 0;
8151
0
    }
8152
0
    iStartBefore = -(int)((nOffset - nOffsetStartPage) / sizeofval);
8153
0
    if (strile + iStartBefore < 0)
8154
0
        iStartBefore = -strile;
8155
0
    for (i = iStartBefore;
8156
0
         (uint32_t)(strile + i) < arraySize &&
8157
0
         _TIFFUnsanitizedAddUInt64AndInt(nOffset, (i + 1) * sizeofvalint) <=
8158
0
             nOffsetEndPage;
8159
0
         ++i)
8160
0
    {
8161
0
        if (dirent->tdir_type == TIFF_SHORT)
8162
0
        {
8163
0
            uint16_t val;
8164
0
            memcpy(&val,
8165
0
                   buffer + (nOffset - nOffsetStartPage) + i * sizeofvalint,
8166
0
                   sizeof(val));
8167
0
            if (bSwab)
8168
0
                TIFFSwabShort(&val);
8169
0
            panVals[strile + i] = val;
8170
0
        }
8171
0
        else if (dirent->tdir_type == TIFF_LONG)
8172
0
        {
8173
0
            uint32_t val;
8174
0
            memcpy(&val,
8175
0
                   buffer + (nOffset - nOffsetStartPage) + i * sizeofvalint,
8176
0
                   sizeof(val));
8177
0
            if (bSwab)
8178
0
                TIFFSwabLong(&val);
8179
0
            panVals[strile + i] = val;
8180
0
        }
8181
0
        else if (dirent->tdir_type == TIFF_LONG8)
8182
0
        {
8183
0
            uint64_t val;
8184
0
            memcpy(&val,
8185
0
                   buffer + (nOffset - nOffsetStartPage) + i * sizeofvalint,
8186
0
                   sizeof(val));
8187
0
            if (bSwab)
8188
0
                TIFFSwabLong8(&val);
8189
0
            panVals[strile + i] = val;
8190
0
        }
8191
0
        else /* if( dirent->tdir_type == TIFF_SLONG8 ) */
8192
0
        {
8193
            /* Non conformant data type */
8194
0
            int64_t val;
8195
0
            memcpy(&val,
8196
0
                   buffer + (nOffset - nOffsetStartPage) + i * sizeofvalint,
8197
0
                   sizeof(val));
8198
0
            if (bSwab)
8199
0
                TIFFSwabLong8((uint64_t *)&val);
8200
0
            panVals[strile + i] = (uint64_t)val;
8201
0
        }
8202
0
    }
8203
0
    return 1;
8204
0
}
8205
8206
static int _TIFFFetchStrileValue(TIFF *tif, uint32_t strile,
8207
                                 TIFFDirEntry *dirent, uint64_t **parray)
8208
0
{
8209
0
    static const char module[] = "_TIFFFetchStrileValue";
8210
0
    TIFFDirectory *td = &tif->tif_dir;
8211
0
    if (strile >= dirent->tdir_count)
8212
0
    {
8213
0
        return 0;
8214
0
    }
8215
0
    if (strile >= td->td_stripoffsetbyteallocsize)
8216
0
    {
8217
0
        uint32_t nStripArrayAllocBefore = td->td_stripoffsetbyteallocsize;
8218
0
        uint32_t nStripArrayAllocNew;
8219
0
        uint64_t nArraySize64;
8220
0
        size_t nArraySize;
8221
0
        uint64_t *offsetArray;
8222
0
        uint64_t *bytecountArray;
8223
8224
0
        if (strile > 1000000)
8225
0
        {
8226
0
            uint64_t filesize = TIFFGetFileSize(tif);
8227
            /* Avoid excessive memory allocation attempt */
8228
            /* For such a big blockid we need at least a TIFF_LONG per strile */
8229
            /* for the offset array. */
8230
0
            if (strile > filesize / sizeof(uint32_t))
8231
0
            {
8232
0
                TIFFErrorExtR(tif, module, "File too short");
8233
0
                return 0;
8234
0
            }
8235
0
        }
8236
8237
0
        if (td->td_stripoffsetbyteallocsize == 0 &&
8238
0
            td->td_nstrips < 1024 * 1024)
8239
0
        {
8240
0
            nStripArrayAllocNew = td->td_nstrips;
8241
0
        }
8242
0
        else
8243
0
        {
8244
0
#define TIFF_MAX(a, b) (((a) > (b)) ? (a) : (b))
8245
0
#define TIFF_MIN(a, b) (((a) < (b)) ? (a) : (b))
8246
0
            nStripArrayAllocNew = TIFF_MAX(strile + 1, 1024U * 512U);
8247
0
            if (nStripArrayAllocNew < 0xFFFFFFFFU / 2)
8248
0
                nStripArrayAllocNew *= 2;
8249
0
            nStripArrayAllocNew = TIFF_MIN(nStripArrayAllocNew, td->td_nstrips);
8250
0
        }
8251
0
        assert(strile < nStripArrayAllocNew);
8252
0
        nArraySize64 = (uint64_t)sizeof(uint64_t) * nStripArrayAllocNew;
8253
0
        nArraySize = (size_t)(nArraySize64);
8254
#if SIZEOF_SIZE_T == 4
8255
        if (nArraySize != nArraySize64)
8256
        {
8257
            TIFFErrorExtR(tif, module,
8258
                          "Cannot allocate strip offset and bytecount arrays");
8259
            return 0;
8260
        }
8261
#endif
8262
0
        offsetArray = (uint64_t *)(_TIFFreallocExt(tif, td->td_stripoffset_p,
8263
0
                                                   nArraySize));
8264
0
        bytecountArray = (uint64_t *)(_TIFFreallocExt(
8265
0
            tif, td->td_stripbytecount_p, nArraySize));
8266
0
        if (offsetArray)
8267
0
            td->td_stripoffset_p = offsetArray;
8268
0
        if (bytecountArray)
8269
0
            td->td_stripbytecount_p = bytecountArray;
8270
0
        if (offsetArray && bytecountArray)
8271
0
        {
8272
0
            td->td_stripoffsetbyteallocsize = nStripArrayAllocNew;
8273
            /* Initialize new entries to ~0 / -1 */
8274
            /* coverity[overrun-buffer-arg] */
8275
0
            memset(td->td_stripoffset_p + nStripArrayAllocBefore, 0xFF,
8276
0
                   (td->td_stripoffsetbyteallocsize - nStripArrayAllocBefore) *
8277
0
                       sizeof(uint64_t));
8278
            /* coverity[overrun-buffer-arg] */
8279
0
            memset(td->td_stripbytecount_p + nStripArrayAllocBefore, 0xFF,
8280
0
                   (td->td_stripoffsetbyteallocsize - nStripArrayAllocBefore) *
8281
0
                       sizeof(uint64_t));
8282
0
        }
8283
0
        else
8284
0
        {
8285
0
            TIFFErrorExtR(tif, module,
8286
0
                          "Cannot allocate strip offset and bytecount arrays");
8287
0
            _TIFFfreeExt(tif, td->td_stripoffset_p);
8288
0
            td->td_stripoffset_p = NULL;
8289
0
            _TIFFfreeExt(tif, td->td_stripbytecount_p);
8290
0
            td->td_stripbytecount_p = NULL;
8291
0
            td->td_stripoffsetbyteallocsize = 0;
8292
0
        }
8293
0
    }
8294
0
    if (*parray == NULL || strile >= td->td_stripoffsetbyteallocsize)
8295
0
        return 0;
8296
8297
0
    if (~((*parray)[strile]) == 0)
8298
0
    {
8299
0
        if (!_TIFFPartialReadStripArray(tif, dirent, strile, *parray))
8300
0
        {
8301
0
            (*parray)[strile] = 0;
8302
0
            return 0;
8303
0
        }
8304
0
    }
8305
8306
0
    return 1;
8307
0
}
8308
8309
static uint64_t _TIFFGetStrileOffsetOrByteCountValue(TIFF *tif, uint32_t strile,
8310
                                                     TIFFDirEntry *dirent,
8311
                                                     uint64_t **parray,
8312
                                                     int *pbErr)
8313
373k
{
8314
373k
    TIFFDirectory *td = &tif->tif_dir;
8315
373k
    if (pbErr)
8316
0
        *pbErr = 0;
8317
373k
    if ((tif->tif_flags & TIFF_DEFERSTRILELOAD) &&
8318
0
        !(tif->tif_flags & TIFF_CHOPPEDUPARRAYS))
8319
0
    {
8320
0
        if (!(tif->tif_flags & TIFF_LAZYSTRILELOAD) ||
8321
            /* If the values may fit in the toff_long/toff_long8 member */
8322
            /* then use _TIFFFillStriles to simplify _TIFFFetchStrileValue */
8323
0
            dirent->tdir_count <= 4)
8324
0
        {
8325
0
            if (!_TIFFFillStriles(tif))
8326
0
            {
8327
0
                if (pbErr)
8328
0
                    *pbErr = 1;
8329
                /* Do not return, as we want this function to always */
8330
                /* return the same value if called several times with */
8331
                /* the same arguments */
8332
0
            }
8333
0
        }
8334
0
        else
8335
0
        {
8336
0
            if (!_TIFFFetchStrileValue(tif, strile, dirent, parray))
8337
0
            {
8338
0
                if (pbErr)
8339
0
                    *pbErr = 1;
8340
0
                return 0;
8341
0
            }
8342
0
        }
8343
0
    }
8344
373k
    if (*parray == NULL || strile >= td->td_nstrips)
8345
0
    {
8346
0
        if (pbErr)
8347
0
            *pbErr = 1;
8348
0
        return 0;
8349
0
    }
8350
373k
    return (*parray)[strile];
8351
373k
}
8352
8353
/* Return the value of the TileOffsets/StripOffsets array for the specified
8354
 * tile/strile */
8355
uint64_t TIFFGetStrileOffset(TIFF *tif, uint32_t strile)
8356
142k
{
8357
142k
    return TIFFGetStrileOffsetWithErr(tif, strile, NULL);
8358
142k
}
8359
8360
/* Return the value of the TileOffsets/StripOffsets array for the specified
8361
 * tile/strile */
8362
uint64_t TIFFGetStrileOffsetWithErr(TIFF *tif, uint32_t strile, int *pbErr)
8363
142k
{
8364
142k
    TIFFDirectory *td = &tif->tif_dir;
8365
142k
    return _TIFFGetStrileOffsetOrByteCountValue(tif, strile,
8366
142k
                                                &(td->td_stripoffset_entry),
8367
142k
                                                &(td->td_stripoffset_p), pbErr);
8368
142k
}
8369
8370
/* Return the value of the TileByteCounts/StripByteCounts array for the
8371
 * specified tile/strile */
8372
uint64_t TIFFGetStrileByteCount(TIFF *tif, uint32_t strile)
8373
231k
{
8374
231k
    return TIFFGetStrileByteCountWithErr(tif, strile, NULL);
8375
231k
}
8376
8377
/* Return the value of the TileByteCounts/StripByteCounts array for the
8378
 * specified tile/strile */
8379
uint64_t TIFFGetStrileByteCountWithErr(TIFF *tif, uint32_t strile, int *pbErr)
8380
231k
{
8381
231k
    TIFFDirectory *td = &tif->tif_dir;
8382
231k
    return _TIFFGetStrileOffsetOrByteCountValue(
8383
231k
        tif, strile, &(td->td_stripbytecount_entry), &(td->td_stripbytecount_p),
8384
231k
        pbErr);
8385
231k
}
8386
8387
55.3k
int _TIFFFillStriles(TIFF *tif) { return _TIFFFillStrilesInternal(tif, 1); }
8388
8389
static int _TIFFFillStrilesInternal(TIFF *tif, int loadStripByteCount)
8390
55.5k
{
8391
55.5k
    register TIFFDirectory *td = &tif->tif_dir;
8392
55.5k
    int return_value = 1;
8393
8394
    /* Do not do anything if TIFF_DEFERSTRILELOAD is not set */
8395
55.5k
    if (!(tif->tif_flags & TIFF_DEFERSTRILELOAD) ||
8396
0
        (tif->tif_flags & TIFF_CHOPPEDUPARRAYS) != 0)
8397
55.5k
        return 1;
8398
8399
0
    if (tif->tif_flags & TIFF_LAZYSTRILELOAD)
8400
0
    {
8401
        /* In case of lazy loading, reload completely the arrays */
8402
0
        _TIFFfreeExt(tif, td->td_stripoffset_p);
8403
0
        _TIFFfreeExt(tif, td->td_stripbytecount_p);
8404
0
        td->td_stripoffset_p = NULL;
8405
0
        td->td_stripbytecount_p = NULL;
8406
0
        td->td_stripoffsetbyteallocsize = 0;
8407
0
        tif->tif_flags &= ~TIFF_LAZYSTRILELOAD;
8408
0
    }
8409
8410
    /* If stripoffset array is already loaded, exit with success */
8411
0
    if (td->td_stripoffset_p != NULL)
8412
0
        return 1;
8413
8414
    /* If tdir_count was canceled, then we already got there, but in error */
8415
0
    if (td->td_stripoffset_entry.tdir_count == 0)
8416
0
        return 0;
8417
8418
0
    if (!TIFFFetchStripThing(tif, &(td->td_stripoffset_entry), td->td_nstrips,
8419
0
                             &td->td_stripoffset_p))
8420
0
    {
8421
0
        return_value = 0;
8422
0
    }
8423
8424
0
    if (loadStripByteCount &&
8425
0
        !TIFFFetchStripThing(tif, &(td->td_stripbytecount_entry),
8426
0
                             td->td_nstrips, &td->td_stripbytecount_p))
8427
0
    {
8428
0
        return_value = 0;
8429
0
    }
8430
8431
0
    _TIFFmemset(&(td->td_stripoffset_entry), 0, sizeof(TIFFDirEntry));
8432
0
    _TIFFmemset(&(td->td_stripbytecount_entry), 0, sizeof(TIFFDirEntry));
8433
8434
#ifdef STRIPBYTECOUNTSORTED_UNUSED
8435
    if (tif->tif_dir.td_nstrips > 1 && return_value == 1)
8436
    {
8437
        uint32_t strip;
8438
8439
        tif->tif_dir.td_stripbytecountsorted = 1;
8440
        for (strip = 1; strip < tif->tif_dir.td_nstrips; strip++)
8441
        {
8442
            if (tif->tif_dir.td_stripoffset_p[strip - 1] >
8443
                tif->tif_dir.td_stripoffset_p[strip])
8444
            {
8445
                tif->tif_dir.td_stripbytecountsorted = 0;
8446
                break;
8447
            }
8448
        }
8449
    }
8450
#endif
8451
8452
0
    return return_value;
8453
0
}