diff options
author | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-05-28 12:30:41 +0000 |
---|---|---|
committer | marco <marco@3ad0048d-3df7-0310-abae-a5850022a9f2> | 2016-05-28 12:30:41 +0000 |
commit | 086f5bf108b11c927c03fc81469e58778bddabf1 (patch) | |
tree | 105fca99caf456e605cacc57d90cea69e3d68bc4 | |
parent | 7e1afceceb296acfd99b0d7b863bb09bd998bd72 (diff) | |
download | fpc-086f5bf108b11c927c03fc81469e58778bddabf1.tar.gz |
# revisions: 31603
git-svn-id: http://svn.freepascal.org/svn/fpc/branches/fixes_3_0@33834 3ad0048d-3df7-0310-abae-a5850022a9f2
-rw-r--r-- | rtl/objpas/sysutils/sysstrh.inc | 2 | ||||
-rw-r--r-- | tests/webtbs/tw28650.pp | 20 |
2 files changed, 21 insertions, 1 deletions
diff --git a/rtl/objpas/sysutils/sysstrh.inc b/rtl/objpas/sysutils/sysstrh.inc index 9ce1c6f67f..e880d8e8f4 100644 --- a/rtl/objpas/sysutils/sysstrh.inc +++ b/rtl/objpas/sysutils/sysstrh.inc @@ -19,7 +19,7 @@ {==============================================================================} type - PString = ^String; + PString = ObjPas.PString; { For FloatToText } TFloatFormat = (ffGeneral, ffExponent, ffFixed, ffNumber, ffCurrency); diff --git a/tests/webtbs/tw28650.pp b/tests/webtbs/tw28650.pp new file mode 100644 index 0000000000..061f8ab7a6 --- /dev/null +++ b/tests/webtbs/tw28650.pp @@ -0,0 +1,20 @@ +unit tw28650; + +{$mode objfpc}{$H+} + +interface + +function Test: PString; + +implementation + +uses + SysUtils; + +function Test: PString; +begin + +end; + +end. + |