TOL crashes with common code lines

[César Pérez Álvarez]

If we prove this lines:

Real SqlProParInsert(Set reg)

{

Text process = SqlFormatText(reg->Process, GesAct);
Text nParam = SqlFormatReal(reg->NParam, GesAct);
Text processParamType = SqlFormatText(reg->ProcessParamType, GesAct);
Text description = SqlFormatText(reg->TDescription, GesAct);

Set recordIns = SetOfText
(

process,
nParam,
processParamType,
description

);
Text values = UnionItem(recordIns, ",");
Text query = "insert into values ("+values+");";
Text WriteLn("Insertando el registro en BD: <"+query+">");
Real SqlDBExecQuery(query)

};

TOL crashes without an explication.

[danirus]

This bug has been fixed. The changes are already on the CVS.

The problem was that "SqlProParInsert" name collides in the Symbols Table with
one Struct object. From now on, different names in operator== (the Hash Table
method that compares two objects) returns false, avoiding any other objects
data comparation.