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

* fixed memory leak with the as operator, fixes #7174

Browse Source 
git-svn-id: trunk@4355 -
This commit is contained in:
florian 2006-08-05 21:53:38 +00:00
parent 3e1c0cc8a5
commit 849878b472
2 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/inc/compproc.inc
View File

@ -251,8 +251,8 @@ function fpc_do_as(aclass : tclass;aobject : tobject): tobject; compilerproc;
procedure fpc_intf_decr_ref(var i: pointer); compilerproc;
procedure fpc_intf_incr_ref(i: pointer); compilerproc;
procedure fpc_intf_assign(var D: pointer; const S: pointer); compilerproc;
function fpc_intf_as(const S: pointer; const iid: TGUID): pointer; compilerproc;
function fpc_class_as_intf(const S: pointer; const iid: TGUID): pointer; compilerproc;
function fpc_intf_as(const S: pointer; const iid: TGUID): IInterface; compilerproc;
function fpc_class_as_intf(const S: pointer; const iid: TGUID): IInterface; compilerproc;
Function fpc_PushExceptAddr (Ft: Longint;_buf,_newaddr : pointer): PJmp_buf ; compilerproc;
Procedure fpc_PushExceptObj (Obj : TObject; AnAddr,AFrame : Pointer); compilerproc;

9
rtl/inc/objpas.inc
View File

@ -63,8 +63,7 @@
D:=S;
end;
function fpc_intf_as(const S: pointer; const iid: TGUID): pointer;[public,alias: 'FPC_INTF_AS']; compilerproc;
function fpc_intf_as(const S: pointer; const iid: TGUID): IInterface;[public,alias: 'FPC_INTF_AS']; compilerproc;
var
tmpi: pointer; // _AddRef before _Release
begin
@ -72,14 +71,14 @@
begin
if IUnknown(S).QueryInterface(iid,tmpi)<>S_OK then
handleerror(219);
fpc_intf_as:=tmpi;
pointer(fpc_intf_as):=tmpi;
end
else
fpc_intf_as:=nil;
end;
function fpc_class_as_intf(const S: pointer; const iid: TGUID): pointer;[public,alias: 'FPC_CLASS_AS_INTF']; compilerproc;
function fpc_class_as_intf(const S: pointer; const iid: TGUID): IInterface;[public,alias: 'FPC_CLASS_AS_INTF']; compilerproc;
var
tmpi: pointer; // _AddRef before _Release
@ -88,7 +87,7 @@
begin
if not TObject(S).GetInterface(iid,tmpi) then
handleerror(219);
fpc_class_as_intf:=tmpi;
pointer(fpc_class_as_intf):=tmpi;
end
else
fpc_class_as_intf:=nil;