mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-10 22:29:23 +02:00
* also honor keep_sign_equal in get_common_intdef() for signed types
(r14892) git-svn-id: trunk@14909 -
This commit is contained in:
parent
fea789eca4
commit
f530de8da6
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user