paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-14 12:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* made fpc_setjmp() code generic and fixed it for llvm

Browse Source 
git-svn-id: trunk@30497 -
This commit is contained in:
Jonas Maebe 2015-04-08 19:08:30 +00:00
parent 23b95cc291
commit a674804869
1 changed files with 5 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
compiler/ncgutil.pas
View File

@ -451,15 +451,13 @@ implementation
paramanager.freecgpara(list,paraloc1);
{ perform the fpc_setjmp call }
setjmpres:=hlcg.g_call_system_proc(list,pd,[@paraloc1],nil);
setjmpres.check_simple_location;
if setjmpres.location^.loc<>LOC_REGISTER then
internalerror(2014080701);
hlcg.getcpuregister(list,setjmpres.location^.register);
hlcg.g_exception_reason_save(list,setjmpres.def,ossinttype,setjmpres.location^.register,t.reasonbuf);
location_reset(tmpresloc,LOC_REGISTER,def_cgsize(setjmpres.def));
tmpresloc.register:=hlcg.getaddressregister(list,pushexceptres.def);
hlcg.gen_load_cgpara_loc(list,pushexceptres.def,setjmpres,tmpresloc,true);
hlcg.g_exception_reason_save(list,setjmpres.def,ossinttype,tmpresloc.register,t.reasonbuf);
{ if we get 0 here in the function result register, it means that we
longjmp'd back here }
hlcg.a_cmp_const_reg_label(list,setjmpres.def,OC_NE,0,setjmpres.location^.register,exceptlabel);
hlcg.ungetcpuregister(list,setjmpres.location^.register);
hlcg.a_cmp_const_reg_label(list,setjmpres.def,OC_NE,0,tmpresloc.register,exceptlabel);
setjmpres.resetiftemp;
paraloc1.done;
paraloc2.done;