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

* Remove debug statement

Browse Source
This commit is contained in:
Michaël Van Canneyt 2024-03-13 18:25:27 +01:00
parent 18cf928ed6
commit 6e03b24701
1 changed files with 0 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
packages/rtl-objpas/src/inc/rtti.pp
View File

@ -4308,7 +4308,6 @@ var
mgr: TFunctionCallManager;
flags: TFunctionCallFlags;
hiddenVmt : Pointer;
S : String;
begin
mgr := FuncCallMgr[aCallConv];
@ -4321,8 +4320,6 @@ begin
unhidden := 0;
highs := 0;
for param in aParams do begin
S:=Param.Name;
Writeln(S);
if unhidden < Length(aArgs) then begin
if pfArray in param.Flags then begin
if Assigned(aArgs[unhidden].TypeInfo) and not aArgs[unhidden].IsArray and (aArgs[unhidden].Kind <> param.ParamType.TypeKind) then