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

* avoid code duplication :)

Browse Source
This commit is contained in:
florian 2024-11-03 15:37:50 +01:00
parent 1778fb6fe3
commit 183a10b292
1 changed files with 1 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symdef.pas
View File

@ -9142,13 +9142,6 @@ implementation
function TImplementedInterface.getcopy:TImplementedInterface; function TImplementedInterface.getcopy:TImplementedInterface;
function stringdup(s:pshortstring):pshortstring;inline;
begin
getmem(result,ord(s^[0])+1);
move(s^[0],result^[0],ord(s^[0])+1);
end;
var var
i : longint; i : longint;
begin begin
@ -9168,7 +9161,7 @@ implementation
result.NameMappings:=TFPHashList.create; result.NameMappings:=TFPHashList.create;
for i:=0 to NameMappings.Count-1 do for i:=0 to NameMappings.Count-1 do
Result.NameMappings.Add(NameMappings.NameOfIndex(i), Result.NameMappings.Add(NameMappings.NameOfIndex(i),
stringdup(pshortstring(NameMappings.Items[i]))); stringdup(pshortstring(NameMappings.Items[i])^));
end; end;
if assigned(ProcDefs) then if assigned(ProcDefs) then
begin begin