* fixed warnings after r30449/r30450

git-svn-id: http://svn.freepascal.org/svn/fpc/trunk@30466 3ad0048d-3df7-0310-abae-a5850022a9f2

2 files changed, 4 insertions, 2 deletions

diff --git a/compiler/ngenutil.pas b/compiler/ngenutil.pas
index 47385ab1dd..a0d6c7feb1 100644
--- a/compiler/ngenutil.pas
+++ b/compiler/ngenutil.pas
@@ -630,7 +630,7 @@ implementation
     var
       hp : tused_unit;
       unitinits : TAsmList;
-      count : longint;
+      count : aint;
 
       procedure write_struct_inits(u: tmodule);
         var
diff --git a/compiler/tgobj.pas b/compiler/tgobj.pas
index 6063af33df..aedbe7f72c 100644
--- a/compiler/tgobj.pas
+++ b/compiler/tgobj.pas
@@ -410,6 +410,8 @@ implementation
             tl^.temptype:=temptype;
             tl^.def:=def;
 
+{$push}
+{$warn 6018 off}
             { Extend the temp }
             if direction=-1 then
               begin
@@ -425,7 +427,7 @@ implementation
                   CGMessage(cg_e_localsize_too_big);
                 lasttemp:=tl^.pos+size;
               end;
-
+{$pop}
             tl^.fini:=fini;
             tl^.alignment:=alignment;
             tl^.size:=size;