Coverage Report

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