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

* typed const string loading

Browse Source
This commit is contained in:
peter 2000-05-17 17:10:44 +00:00
parent 6029115a7d
commit f1ce0b4cb6
2 changed files with 46 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/test/readme.txt
View File

@ -5,8 +5,10 @@ Shortstrings .......... teststr.pp compatibility and speed of
string functions
teststr2.pp some misc. tests mainly collected
from bug reports
testcstr.pp Typed Constant string loading from
other constants
Ansistrings ........... testansi.pp
testa2.pp
testa2.pp
Classes ............... testdom.pp
Exceptions ............ testexc.pp
testexc2.pp

43
tests/test/testcstr.pp Normal file
View File

@ -0,0 +1,43 @@
program testcstr;
{$mode objfpc}
resourcestring
RsFDivFlawed = 'Res1';
RsFDivOK = 'Res2';
const
c1 = 'A';
c2 = 'B';
s1 = 'String1';
s2 = 'String2';
FDIVResStringS : array [0..1] of shortstring = (RsFDivFlawed, RsFDivOK);
FDIVResStringsA : array [0..1] of ansistring = (RsFDivFlawed, RsFDivOK);
FDivChars : array [0..1] of shortstring = (c1,c2);
FDivCharsA : array [0..1] of ansistring = (c1,c2);
FDIVStringS : array [0..1] of shortstring = (s1,s2);
FDIVStringsA : array [0..1] of ansistring = (s1,s2);
var
error : integer;
begin
error:=0;
if Fdivresstrings[0]<>'Res1' then
inc(error);
if FdivresstringsA[1]<>'Res2' then
inc(error);
if FdivChars[0]<>'A' then
inc(error);
if FdivCharsA[1]<>'B' then
inc(error);
if Fdivstrings[0]<>'String1' then
inc(error);
if FdivstringsA[1]<>'String2' then
inc(error);
if error>0 then
begin
writeln(error,' errors with constant strings');
halt(1);
end;
end.