paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-03 09:09:26 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed '1.' parsing of val

Browse Source
This commit is contained in:
peter 1999-04-01 22:11:50 +00:00
parent cf8fef1b47
commit 79abf0ac4f
1 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
rtl/inc/sstrings.inc
View File

@ -536,12 +536,6 @@ begin
begin
hd:=0.1;
inc(code);
{ After dot, a number is required. }
if not(s[code] in ['0'..'9']) or (length(s)<code) then
begin
valfloat:=0.0;
exit;
end;
while (s[code] in ['0'..'9']) and (length(s)>=code) do
begin
{ Read fractional part. }
@ -1201,7 +1195,10 @@ end;
{
$Log$
Revision 1.24 1999-04-01 22:00:49 peter
Revision 1.25 1999-04-01 22:11:50 peter
* fixed '1.' parsing of val
Revision 1.24 1999/04/01 22:00:49 peter
* universal names for str/val (ansistr instead of stransi)
* '1.' support for val() this is compatible with tp7