mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-09-23 03:09: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
|
case result.ordtype of
|
||||||
s8bit:
|
s8bit:
|
||||||
result:=torddef(u8inttype);
|
result:=torddef(u8inttype);
|
||||||
|
u8bit:
|
||||||
|
result:=torddef(s16inttype);
|
||||||
s16bit:
|
s16bit:
|
||||||
result:=torddef(u16inttype);
|
result:=torddef(u16inttype);
|
||||||
|
u16bit:
|
||||||
|
result:=torddef(s32inttype);
|
||||||
s32bit:
|
s32bit:
|
||||||
result:=torddef(u32inttype);
|
result:=torddef(u32inttype);
|
||||||
|
u32bit:
|
||||||
|
result:=torddef(s64inttype);
|
||||||
s64bit:
|
s64bit:
|
||||||
result:=torddef(u64inttype);
|
result:=torddef(u64inttype);
|
||||||
end;
|
end;
|
||||||
|
Loading…
Reference in New Issue
Block a user