Bug#670868: create_RGB_surface ignores flags

[Goswin von Brederlow <goswin-v-b@web.de>]

Package: ocamlsdl
Version: 0.8.0
Severity: important

Hi,

for purposes of blitting (copying) images with alpha channel I'm
trying to create an RGBA surface without `SRCALPHA set (so the alpha
channel is copied verbatim). But it seems the format flags are
completly ignored:

# let img3 = create_RGB_surface [`SRCCOLORKEY] ~w:w ~h:h ~bpp:32
  ~rmask:0x00FF0000l ~gmask:0x0000FF00l ~bmask:0x000000FFl ~amask:0xFF000000l;;
  val img3 : Sdlvideo.surface = <abstr>
# surface_info img3;;
- : Sdlvideo.surface_info =
{flags = [`SWSURFACE; `SRCALPHA]; w = 16; h = 16; pitch = 64;
 clip_rect = {r_x = 0; r_y = 0; r_w = 16; r_h = 16}; refcount = 1}

MfG
	Goswin

-- System Information:
Debian Release: wheezy/sid
  APT prefers unstable
  APT policy: (500, 'unstable')
Architecture: amd64 (x86_64)

Kernel: Linux 3.2.0-2-amd64 (SMP w/4 CPU cores)
Locale: LANG=C, LC_CTYPE=de_DE (charmap=ISO-8859-1)
Shell: /bin/sh linked to /bin/dash