Coverage Report

Created: 2026-07-25 06:50

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