Changeset 0b2961f for src/Tests/SynTree/Tuple.c

Timestamp:

Jun 9, 2015, 3:19:04 PM (9 years ago)

Author:

Peter A. Buhr <pabuhr@…>

Branches:

ADT, aaron-thesis, arm-eh, ast-experimental, cleanup-dtors, ctor, deferred_resn, demangler, enum, forall-pointer-decay, gc_noraii, jacob/cs343-translation, jenkins-sandbox, master, memory, new-ast, new-ast-unique-expr, new-env, no_list, persistent-indexer, pthread-emulation, qualifiedEnum, resolv-new, string, with_gc

Children:

8a95629

Parents:

81419b5

Message:

fix warnings from prelude.cf, work on regression testing

File:

• src/Tests/SynTree/Tuple.c (modified) (3 diffs)

src/Tests/SynTree/Tuple.c

@@ -1 +1 @@
 int f( int, int );
 int g( int, int, int );
-static [ int, int, int, int ] h( int a, int b, * int c, [] char d );
+static [ int, int *, * int, int ] h( int a, int b, * int c, [] char d );
 
 struct inner {
@@ -30 +30 @@
 
         [ x, y, z ] = [ p, f( 17 ), 3 ];
+        [ x, y, z ] = ([short, unsigned int, [int, int]])([ p, f( 17 ), 3 ]);
         r = [ x, y, z ];
 }
@@ -40 +41 @@
         f( t1 );
         g( t1, 3 );
-        [ 3,5 ];
-        [ a,b ] = 3;
-        [ a,b ] = [ 4.6 ];
-        [ a,b ] = [ c,d ] = [ 3,5 ];
-        [ a,b,[ c ] ] = [ 2,[ a,b ] ];
-        [ a,b ] = 3 > 4 ? [ b,6 ] : [ 7,8 ];
 
-        t1 = [ a,b ];
-        t1 = t2 = [ a,b ];
-        [ a,b ] = [ c,d ] = d += c += 1;
-        [ a,b ] = [ c,d ] = t1;
-        [ a,b ] = t1 = [ c,d ];
-        [ a,b ] = t1 = t2 = [ c,d ];
-        t1 = [ 3,4 ] = [ 3,4 ] = t1 = [ 3,4 ];
+        [ , , , ];                                              /* empty tuple */
+        [ 3, 5 ];
+        [ a, b ] = 3;
+        [ a, b ] = [ 4.6 ];
+        [ a, b ] = [ c, d ] = [ 3, 5 ];
+        [ a, b, [ c ] ] = [ 2,[ a, b ] ];
+        [ a, b ] = 3 > 4 ? [ b, 6 ] : [ 7, 8 ];
+
+        t1 = [ a, b ];
+        t1 = t2 = [ a, b ];
+        [ a, b ] = [ c, d ] = d += c += 1;
+        [ a, b ] = [ c, d ] = t1;
+        [ a, b ] = t1 = [ c, d ];
+        [ a, b ] = t1 = t2 = [ c, d ];
+        t1 = [ 3, 4 ] = [ 3, 4 ] = t1 = [ 3, 4 ];
 
         s.[ f1, i.[ f2, f3 ], f4 ] = [ 11, 12, 13, 3.14159 ];
         s.[ f1, i.[ f2, f3 ], f4 ] = h( 3, 3, 0, "abc" );
-        sp->[ f4,f1 ] = sp->[ f1,f4 ];
-        printf( "expecting 3, 17, 23, 4; got %d, %d, %d, %d\n", s.[ f4, i.[ f3,f2 ], f1 ] );
+        [ a, , b, ] = h( 3, 3, 0, "abc" );                      /* ignore some results */
+        sp->[ f4,f1 ] = sp->[ f1, f4 ];
+        printf( "expecting 3, 17, 23, 4; got %d, %d, %d, %d\n", s.[ f4, i.[ f3, f2 ], f1 ] );
         rc = 0;
 }