mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-18 02:09:14 +02:00
* Fix formatfloat in case E not followed by +/- (bug id 35297)
git-svn-id: trunk@41803 -
This commit is contained in:
parent
ee177eab1f
commit
1951aff5a4
@ -369,6 +369,8 @@ begin
|
||||
'e', 'E':
|
||||
begin
|
||||
ToResult(C); // Always needed
|
||||
if IsScientific then
|
||||
begin
|
||||
Inc(I);
|
||||
if I<=Section.Length then
|
||||
begin
|
||||
@ -382,6 +384,7 @@ begin
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
else
|
||||
ToResult(C);
|
||||
end;
|
||||
|
Loading…
Reference in New Issue
Block a user