Remove needless typecasts to unbreak the build against both current

and future versions of OCaml.
This commit is contained in:
Alexey Dokuchaev 2019-06-14 12:19:15 +00:00
parent 851eda4894
commit d4e6a4c980
Notes: svn2git 2021-03-31 03:12:20 +00:00
svn path=/head/; revision=504180

View File

@ -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);