[fpc-devel] Valgrind Val

[petr.kristan at epos.cz]

This program runed in valgrind brings on error:

program val;
var
  n, e: Integer;
begin
  System.Val('', n, e);
end.


==18377== Conditional jump or move depends on uninitialised value(s)
==18377==    at 0x804EDC5:
SYSTEM_INITVAL$SHORTSTRING$BOOLEAN$BYTE$$LONGINT (sstrings.inc:768)
==18377==    by 0x804EEDA: fpc_val_sint_shortstr (sstrings.inc:819)
==18377==    by 0x805171A: fpc_val_sint_ansistr (astrings.inc:881)
==18377==    by 0x804827C: main (val.pas:5)

Problem is that InitVal does not take into account empty string.
And this little patch solves this for me.

Petr

-- 
Ing. Petr Kristan
.
EPOS PRO s.r.o., Bozeny Nemcove 2625, 530 02 Pardubice
tel: +420 466335223    Czech Republic (Eastern Europe) 
fax: +420 466510709
-------------- next part --------------
A non-text attachment was scrubbed...
Name: val.patch
Type: text/x-diff
Size: 667 bytes
Desc: not available
URL: <http://lists.freepascal.org/pipermail/fpc-devel/attachments/20080331/f1396c85/attachment.patch>