#479

core/compiler/lib_src/lang.obs

@@ -536,6 +536,17 @@ bundle System {
 			Number->IntToString(b->As(Int), 10, buffer);
 			return String->New(buffer, false);
 		}
+
+		#~
+		Returns an unsigned string representation of the value
+		@ignore-params
+		@return unsigned string representation of the value
+		~#
+		function : native : ToStringUnsigned(b : Byte) ~ String {
+			buffer := Char->New[16];
+			Number->IntToString(b->As(Int)->Abs(), 10, buffer);
+			return String->New(buffer, false);
+		}
 
 		#~
 		Prints values
@@ -1063,6 +1074,17 @@ bundle System {
 			string->Append(c);
 			return string;
 		}
+
+		#~
+		Returns an unsigned string representation of the value
+		@ignore-params
+		@return unsigned string representation of the value
+		~#
+		function : native : ToStringUnsigned(c : Char) ~ String {
+			string := String->New();
+			string->Append(c->As(Int)->Abs());
+			return string;
+		}
 
 		#~
 		Searches for all occurrences of the character array

programs/tests/prgm286.obs

@@ -24,7 +24,7 @@ class Counter from System.Concurrency.Thread {
 
 	method : public : Run(param:System.Base) ~ Nil {
 		count := 0;
-		while(count++ < @max) {
+		while(++count < @max + 1) {
 			"{$@name}: {$count}"->PrintLine();
 		};
 	}

programs/tests/prgm287.obs

@@ -3,9 +3,9 @@ class Test {
 		str := "𤭢";
 		System.IO.Standard->SetIntFormat(System.Number->Format->HEX);
 		u8str := str->ToByteArray();
-		each(i in u8str) {
-			c : Int := i;
-			c->Print();
+		each(b in u8str) {
+			i := b->As(Int)->Abs()->ToString();
+			i->ToInt()->Print();
 			" "->Print();
 		}
 		""->PrintLine();