paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 18:29:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

Avoid incomplete case warning when compiled with -dTEST_WIN32_SEH

Browse Source 
git-svn-id: trunk@42115 -
This commit is contained in:
pierre 2019-05-24 10:14:51 +00:00
parent 3fe77a8ff5
commit c752aa5cf5
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
compiler/i386/n386flw.pas
View File

@ -144,16 +144,15 @@ function reset_regvars(var n: tnode; arg: pointer): foreachnoderesult;
make_not_regable(n,[]);
calln:
include(tprocinfo(arg).flags,pi_do_call);
else ;
end;
result:=fen_true;
end;
function copy_parasize(var n: tnode; arg: pointer): foreachnoderesult;
begin
case n.nodetype of
calln:
if n.nodetype=calln then
tcgprocinfo(arg).allocate_push_parasize(tcallnode(n).pushed_parasize);
end;
result:=fen_true;
end;