Changes in uspace/dist/src/sysel/demos/varargs.sy [23de644:a95310e] in mainline

File:

• uspace/dist/src/sysel/demos/varargs.sy (modified) (2 diffs)

uspace/dist/src/sysel/demos/varargs.sy

@@ -33 +33 @@
         -- with the attribute 'packed'.
         --
-        fun Print(args : string[], packed) is
+        -- Note that we need to pass 'n' just because the array type
+        -- does not implement the Length property yet.
+        --
+        fun Print(n : int; args : string[], packed) is
                 var i : int;
-                var error : int;
 
-                error = 0;
                 i = 0;
-                while error == 0 do
-                        -- This is definitely the wrong way to determine
-                        -- array bounds, but until a better one is
-                        -- implemented...
-                        do
-                                Builtin.WriteLine(args[i]);
-                        except e : Error.OutOfBounds do
-                                error = 1;
-                        end
-
+                while i < n do
+                        Builtin.WriteLine(args[i]);
                         i = i + 1;
                 end
@@ -54 +47 @@
 
         fun Main() is
-                Print("One", "Two", "Three", "Four", "Five");
+                Print(5, "One", "Two", "Three", "Four", "Five");
         end
 end