From 25b471be0e1541fd31d662dc43d969cdc764ebad Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Mon, 10 Mar 2014 04:01:30 +0000
Subject: [PATCH] Auto-uppercase data types of routine parameters. Fixes issue
 #3497.

---
 source/routine_editor.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/source/routine_editor.pas b/source/routine_editor.pas
index 5816dc8e..3201ad05 100644
--- a/source/routine_editor.pas
+++ b/source/routine_editor.pas
@@ -360,7 +360,7 @@ begin
   Param := Parameters[Node.Index];
   case Column of
     1: Param.Name := NewText;
-    2: Param.Datatype := NewText;
+    2: Param.Datatype := UpperCase(NewText);
     3: Param.Context := NewText;
   end;
   Modification(Sender);