From fcc3c349b8ed63ae20bc5f4adb0f34d6cefddd56 Mon Sep 17 00:00:00 2001
From: Freeman <vapaamies@yandex.ru>
Date: Sun, 21 Jun 2020 23:02:21 +0300
Subject: [PATCH] System.UpCase procedure added

---
 RTL/System.pas | 9 +++++++++
 1 file changed, 9 insertions(+)

diff --git a/RTL/System.pas b/RTL/System.pas
index 098d08a..8ee98e4 100644
--- a/RTL/System.pas
+++ b/RTL/System.pas
@@ -149,6 +149,8 @@ procedure _Halt0;
 procedure _HandleFinally;
 procedure _StartExe(InitTable: PPackageInfo);
 
+function UpCase(Ch: KolibriChar): KolibriChar;
+
 implementation
 
 uses
@@ -215,4 +217,11 @@ begin
   end;
 end;
 
+function UpCase(Ch: KolibriChar): KolibriChar;
+begin
+  if Ch in ['a'..'z'] then
+    Dec(Ch, Ord('a') - Ord('A'));
+  Result := Ch;
+end;
+
 end.