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