|
@@ -4003,6 +4003,10 @@ implementation
|
|
result := nil;
|
|
result := nil;
|
|
|
|
|
|
case torddef(resultdef).ordtype of
|
|
case torddef(resultdef).ordtype of
|
|
|
|
+ s8bit:
|
|
|
|
+ procname := 'fpc_mul_shortint';
|
|
|
|
+ u8bit:
|
|
|
|
+ procname := 'fpc_mul_byte';
|
|
s16bit:
|
|
s16bit:
|
|
procname := 'fpc_mul_integer';
|
|
procname := 'fpc_mul_integer';
|
|
u16bit:
|
|
u16bit:
|