pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

Fix metadata cloning.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4188 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2015-06-13 10:44:35 +00:00
parent 773295ba3e
commit 15a0e9c9c2
1 changed files with 2 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
wst/trunk/metadata_repository.pas
View File

@ -437,7 +437,6 @@ procedure CopyService(ASrcService,ADestService : PService);
ppSrc := ASrcOperation^.Params; ppSrc := ASrcOperation^.Params;
pp := ADstOperation^.Params; pp := ADstOperation^.Params;
for ii := 0 to Pred(cc) do begin for ii := 0 to Pred(cc) do begin
//CopyParam(@(ASrcOperation^.Params[ii]),@(pp[ii]));
CopyParam(ppSrc,pp); CopyParam(ppSrc,pp);
Inc(ppSrc); Inc(ppSrc);
Inc(pp); Inc(pp);
@ -459,7 +458,6 @@ begin
po := ADestService^.Operations; po := ADestService^.Operations;
poSrc := ASrcService^.Operations; poSrc := ASrcService^.Operations;
for j := 0 to Pred(k) do begin for j := 0 to Pred(k) do begin
//CopyOperation(@(ASrcService^.Operations[j]),@(po[j]));
CopyOperation(poSrc,po); CopyOperation(poSrc,po);
Inc(poSrc); Inc(poSrc);
Inc(po); Inc(po);
@ -503,8 +501,9 @@ begin
ps := ADest^.Services; ps := ADest^.Services;
psSrc := ASource^.Services; psSrc := ASource^.Services;
for i := 0 to Pred(c) do begin for i := 0 to Pred(c) do begin
//CopyService(@(ASource^.Services[i]),@(ps[i]));
CopyService(psSrc,ps); CopyService(psSrc,ps);
Inc(psSrc);
Inc(ps);
end; end;
end; end;
except except