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

* Commented out the unneeded/unfinished code.

Browse Source 
git-svn-id: trunk@48390 -
This commit is contained in:
yury 2021-01-24 13:35:32 +00:00
parent 31cd3df783
commit 0ab6b1ab4d
1 changed files with 7 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/psabiehpi.pas
View File

@ -688,19 +688,22 @@ implementation
begincatchres,
paraloc1: tcgpara;
pd: tprocdef;
rttisym: TAsmSymbol;
{rttisym: TAsmSymbol;
rttidef: tdef;
indirect: boolean;
otherunit: boolean; }
wrappedexception: tregister;
exceptloc: tlocation;
indirect: boolean;
otherunit: boolean;
typeindex : aint;
begin
paraloc1.init;
{
rttidef:=nil;
rttisym:=nil;
}
wrappedexception:=hlcg.getaddressregister(list,voidpointertype);
hlcg.a_load_reg_reg(list,voidpointertype,voidpointertype,NR_FUNCTION_RESULT_REG,wrappedexception);
(*
if add_catch then
begin
if assigned(excepttype) then
@ -715,6 +718,7 @@ implementation
rttisym:=current_asmdata.RefAsmSymbol(excepttype.vmt_mangledname, AT_DATA, indirect);
end;
end;
*)
{ check if the exception is handled by this node }
if assigned(excepttype) then
begin