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

* call simplify after typechecking for nodes

Browse Source 
git-svn-id: trunk@34795 -
This commit is contained in:
florian 2016-11-05 23:05:54 +00:00
parent 6b84a1e1b8
commit 8471e02e40
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/nflw.pas
View File

@ -1520,6 +1520,7 @@ implementation
if assigned(t2) then
typecheckpass(t2);
result:=simplify(false);
end;
@ -2251,6 +2252,7 @@ implementation
result:=cnothingnode.create;
end;
procedure ttryexceptnode.adjust_estimated_stack_size;
begin
inc(current_procinfo.estimatedtempsize,rec_jmp_buf.size*2);