Remove needless typecasts to unbreak the build against both current
and future versions of OCaml.
This commit is contained in:
parent
851eda4894
commit
d4e6a4c980
Notes:
svn2git
2021-03-31 03:12:20 +00:00
svn path=/head/; revision=504180
@ -26,3 +26,14 @@
|
||||
|
||||
extern value *imglib_error;
|
||||
|
||||
@@ -56,8 +63,8 @@ value open_tiff_file_for_write( value file,
|
||||
/* Resolution */
|
||||
/* FillOrder */
|
||||
|
||||
- TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, (uint32) image_width);
|
||||
- TIFFSetField(tif, TIFFTAG_IMAGELENGTH, (uint32) image_height);
|
||||
+ TIFFSetField(tif, TIFFTAG_IMAGEWIDTH, image_width);
|
||||
+ TIFFSetField(tif, TIFFTAG_IMAGELENGTH, image_height);
|
||||
TIFFSetField(tif, TIFFTAG_ORIENTATION, ORIENTATION_TOPLEFT);
|
||||
TIFFSetField(tif, TIFFTAG_SAMPLESPERPIXEL, 3);
|
||||
TIFFSetField(tif, TIFFTAG_BITSPERSAMPLE, 8);
|
||||
|
Loading…
Reference in New Issue
Block a user