From f530de8da60dbb4052b89a0c1ee3df56067771ff Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sat, 13 Feb 2010 20:50:18 +0000
Subject: [PATCH]   * also honor keep_sign_equal in get_common_intdef() for
 signed types     (r14892)

git-svn-id: trunk@14909 -
---
 compiler/defutil.pas | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/compiler/defutil.pas b/compiler/defutil.pas
index 32b5e3c59b..fc12fa1038 100644
--- a/compiler/defutil.pas
+++ b/compiler/defutil.pas
@@ -1092,10 +1092,16 @@ implementation
           case result.ordtype of
             s8bit:
               result:=torddef(u8inttype);
+            u8bit:
+              result:=torddef(s16inttype);
             s16bit:
               result:=torddef(u16inttype);
+            u16bit:
+              result:=torddef(s32inttype);
             s32bit:
               result:=torddef(u32inttype);
+            u32bit:
+              result:=torddef(s64inttype);
             s64bit:
               result:=torddef(u64inttype);
           end;