paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:09:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* tinlinenode.handle_str now uses the new intrinsiccode field for TCallNode

Browse Source
This commit is contained in:
J. Gareth "Curious Kit" Moreton 2022-12-14 12:49:23 +00:00 committed by FPK
parent 28e7dd77de
commit e1f993c363
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/ninl.pas
View File

@ -252,6 +252,7 @@ implementation
procname: string;
is_real,is_enum : boolean;
rt : aint;
intrinsiccode: TInlineNumber;
begin
result := cerrornode.create;
@ -399,6 +400,8 @@ implementation
{ since they're reused }
left := nil;
intrinsiccode := Default(TInlineNumber);
{ create procedure name }
if is_chararray(dest.resultdef) then
procname:='fpc_chararray_'
@ -417,7 +420,10 @@ implementation
bool8bit,bool16bit,bool32bit,bool64bit:
procname := procname + 'bool';
else
procname := procname + get_str_int_func(source.resultdef);
begin
intrinsiccode := in_str_x_string;
procname := procname + get_str_int_func(source.resultdef);
end;
end;
{ for ansistrings insert the encoding argument }
@ -428,7 +434,7 @@ implementation
{ free the errornode we generated in the beginning }
result.free;
{ create the call node, }
result := ccallnode.createintern(procname,newparas);
result := ccallnode.createfromintrinsic(intrinsiccode,procname,newparas);
end;