diff --git a/compiler/ninl.pas b/compiler/ninl.pas index 6a72573eb8..9d02716602 100644 --- a/compiler/ninl.pas +++ b/compiler/ninl.pas @@ -451,11 +451,19 @@ implementation pasbool1,pasbool8,pasbool16,pasbool32,pasbool64, bool8bit,bool16bit,bool32bit,bool64bit: procname := procname + 'bool'; - else + + scurrency,s64bit,u64bit,s32bit,u32bit,s16bit,u16bit,s8bit,u8bit: begin intrinsiccode := in_str_x_string; procname := procname + get_str_int_func(source.resultdef); end; + + else + begin + CGMessagePos1(source.fileinfo, + type_e_integer_expr_expected,torddef(source.resultdef).typename); + exit; + end; end; { for ansistrings insert the encoding argument }