paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-12 17:49:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* print literal e/E in formatfloat if not followed by +/- (remaining part of

Browse Source 
mantis #22290)

git-svn-id: trunk@22248 -
This commit is contained in:
Jonas Maebe 2012-08-26 14:51:32 +00:00
parent e073bf3008
commit 193c7af57f
3 changed files with 13 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -12789,6 +12789,7 @@ tests/webtbs/tw22154.pp svneol=native#text/pascal
tests/webtbs/tw2220.pp svneol=native#text/plain
tests/webtbs/tw2226.pp svneol=native#text/plain
tests/webtbs/tw2229.pp svneol=native#text/plain
tests/webtbs/tw22290.pp svneol=native#text/plain
tests/webtbs/tw22320.pp svneol=native#text/plain
tests/webtbs/tw22326.pp svneol=native#text/plain
tests/webtbs/tw22329.pp svneol=native#text/pascal

6
rtl/objpas/sysutils/sysstr.inc
View File

@ -2064,7 +2064,11 @@ Var
Inc(Fmt);
End;
End;
End;
End
Else
{ just e/E without subsequent +/- -> not exponential format,
but we have to simply print e/E literally }
ExpFmt:=0;
End
Else
Inc(Fmt);

7
tests/webtbs/tw22290.pp Normal file
View File

@ -0,0 +1,7 @@
uses
SysUtils;
begin
if formatfloat('0e',-1)<>'-1e' then
halt(1);
end.