Changeset ebb5ed9 for src/tests/tuplePolymorphism.c
- Timestamp:
- Mar 10, 2017, 4:42:26 PM (8 years ago)
- Branches:
- ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, deferred_resn, demangler, enum, forall-pointer-decay, jacob/cs343-translation, jenkins-sandbox, master, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, with_gc
- Children:
- 0b465a5
- Parents:
- dc0557d
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
src/tests/tuplePolymorphism.c
rdc0557d rebb5ed9 14 14 // 15 15 16 // packed is needed so that structs are not passed with the same alignment as function arguments 17 __attribute__((packed)) struct A { 18 double x; 19 char y; 20 double z; 21 }; 22 23 __attribute__((packed)) struct B { 24 long long x; 25 char y; 26 long long z; 27 }; 28 29 // ensure that f is a viable candidate for g, even though its parameter structure does not exactly match 30 [A] f([A, B] x, B y) { printf("%g %c %g %lld %c %lld %lld %c %lld\n", x.0.[x,y,z], x.1.[x,y,z], y.[x,y,z]); return x.0; } 31 forall(otype T, otype U | { T f(T, U, U); }) 32 void g(T x, U y) { f(x, y, y); } 33 34 // add two triples 16 35 forall(otype T | { T ?+?(T, T); }) 17 36 [T, T, T] ?+?([T, T, T] x, [T, T, T] y) { … … 40 59 [x1, x2, x3] = zzz+zzz; 41 60 printf("%d %g %d\n", x1, x2, x3); 61 62 // ensure non-matching assertions are specialized correctly 63 g((A){ 1.21, 'x', 10.21}, (B){ 1111LL, 'v', 54385938LL }); 42 64 } 43 65
Note: See TracChangeset
for help on using the changeset viewer.