paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-16 13:28:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

Add test for small records for 1 to 8 bytes in size passing to procedures

Browse Source 
git-svn-id: trunk@38503 -
This commit is contained in:
pierre 2018-03-11 22:06:29 +00:00
parent 8b0bbdcaab
commit 640f7fbf94
2 changed files with 176 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -12008,6 +12008,7 @@ tests/test/cg/traise6.pp svneol=native#text/plain
tests/test/cg/treadwrt.pp svneol=native#text/plain
tests/test/cg/tsar1.pp svneol=native#text/pascal
tests/test/cg/tshlshr.pp svneol=native#text/plain
tests/test/cg/tsmallrec.pp svneol=native#text/plain
tests/test/cg/tstr.pp svneol=native#text/plain
tests/test/cg/tsubst.pp svneol=native#text/plain
tests/test/cg/ttincdec.pp svneol=native#text/plain

175
tests/test/cg/tsmallrec.pp Normal file
View File

@ -0,0 +1,175 @@
program test_small_records;
type
rec1 = record
c1 : char;
end;
rec2 = record
c1,c2 : char;
end;
rec3 = record
c1,c2,c3 : char;
end;
rec4 = record
c1,c2,c3,c4 : char;
end;
rec5 = record
c1,c2,c3,c4,c5 : char;
end;
rec6 = record
c1,c2,c3,c4,c5,c6 : char;
end;
rec7 = record
c1,c2,c3,c4,c5,c6,c7 : char;
end;
rec8 = record
c1,c2,c3,c4,c5,c6,c7,c8 : char;
end;
const
r1 : rec1 = ( c1 : 'a' );
r2 : rec2 = ( c1 : 'a'; c2 : 'b' );
r3 : rec3 = ( c1 : 'a'; c2 : 'b'; c3 : 'c' );
r4 : rec4 = ( c1 : 'a'; c2 : 'b'; c3 : 'c'; c4 : 'd' );
r5 : rec5 = ( c1 : 'a'; c2 : 'b'; c3 : 'c'; c4 : 'd'; c5 : 'e' );
r6 : rec6 = ( c1 : 'a'; c2 : 'b'; c3 : 'c'; c4 : 'd'; c5 : 'e'; c6 : 'f' );
r7 : rec7 = ( c1 : 'a'; c2 : 'b'; c3 : 'c'; c4 : 'd'; c5 : 'e'; c6 : 'f'; c7 : 'g' );
r8 : rec8 = ( c1 : 'a'; c2 : 'b'; c3 : 'c'; c4 : 'd'; c5 : 'e'; c6 : 'f'; c7 : 'g'; c8 : 'h' );
haserrors : boolean = false;
procedure seterror(size:byte);
begin
writeln('Error for size ',size);
haserrors:=true;
end;
procedure test_r1(r : rec1);
begin
if (r.c1<>r1.c1) then
seterror(sizeof(rec1));
end;
procedure test_r2(r : rec2);
begin
if (r.c1<>r2.c1) or (r.c2<>r2.c2) then
seterror(sizeof(rec2));
end;
procedure test_r3(r : rec3);
begin
if (r.c1<>r3.c1) or (r.c2<>r3.c2) or (r.c3<>r3.c3) then
seterror(sizeof(rec3));
end;
procedure test_r4(r : rec4);
begin
if (r.c1<>r4.c1) or (r.c2<>r4.c2) or (r.c3<>r4.c3) or (r.c4<>r4.c4) then
seterror(sizeof(rec4));
end;
procedure test_r5(r : rec5);
begin
if (r.c1<>r5.c1) or (r.c2<>r5.c2) or (r.c3<>r5.c3) or (r.c4<>r5.c4) or (r.c5<>r5.c5) then
seterror(sizeof(rec5));
end;
procedure test_r6(r : rec6);
begin
if (r.c1<>r6.c1) or (r.c2<>r6.c2) or (r.c3<>r6.c3) or (r.c4<>r6.c4) or (r.c5<>r6.c5) or (r.c6<>r6.c6) then
seterror(sizeof(rec6));
end;
procedure test_r7(r : rec7);
begin
if (r.c1<>r7.c1) or (r.c2<>r7.c2) or (r.c3<>r7.c3) or (r.c4<>r7.c4) or (r.c5<>r7.c5) or (r.c6<>r7.c6) or (r.c7<>r7.c7) then
seterror(sizeof(rec7));
end;
procedure test_r8(r : rec8);
begin
if (r.c1<>r8.c1) or (r.c2<>r8.c2) or (r.c3<>r8.c3) or (r.c4<>r8.c4) or (r.c5<>r8.c5) or (r.c6<>r8.c6) or (r.c7<>r8.c7) or (r.c8<>r8.c8) then
seterror(sizeof(rec8));
end;
procedure test_long_r1(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec1);
begin
if (r.c1<>r1.c1) then
seterror(sizeof(rec1));
end;
procedure test_long_r2(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec2);
begin
if (r.c1<>r2.c1) or (r.c2<>r2.c2) then
seterror(sizeof(rec2));
end;
procedure test_long_r3(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec3);
begin
if (r.c1<>r3.c1) or (r.c2<>r3.c2) or (r.c3<>r3.c3) then
seterror(sizeof(rec3));
end;
procedure test_long_r4(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec4);
begin
if (r.c1<>r4.c1) or (r.c2<>r4.c2) or (r.c3<>r4.c3) or (r.c4<>r4.c4) then
seterror(sizeof(rec4));
end;
procedure test_long_r5(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec5);
begin
if (r.c1<>r5.c1) or (r.c2<>r5.c2) or (r.c3<>r5.c3) or (r.c4<>r5.c4) or (r.c5<>r5.c5) then
seterror(sizeof(rec5));
end;
procedure test_long_r6(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec6);
begin
if (r.c1<>r6.c1) or (r.c2<>r6.c2) or (r.c3<>r6.c3) or (r.c4<>r6.c4) or (r.c5<>r6.c5) or (r.c6<>r6.c6) then
seterror(sizeof(rec6));
end;
procedure test_long_r7(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec7);
begin
if (r.c1<>r7.c1) or (r.c2<>r7.c2) or (r.c3<>r7.c3) or (r.c4<>r7.c4) or (r.c5<>r7.c5) or (r.c6<>r7.c6) or (r.c7<>r7.c7) then
seterror(sizeof(rec7));
end;
procedure test_long_r8(r_1,r_2,r_3,r_4,r_5,r_6,r_7,r_8,r9,r10,r11,r12,r13,r14,r15,r16,r17,r18,r19,r20,r : rec8);
begin
if (r.c1<>r8.c1) or (r.c2<>r8.c2) or (r.c3<>r8.c3) or (r.c4<>r8.c4) or (r.c5<>r8.c5) or (r.c6<>r8.c6) or (r.c7<>r8.c7) or (r.c8<>r8.c8) then
seterror(sizeof(rec8));
end;
begin
test_r1(r1);
test_r2(r2);
test_r3(r3);
test_r4(r4);
test_r5(r5);
test_r6(r6);
test_r7(r7);
test_r8(r8);
test_long_r1(r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1,r1);
test_long_r2(r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2,r2);
test_long_r3(r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3,r3);
test_long_r4(r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4,r4);
test_long_r5(r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5,r5);
test_long_r6(r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6,r6);
test_long_r7(r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7,r7);
test_long_r8(r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8,r8);
if not haserrors then
writeln('Test successful')
else
begin
writeln('There are errors in the generated code');
halt(1);
end;
end.