--- /dev/null
+(*
+ * param.pas - Test parameter passing.
+ *
+ * Copyright (C) 2004 Southern Storm Software, Pty Ltd.
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+ *)
+
+program local;
+
+var
+ failed: Boolean;
+
+procedure run(msg: String; value: Boolean);
+begin
+ Write(msg);
+ Write(" ... ");
+ if value then begin
+ WriteLn("ok");
+ end else begin
+ WriteLn("failed");
+ failed := True;
+ end;
+end;
+
+{ Test large numbers of 32-bit int parameters, which should stress
+ both register and stack parameter passing }
+procedure param_int
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: integer);
+begin
+ run("param_int",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+procedure param_int_fastcall
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: integer) fastcall;
+begin
+ run("param_int_fastcall",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+procedure param_int_stdcall
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: integer) stdcall;
+begin
+ run("param_int_stdcall",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+
+{ Test large numbers of 64-bit int parameters, which should stress
+ both register and stack parameter passing. On a 32-bit system,
+ parameters will be passed in pairs. If the test platform has an
+ odd number of word registers, then this will also test long
+ splitting on 32-bit systems }
+procedure param_long
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: longint);
+begin
+ run("param_long",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+procedure param_long_fastcall
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: longint) fastcall;
+begin
+ run("param_long_fastcall",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+procedure param_long_stdcall
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: longint) stdcall;
+begin
+ run("param_long_stdcall",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+
+{ Test long splitting on 32-bit systems that have an even
+ number of word registers }
+procedure param_int_long
+ (p1: integer; p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: longint);
+begin
+ run("param_int_long",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+procedure param_int_long_fastcall
+ (p1: integer; p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: longint) fastcall;
+begin
+ run("param_int_long_fastcall",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+procedure param_int_long_stdcall
+ (p1: integer; p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: longint) stdcall;
+begin
+ run("param_int_long_stdcall",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+
+{ Test passing 32-bit float values in registers and on the stack }
+procedure param_float32
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: shortreal);
+begin
+ run("param_float32",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+
+{ Test passing 64-bit float values in registers and on the stack }
+procedure param_float64
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: real);
+begin
+ run("param_float64",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+
+{ Test passing native float values in registers and on the stack }
+procedure param_nfloat
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: longreal);
+begin
+ run("param_nfloat",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32));
+end;
+
+{ Test passing both int and float64 parameters }
+procedure param_int_float64
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: integer;
+ q1, q2, q3, q4, q5, q6, q7, q8,
+ q9, q10, q11, q12, q13, q14, q15, q16,
+ q17, q18, q19, q20, q21, q22, q23, q24,
+ q25, q26, q27, q28, q29, q30, q31, q32: real);
+begin
+ run("param_int_float64",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32) and
+ (q1 = 1) and (q2 = 2) and (q3 = 3) and (q4 = 4) and
+ (q5 = 5) and (q6 = 6) and (q7 = 7) and (q8 = 8) and
+ (q9 = 9) and (q10 = 10) and (q11 = 11) and (q12 = 12) and
+ (q13 = 13) and (q14 = 14) and (q15 = 15) and (q16 = 16) and
+ (q17 = 17) and (q18 = 18) and (q19 = 19) and (q20 = 20) and
+ (q21 = 21) and (q22 = 22) and (q23 = 23) and (q24 = 24) and
+ (q25 = 25) and (q26 = 26) and (q27 = 27) and (q28 = 28) and
+ (q29 = 29) and (q30 = 30) and (q31 = 31) and (q32 = 32));
+end;
+
+{ Test passing both int and float64 parameters, reversed from above }
+procedure param_float64_int
+ (p1, p2, p3, p4, p5, p6, p7, p8,
+ p9, p10, p11, p12, p13, p14, p15, p16,
+ p17, p18, p19, p20, p21, p22, p23, p24,
+ p25, p26, p27, p28, p29, p30, p31, p32: real;
+ q1, q2, q3, q4, q5, q6, q7, q8,
+ q9, q10, q11, q12, q13, q14, q15, q16,
+ q17, q18, q19, q20, q21, q22, q23, q24,
+ q25, q26, q27, q28, q29, q30, q31, q32: integer);
+begin
+ run("param_float64_int",
+ (p1 = 1) and (p2 = 2) and (p3 = 3) and (p4 = 4) and
+ (p5 = 5) and (p6 = 6) and (p7 = 7) and (p8 = 8) and
+ (p9 = 9) and (p10 = 10) and (p11 = 11) and (p12 = 12) and
+ (p13 = 13) and (p14 = 14) and (p15 = 15) and (p16 = 16) and
+ (p17 = 17) and (p18 = 18) and (p19 = 19) and (p20 = 20) and
+ (p21 = 21) and (p22 = 22) and (p23 = 23) and (p24 = 24) and
+ (p25 = 25) and (p26 = 26) and (p27 = 27) and (p28 = 28) and
+ (p29 = 29) and (p30 = 30) and (p31 = 31) and (p32 = 32) and
+ (q1 = 1) and (q2 = 2) and (q3 = 3) and (q4 = 4) and
+ (q5 = 5) and (q6 = 6) and (q7 = 7) and (q8 = 8) and
+ (q9 = 9) and (q10 = 10) and (q11 = 11) and (q12 = 12) and
+ (q13 = 13) and (q14 = 14) and (q15 = 15) and (q16 = 16) and
+ (q17 = 17) and (q18 = 18) and (q19 = 19) and (q20 = 20) and
+ (q21 = 21) and (q22 = 22) and (q23 = 23) and (q24 = 24) and
+ (q25 = 25) and (q26 = 26) and (q27 = 27) and (q28 = 28) and
+ (q29 = 29) and (q30 = 30) and (q31 = 31) and (q32 = 32));
+end;
+
+{ Test passing both int and float 64 parameters, alternatively mixed }
+procedure param_int_float64_mixed
+ ( p1: integer; q1: real; p2: integer; q2: real;
+ p3: integer; q3: real; p4: integer; q4: real;
+ p5: integer; q5: real; p6: integer; q6: real;
+ p7: integer; q7: real; p8: integer; q8: real;
+ p9: integer; q9: real; p10: integer; q10: real;
+ p11: integer; q11: real; p12: integer; q12: real;
+ p13: integer; q13: real; p14: integer; q14: real;
+ p15: integer; q15: real; p16: integer; q16: real;
+ p17: integer; q17: real; p18: integer; q18: real;
+ p19: integer; q19: real; p20: integer; q20: real;
+ p21: integer; q21: real; p22: integer; q22: real;
+ p23: integer; q23: real; p24: integer; q24: real;
+ p25: integer; q25: real; p26: integer; q26: real;
+ p27: integer; q27: real; p28: integer; q28: real;
+ p29: integer; q29: real; p30: integer; q30: real;
+ p31: integer; q31: real; p32: integer; q32: real);
+begin
+ run("param_int_float64_mixed",
+ (p1 = 1) and (q1 = 2) and (p2 = 3) and (q2 = 4) and
+ (p3 = 5) and (q3 = 6) and (p4 = 7) and (q4 = 8) and
+ (p5 = 9) and (q5 = 10) and (p6 = 11) and (q6 = 12) and
+ (p7 = 13) and (q7 = 14) and (p8 = 15) and (q8 = 16) and
+ (p9 = 17) and (q9 = 18) and (p10 = 19) and (q10 = 20) and
+ (p11 = 21) and (q11 = 22) and (p12 = 23) and (q12 = 24) and
+ (p13 = 25) and (q13 = 26) and (p14 = 27) and (q14 = 28) and
+ (p15 = 29) and (q15 = 30) and (p16 = 31) and (q16 = 32) and
+ (p17 = 1) and (q17 = 2) and (p18 = 3) and (q18 = 4) and
+ (p19 = 5) and (q19 = 6) and (p20 = 7) and (q20 = 8) and
+ (p21 = 9) and (q21 = 10) and (p22 = 11) and (q22 = 12) and
+ (p23 = 13) and (q23 = 14) and (p24 = 15) and (q24 = 16) and
+ (p25 = 17) and (q25 = 18) and (p26 = 19) and (q26 = 20) and
+ (p27 = 21) and (q27 = 22) and (p28 = 23) and (q28 = 24) and
+ (p29 = 25) and (q29 = 26) and (p30 = 27) and (q30 = 28) and
+ (p31 = 29) and (q31 = 30) and (p32 = 31) and (q32 = 32));
+end;
+
+procedure run_tests;
+begin
+ param_int
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_int_fastcall
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_int_stdcall
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+
+ param_long
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_long_fastcall
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_long_stdcall
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+
+ param_int_long
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_int_long_fastcall
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_int_long_stdcall
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+
+ param_float32
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_float64
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_nfloat
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+
+ param_int_float64
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
+ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_float64_int
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
+ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+ param_int_float64_mixed
+ (1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
+ 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16,
+ 17, 18, 19, 20, 21, 22, 23, 24, 25, 26, 27, 28, 29, 30, 31, 32);
+end;
+
+begin
+ failed := False;
+ run_tests;
+ if failed then begin
+ Terminate(1);
+ end;
+end.
projects / francis / libjit.git / commitdiff