Changes in tests/concurrency/channels/barrier.cfa [50be8af:c26bea2a]

File:

• tests/concurrency/channels/barrier.cfa (modified) (2 diffs)

tests/concurrency/channels/barrier.cfa

@@ -8 +8 @@
 
 size_t total_operations = 0;
-ssize_t Processors = 1, Tasks = 5, BarrierSize = 2;             // must be signed
+int Processors = 1, Tasks = 5, BarrierSize = 2;
 
 typedef channel( int ) Channel;
@@ -65 +65 @@
           case 3:
                 if ( strcmp( argv[2], "d" ) != 0 ) {                    // default ?
-                        BarrierSize = ato( argv[2] );
-            if ( Processors < 1 ) fallthru default;
+                        BarrierSize = atoi( argv[2] );
+            if ( Processors < 1 ) goto Usage;
                 } // if
           case 2:
                 if ( strcmp( argv[1], "d" ) != 0 ) {                    // default ?
-                        Processors = ato( argv[1] );
-                        if ( Processors < 1 ) fallthru default;
+                        Processors = atoi( argv[1] );
+                        if ( Processors < 1 ) goto Usage;
                 } // if
           case 1:                                                                                       // use defaults
                 break;
           default:
-                exit | "Usage: " | argv[0]
+          Usage:
+                sout | "Usage: " | argv[0]
              | " [ processors (> 0) | 'd' (default " | Processors
                          | ") ] [ BarrierSize (> 0) | 'd' (default " | BarrierSize
                          | ") ]" ;
+                exit( EXIT_FAILURE );
         } // switch
     if ( Tasks < BarrierSize )