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

# revisions: 31603

Browse Source 
git-svn-id: branches/fixes_3_0@33834 -
This commit is contained in:
marco 2016-05-28 12:30:41 +00:00
parent bfcff22749
commit ee70e17823
3 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -14542,6 +14542,7 @@ tests/webtbs/tw2853e.pp svneol=native#text/plain
tests/webtbs/tw2859.pp svneol=native#text/plain tests/webtbs/tw2859.pp svneol=native#text/plain
tests/webtbs/tw28593.pp svneol=native#text/plain tests/webtbs/tw28593.pp svneol=native#text/plain
tests/webtbs/tw2865.pp svneol=native#text/plain tests/webtbs/tw2865.pp svneol=native#text/plain
tests/webtbs/tw28650.pp svneol=native#text/pascal
tests/webtbs/tw28674.pp svneol=native#text/pascal tests/webtbs/tw28674.pp svneol=native#text/pascal
tests/webtbs/tw28702.pp svneol=native#text/plain tests/webtbs/tw28702.pp svneol=native#text/plain
tests/webtbs/tw28718a.pp svneol=native#text/plain tests/webtbs/tw28718a.pp svneol=native#text/plain

2
rtl/objpas/sysutils/sysstrh.inc
View File

@ -19,7 +19,7 @@
{==============================================================================} {==============================================================================}
type type
PString = ^String; PString = ObjPas.PString;
{ For FloatToText } { For FloatToText }
TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency); TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency);

20
tests/webtbs/tw28650.pp Normal file
View File

@ -0,0 +1,20 @@
unit tw28650;
{$mode objfpc}{$H+}
interface
function Test: PString;
implementation
uses
SysUtils;
function Test: PString;
begin
end;
end.