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

* fix writing of the method and parameter names for the Variant call description

Browse Source 
git-svn-id: trunk@49479 -
(cherry picked from commit 7330a0156c)
This commit is contained in:
svenbarth 2021-06-05 17:43:49 +00:00 committed by Sven Barth
parent 28f86382e5
commit 8b21bf1cce
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
compiler/ncal.pas
View File

@ -509,7 +509,7 @@ implementation
{ build up parameters and description } { build up parameters and description }
para:=tcallparanode(parametersnode); para:=tcallparanode(parametersnode);
paramssize:=0; paramssize:=0;
names := #0; names := '';
while assigned(para) do while assigned(para) do
begin begin
{ Skipped parameters are actually (varType=varError, vError=DISP_E_PARAMNOTFOUND). { Skipped parameters are actually (varType=varError, vError=DISP_E_PARAMNOTFOUND).
@ -573,12 +573,11 @@ implementation
if variantdispatch then if variantdispatch then
begin begin
{ length-1, because the following names variable *always* starts tcb.emit_pchar_const(pchar(methodname),length(methodname),true);
with #0 which will be the terminator for methodname } if names<>'' then
tcb.emit_pchar_const(pchar(methodname),length(methodname)-1,true); { length-1 because we added a null terminator to the string itself
{ length-1 because we added a null terminator to the string itself already }
already } tcb.emit_pchar_const(pchar(names),length(names)-1,true);
tcb.emit_pchar_const(pchar(names),length(names)-1,true);
end; end;
{ may be referred from other units in case of inlining -> global { may be referred from other units in case of inlining -> global