| ... | ... | @@ -104,10 +104,6 @@ export fn zig_struct_u128(a: U128) void { |
| 104 | 104 | expect(a.value == 0xfffffffffffffffc) catch @panic("test failure: zig_struct_u128"); |
| 105 | 105 | } |
| 106 | 106 | |
| 107 | | extern fn c_f32(f32) void; |
| 108 | | extern fn c_f64(f64) void; |
| 109 | | extern fn c_long_double(c_longdouble) void; |
| 110 | | |
| 111 | 107 | // On windows x64, the first 4 are passed via registers, others on the stack. |
| 112 | 108 | extern fn c_five_floats(f32, f32, f32, f32, f32) void; |
| 113 | 109 | |
| ... | ... | @@ -120,28 +116,9 @@ export fn zig_five_floats(a: f32, b: f32, c: f32, d: f32, e: f32) void { |
| 120 | 116 | } |
| 121 | 117 | |
| 122 | 118 | test "floats" { |
| 123 | | c_f32(12.34); |
| 124 | | c_f64(56.78); |
| 125 | 119 | c_five_floats(1.0, 2.0, 3.0, 4.0, 5.0); |
| 126 | 120 | } |
| 127 | 121 | |
| 128 | | test "long double" { |
| 129 | | if (builtin.cpu.arch.isPowerPC()) return error.SkipZigTest; |
| 130 | | |
| 131 | | c_long_double(12.34); |
| 132 | | } |
| 133 | | |
| 134 | | export fn zig_f32(x: f32) void { |
| 135 | | expect(x == 12.34) catch @panic("test failure: zig_f32"); |
| 136 | | } |
| 137 | | export fn zig_f64(x: f64) void { |
| 138 | | expect(x == 56.78) catch @panic("test failure: zig_f64"); |
| 139 | | } |
| 140 | | export fn zig_longdouble(x: c_longdouble) void { |
| 141 | | if (!builtin.target.cpu.arch.isWasm()) return; // waiting for #1481 |
| 142 | | expect(x == 12.34) catch @panic("test failure: zig_longdouble"); |
| 143 | | } |
| 144 | | |
| 145 | 122 | extern fn c_ptr(*anyopaque) void; |
| 146 | 123 | |
| 147 | 124 | test "pointer" { |
| ... | ... | @@ -269,6 +246,209 @@ export fn zig_cmultd_comp(a_r: f64, a_i: f64, b_r: f64, b_i: f64) ComplexDouble |
| 269 | 246 | return .{ .real = 1.5, .imag = 13.5 }; |
| 270 | 247 | } |
| 271 | 248 | |
| 249 | export fn zig_ret_f32() f32 { |
| 250 | return 1; |
| 251 | } |
| 252 | export fn zig_f32(f: f32, i: usize) void { |
| 253 | expect(f == 2) catch @panic("test failure"); |
| 254 | expect(i == 1) catch @panic("test failure"); |
| 255 | } |
| 256 | export fn zig_1_f32(_: usize, f: f32, i: usize) void { |
| 257 | expect(f == 3) catch @panic("test failure"); |
| 258 | expect(i == 2) catch @panic("test failure"); |
| 259 | } |
| 260 | export fn zig_2_f32(_: usize, _: usize, f: f32, i: usize) void { |
| 261 | expect(f == 4) catch @panic("test failure"); |
| 262 | expect(i == 3) catch @panic("test failure"); |
| 263 | } |
| 264 | export fn zig_3_f32(_: usize, _: usize, _: usize, f: f32, i: usize) void { |
| 265 | expect(f == 5) catch @panic("test failure"); |
| 266 | expect(i == 4) catch @panic("test failure"); |
| 267 | } |
| 268 | export fn zig_4_f32(_: usize, _: usize, _: usize, _: usize, f: f32, i: usize) void { |
| 269 | expect(f == 6) catch @panic("test failure"); |
| 270 | expect(i == 5) catch @panic("test failure"); |
| 271 | } |
| 272 | export fn zig_5_f32(_: usize, _: usize, _: usize, _: usize, _: usize, f: f32, i: usize) void { |
| 273 | expect(f == 7) catch @panic("test failure"); |
| 274 | expect(i == 6) catch @panic("test failure"); |
| 275 | } |
| 276 | export fn zig_6_f32(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: f32, i: usize) void { |
| 277 | expect(f == 8) catch @panic("test failure"); |
| 278 | expect(i == 7) catch @panic("test failure"); |
| 279 | } |
| 280 | export fn zig_7_f32(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: f32, i: usize) void { |
| 281 | expect(f == 9) catch @panic("test failure"); |
| 282 | expect(i == 8) catch @panic("test failure"); |
| 283 | } |
| 284 | export fn zig_8_f32(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: f32, i: usize) void { |
| 285 | expect(f == 10) catch @panic("test failure"); |
| 286 | expect(i == 9) catch @panic("test failure"); |
| 287 | } |
| 288 | |
| 289 | extern fn c_ret_f32() f32; |
| 290 | extern fn c_f32(f32, usize) void; |
| 291 | extern fn c_1_f32(usize, f32, usize) void; |
| 292 | extern fn c_2_f32(usize, usize, f32, usize) void; |
| 293 | extern fn c_3_f32(usize, usize, usize, f32, usize) void; |
| 294 | extern fn c_4_f32(usize, usize, usize, usize, f32, usize) void; |
| 295 | extern fn c_5_f32(usize, usize, usize, usize, usize, f32, usize) void; |
| 296 | extern fn c_6_f32(usize, usize, usize, usize, usize, usize, f32, usize) void; |
| 297 | extern fn c_7_f32(usize, usize, usize, usize, usize, usize, usize, f32, usize) void; |
| 298 | extern fn c_8_f32(usize, usize, usize, usize, usize, usize, usize, usize, f32, usize) void; |
| 299 | extern fn c_test_f32() void; |
| 300 | |
| 301 | test "f32" { |
| 302 | const f = c_ret_f32(); |
| 303 | try expect(f == 11); |
| 304 | c_f32(12, 1); |
| 305 | c_1_f32(0, 13, 2); |
| 306 | c_2_f32(0, 1, 14, 3); |
| 307 | c_3_f32(0, 1, 2, 15, 4); |
| 308 | c_4_f32(0, 1, 2, 3, 16, 5); |
| 309 | c_5_f32(0, 1, 2, 3, 4, 17, 6); |
| 310 | c_6_f32(0, 1, 2, 3, 4, 5, 18, 7); |
| 311 | c_7_f32(0, 1, 2, 3, 4, 5, 6, 19, 8); |
| 312 | c_8_f32(0, 1, 2, 3, 4, 5, 6, 7, 20, 9); |
| 313 | c_test_f32(); |
| 314 | } |
| 315 | |
| 316 | export fn zig_ret_f64() f64 { |
| 317 | return 1; |
| 318 | } |
| 319 | export fn zig_f64(f: f64, i: usize) void { |
| 320 | expect(f == 2) catch @panic("test failure"); |
| 321 | expect(i == 1) catch @panic("test failure"); |
| 322 | } |
| 323 | export fn zig_1_f64(_: usize, f: f64, i: usize) void { |
| 324 | expect(f == 3) catch @panic("test failure"); |
| 325 | expect(i == 2) catch @panic("test failure"); |
| 326 | } |
| 327 | export fn zig_2_f64(_: usize, _: usize, f: f64, i: usize) void { |
| 328 | expect(f == 4) catch @panic("test failure"); |
| 329 | expect(i == 3) catch @panic("test failure"); |
| 330 | } |
| 331 | export fn zig_3_f64(_: usize, _: usize, _: usize, f: f64, i: usize) void { |
| 332 | expect(f == 5) catch @panic("test failure"); |
| 333 | expect(i == 4) catch @panic("test failure"); |
| 334 | } |
| 335 | export fn zig_4_f64(_: usize, _: usize, _: usize, _: usize, f: f64, i: usize) void { |
| 336 | expect(f == 6) catch @panic("test failure"); |
| 337 | expect(i == 5) catch @panic("test failure"); |
| 338 | } |
| 339 | export fn zig_5_f64(_: usize, _: usize, _: usize, _: usize, _: usize, f: f64, i: usize) void { |
| 340 | expect(f == 7) catch @panic("test failure"); |
| 341 | expect(i == 6) catch @panic("test failure"); |
| 342 | } |
| 343 | export fn zig_6_f64(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: f64, i: usize) void { |
| 344 | expect(f == 8) catch @panic("test failure"); |
| 345 | expect(i == 7) catch @panic("test failure"); |
| 346 | } |
| 347 | export fn zig_7_f64(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: f64, i: usize) void { |
| 348 | expect(f == 9) catch @panic("test failure"); |
| 349 | expect(i == 8) catch @panic("test failure"); |
| 350 | } |
| 351 | export fn zig_8_f64(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: f64, i: usize) void { |
| 352 | expect(f == 10) catch @panic("test failure"); |
| 353 | expect(i == 9) catch @panic("test failure"); |
| 354 | } |
| 355 | |
| 356 | extern fn c_ret_f64() f64; |
| 357 | extern fn c_f64(f64, usize) void; |
| 358 | extern fn c_1_f64(usize, f64, usize) void; |
| 359 | extern fn c_2_f64(usize, usize, f64, usize) void; |
| 360 | extern fn c_3_f64(usize, usize, usize, f64, usize) void; |
| 361 | extern fn c_4_f64(usize, usize, usize, usize, f64, usize) void; |
| 362 | extern fn c_5_f64(usize, usize, usize, usize, usize, f64, usize) void; |
| 363 | extern fn c_6_f64(usize, usize, usize, usize, usize, usize, f64, usize) void; |
| 364 | extern fn c_7_f64(usize, usize, usize, usize, usize, usize, usize, f64, usize) void; |
| 365 | extern fn c_8_f64(usize, usize, usize, usize, usize, usize, usize, usize, f64, usize) void; |
| 366 | extern fn c_test_f64() void; |
| 367 | |
| 368 | test "f64" { |
| 369 | const f = c_ret_f64(); |
| 370 | try expect(f == 11); |
| 371 | c_f64(12, 1); |
| 372 | c_1_f64(0, 13, 2); |
| 373 | c_2_f64(0, 1, 14, 3); |
| 374 | c_3_f64(0, 1, 2, 15, 4); |
| 375 | c_4_f64(0, 1, 2, 3, 16, 5); |
| 376 | c_5_f64(0, 1, 2, 3, 4, 17, 6); |
| 377 | c_6_f64(0, 1, 2, 3, 4, 5, 18, 7); |
| 378 | c_7_f64(0, 1, 2, 3, 4, 5, 6, 19, 8); |
| 379 | c_8_f64(0, 1, 2, 3, 4, 5, 6, 7, 20, 9); |
| 380 | c_test_f64(); |
| 381 | } |
| 382 | |
| 383 | export fn zig_ret_longdouble() c_longdouble { |
| 384 | return 1; |
| 385 | } |
| 386 | export fn zig_longdouble(f: c_longdouble, i: usize) void { |
| 387 | expect(f == 2) catch @panic("test failure"); |
| 388 | expect(i == 1) catch @panic("test failure"); |
| 389 | } |
| 390 | export fn zig_1_longdouble(_: usize, f: c_longdouble, i: usize) void { |
| 391 | expect(f == 3) catch @panic("test failure"); |
| 392 | expect(i == 2) catch @panic("test failure"); |
| 393 | } |
| 394 | export fn zig_2_longdouble(_: usize, _: usize, f: c_longdouble, i: usize) void { |
| 395 | expect(f == 4) catch @panic("test failure"); |
| 396 | expect(i == 3) catch @panic("test failure"); |
| 397 | } |
| 398 | export fn zig_3_longdouble(_: usize, _: usize, _: usize, f: c_longdouble, i: usize) void { |
| 399 | expect(f == 5) catch @panic("test failure"); |
| 400 | expect(i == 4) catch @panic("test failure"); |
| 401 | } |
| 402 | export fn zig_4_longdouble(_: usize, _: usize, _: usize, _: usize, f: c_longdouble, i: usize) void { |
| 403 | expect(f == 6) catch @panic("test failure"); |
| 404 | expect(i == 5) catch @panic("test failure"); |
| 405 | } |
| 406 | export fn zig_5_longdouble(_: usize, _: usize, _: usize, _: usize, _: usize, f: c_longdouble, i: usize) void { |
| 407 | expect(f == 7) catch @panic("test failure"); |
| 408 | expect(i == 6) catch @panic("test failure"); |
| 409 | } |
| 410 | export fn zig_6_longdouble(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: c_longdouble, i: usize) void { |
| 411 | expect(f == 8) catch @panic("test failure"); |
| 412 | expect(i == 7) catch @panic("test failure"); |
| 413 | } |
| 414 | export fn zig_7_longdouble(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: c_longdouble, i: usize) void { |
| 415 | expect(f == 9) catch @panic("test failure"); |
| 416 | expect(i == 8) catch @panic("test failure"); |
| 417 | } |
| 418 | export fn zig_8_longdouble(_: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, _: usize, f: c_longdouble, i: usize) void { |
| 419 | expect(f == 10) catch @panic("test failure"); |
| 420 | expect(i == 9) catch @panic("test failure"); |
| 421 | } |
| 422 | |
| 423 | extern fn c_ret_longdouble() c_longdouble; |
| 424 | extern fn @"c_longdouble"(c_longdouble, usize) void; |
| 425 | extern fn c_1_longdouble(usize, c_longdouble, usize) void; |
| 426 | extern fn c_2_longdouble(usize, usize, c_longdouble, usize) void; |
| 427 | extern fn c_3_longdouble(usize, usize, usize, c_longdouble, usize) void; |
| 428 | extern fn c_4_longdouble(usize, usize, usize, usize, c_longdouble, usize) void; |
| 429 | extern fn c_5_longdouble(usize, usize, usize, usize, usize, c_longdouble, usize) void; |
| 430 | extern fn c_6_longdouble(usize, usize, usize, usize, usize, usize, c_longdouble, usize) void; |
| 431 | extern fn c_7_longdouble(usize, usize, usize, usize, usize, usize, usize, c_longdouble, usize) void; |
| 432 | extern fn c_8_longdouble(usize, usize, usize, usize, usize, usize, usize, usize, c_longdouble, usize) void; |
| 433 | extern fn c_test_longdouble() void; |
| 434 | |
| 435 | test "long double" { |
| 436 | if (builtin.cpu.arch.isMIPS64()) return error.SkipZigTest; |
| 437 | |
| 438 | const f = c_ret_longdouble(); |
| 439 | try expect(f == 11); |
| 440 | @"c_longdouble"(12, 1); |
| 441 | c_1_longdouble(0, 13, 2); |
| 442 | c_2_longdouble(0, 1, 14, 3); |
| 443 | c_3_longdouble(0, 1, 2, 15, 4); |
| 444 | c_4_longdouble(0, 1, 2, 3, 16, 5); |
| 445 | c_5_longdouble(0, 1, 2, 3, 4, 17, 6); |
| 446 | c_6_longdouble(0, 1, 2, 3, 4, 5, 18, 7); |
| 447 | c_7_longdouble(0, 1, 2, 3, 4, 5, 6, 19, 8); |
| 448 | c_8_longdouble(0, 1, 2, 3, 4, 5, 6, 7, 20, 9); |
| 449 | c_test_longdouble(); |
| 450 | } |
| 451 | |
| 272 | 452 | comptime { |
| 273 | 453 | skip: { |
| 274 | 454 | if (builtin.zig_backend == .stage2_llvm and builtin.cpu.arch == .x86_64) break :skip; |