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

* compiles with BP

Browse Source
This commit is contained in:
pierre 1999-12-23 12:17:37 +00:00
parent 5c3c5dfb83
commit 408c5a7a3a
2 changed files with 14 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
tests/test/testchar.pp
View File

@ -126,21 +126,29 @@ begin
testvalueconv(car6_1);
getmem(pc,256);
pc:='Long Test';
{$ifdef FPC this is not allowed in BP !}
testvalueconv(pc);
{$endif def FPC this is not allowed in BP !}
testconstconv('AB');
testconstconv('ABCDEFG');
testconstconv(st4_1);
testconstconv(cst6_2);
{$ifdef FPC this is not allowed in BP !}
testconstconv(pc);
{$endif def FPC this is not allowed in BP !}
testvarconv(st4_2);
testvarconv(cst4_1);
{$ifdef FPC this is not allowed in BP !}
testvarconv(st6_1);
testvarconv(cst8_1);
{$endif def FPC this is not allowed in BP !}
{ testvarconv(pc); this one fails at compilation }
testvarconv2(st4_2);
testvarconv2(cst4_1);
{$ifdef FPC this is not allowed in BP !}
testvarconv2(st6_1);
testvarconv2(cst8_1);
{$endif def FPC this is not allowed in BP !}
if has_errors then
begin
Writeln('There are still problems with arrays of char');

18
tests/test/testchr2.pp
View File

@ -60,14 +60,6 @@ const
Error('string length too big in calling var arg');
end;
procedure testvarconv2(var st : string4);
begin
Writeln('st=',st);
Writeln('Length(st)=',Length(st));
If Length(st)>4 then
Error('string length too big in calling var arg without openstring');
end;
begin
{ compare array of char to constant strings }
Writeln('Testing if "',car4_1,'" is equal to "',cst4_1,'"');
@ -125,21 +117,23 @@ begin
testvalueconv(car6_1);
getmem(pc,256);
pc:='Long Test';
{$ifdef FPC this is not allowed in BP !}
testvalueconv(pc);
{$endif def FPC this is not allowed in BP !}
testconstconv('AB');
testconstconv('ABCDEFG');
testconstconv(st4_1);
testconstconv(cst6_2);
{$ifdef FPC this is not allowed in BP !}
testconstconv(pc);
{$endif def FPC this is not allowed in BP !}
testvarconv(st4_2);
testvarconv(cst4_1);
{$ifdef FPC this is not allowed in BP !}
testvarconv(st6_1);
testvarconv(cst8_1);
{$endif def FPC this is not allowed in BP !}
{ testvarconv(pc); this one fails at compilation }
testvarconv2(st4_2);
testvarconv2(cst4_1);
testvarconv2(st6_1);
testvarconv2(cst8_1);
if has_errors then
begin
Writeln('There are still problems with arrays of char');