From e87982e925720e0b29d7c097749802c99ed92125 Mon Sep 17 00:00:00 2001 From: Alligator-1 Date: Sun, 7 Jul 2024 19:48:42 +0500 Subject: [PATCH] const array - reducing unnecessary data copying --- compiler/dbgdwarf.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/compiler/dbgdwarf.pas b/compiler/dbgdwarf.pas index 7a53a4fa3e..a95e08f55a 100644 --- a/compiler/dbgdwarf.pas +++ b/compiler/dbgdwarf.pas @@ -155,7 +155,7 @@ interface tvarrec for us (must only pass one element in the last parameter). } procedure append_attribute(attr: tdwarf_attribute; form: tdwarf_form; const values: array of const); procedure append_attribute(attr: tdwarf_attribute; form: tdwarf_form; const value: tvarrec); - procedure append_entry(tag : tdwarf_tag;has_children : boolean;data : array of const); + procedure append_entry(tag : tdwarf_tag;has_children : boolean;const data : array of const); procedure append_block1(attr: tdwarf_attribute; size: aint); procedure append_labelentry(attr : tdwarf_attribute;sym : tasmsymbol); procedure append_labelentry_addr_ref(sym : tasmsymbol); virtual; @@ -943,7 +943,7 @@ implementation { writing the data through a few simply procedures allows to create easily extra information for debugging of debug info } - procedure TDebugInfoDwarf.append_entry(tag : tdwarf_tag;has_children : boolean;data : array of const); + procedure TDebugInfoDwarf.append_entry(tag : tdwarf_tag;has_children : boolean;const data : array of const); var i : longint; begin