[fpc-pascal] Funny bug with function result

[Lukas Gebauer]

FYI. I know, assigning Result to Result on end of function is really not 
usefull (it is my error), but why FPC is confused from this action and 
returned result is bad?

On Delphi is all OK if this line exists (and is removed by code 
optimalization).

------- Forwarded message follows -------
Komu:           	synalist at yahoogroups.com
Od:             	"Jon" <gianniblitz at yahoo.co.uk>
Datum odeslani: 	Fri, 07 Jan 2005 12:59:40 -0000
Vec:            	[synalist] Bug in SynaUtil

Using Synapse with Free Pascal Compiler produces incorrect results.

I tracked the bug to SynaUtil:

Version 004.006.007 - latest SynaSnap
function FetchEx
line 1442:
Result := Result;

If I remove this line, all works well - and with Delphi too.






 
Yahoo! Groups Links

<*> To visit your group on the web, go to:
    http://groups.yahoo.com/group/synalist/

<*> To unsubscribe from this group, send an email to:
    synalist-unsubscribe at yahoogroups.com

<*> Your use of Yahoo! Groups is subject to:
    http://docs.yahoo.com/info/terms/
 




------- End of forwarded message -------
--
Lukas Gebauer.

E-mail: gebauerl at mlp.cz
WEB: http://www.ararat.cz/synapse - Synapse Delphi and Kylix TCP/IP Library