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

* fixed warnings after r30449/r30450

Browse Source 
git-svn-id: trunk@30466 -
This commit is contained in:
Jonas Maebe 2015-04-06 14:24:09 +00:00
parent b403a8c3fd
commit 640efba580
2 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ngenutil.pas
View File

@ -630,7 +630,7 @@ implementation
var var
hp : tused_unit; hp : tused_unit;
unitinits : TAsmList; unitinits : TAsmList;
count : longint; count : aint;
procedure write_struct_inits(u: tmodule); procedure write_struct_inits(u: tmodule);
var var

4
compiler/tgobj.pas
View File

@ -410,6 +410,8 @@ implementation
tl^.temptype:=temptype; tl^.temptype:=temptype;
tl^.def:=def; tl^.def:=def;
{$push}
{$warn 6018 off}
{ Extend the temp } { Extend the temp }
if direction=-1 then if direction=-1 then
begin begin
@ -425,7 +427,7 @@ implementation
CGMessage(cg_e_localsize_too_big); CGMessage(cg_e_localsize_too_big);
lasttemp:=tl^.pos+size; lasttemp:=tl^.pos+size;
end; end;
{$pop}
tl^.fini:=fini; tl^.fini:=fini;
tl^.alignment:=alignment; tl^.alignment:=alignment;
tl^.size:=size; tl^.size:=size;