OpenEuphoria

ECW weird behavior

• Posted by André Drummond <andre_drummond at bol.com.br> Oct 14, 2005
• 504 views

Hi folks,

I bumped into a singular problem working with euphoria to C translator.

I´m using the GD library to create some gif images, and it seems not to work
when the program is translated to C (then compiled with Borland).

The following function (from GD wrapper gd.e) could only work after I introduced
the "if 1 then end if" statement below:

global function gdImageCreateFromGif(sequence fd)
atom lpfd, ret, str, mode, oldmode
	if equal(fd, GD_FILE_STDIO) then
		if platform() = 2 then
			oldmode = c_func(setmode, {0, #8000})
		end if
		mode = allocate_string("rb")
		lpfd = c_func(fdopen, {0, mode})
	else
		str = allocate_string(fd)
		mode = allocate_string("rb")
		lpfd = c_func(fopen, {str, mode})
		free(str)
	end if
	free(mode)
	if lpfd = 0 then
		return 0
	end if
	ret = c_func(GdImageCreateFromGif, {lpfd})
	str = c_func(fclose, {lpfd})

	-- Look Here!!!	
	if 1 then	end if
	--

	if equal(fd, GD_FILE_STDIO) and platform() = 2 then
		oldmode = c_func(setmode, {0, oldmode})
	end if
	return ret
end function

 
The same thing happens with this other procedure (also in gd.e):

global procedure gdImageGif(gdImagePtr im, sequence out)
	atom lpfd, str, mode, oldmode
	if equal(out, GD_FILE_STDIO) then
		if platform() = 2 then
			oldmode = c_func(setmode, {1, #8000})
		end if
		mode = allocate_string("wb")
		lpfd = c_func(fdopen, {1, mode})
	else
		str = allocate_string(out)
		mode = allocate_string("wb")
		lpfd = c_func(fopen, {str, mode})
		free(str)
	end if
	free(mode)
	if lpfd = 0 then
		return
	end if
	c_proc(GdImageGif, {im, lpfd})
	str = c_func(fclose, {lpfd})

	-- Look Here!!!	
	if 1 then	end if
	--

	if equal(out, GD_FILE_STDIO) and platform() = 2 then
		oldmode = c_func(setmode, {1, oldmode})
	end if
end procedure

If I run the program with exw it works fine, but if I translate it them is
doesn´t work... I narrow down the bug to those two pieces of code presented. By
bebugging it I see that any usual command before the "Look Here!!!" points leads
to an machine error.

Then, I desperately try to introduce the dummy line "if 1 then end if" and see
what happens then, for my surprise, it started to work.

Does anyone have a clue of whats happening?

Thanks in advance,
André Drummond