paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-22 13:29:21 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Stopped Internal Error 2013032603 from triggering if a non-numeric ordinal type is passed into "Str"

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2025-05-06 15:58:21 +01:00
parent f2e4227fc2
commit 6f526e83a4
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ninl.pas
View File

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