git-svn-id: branches/z80@44990 -
@@ -4003,6 +4003,10 @@ implementation
result := nil;
case torddef(resultdef).ordtype of
+ s8bit:
+ procname := 'fpc_mul_shortint';
+ u8bit:
+ procname := 'fpc_mul_byte';
s16bit:
procname := 'fpc_mul_integer';
u16bit: