From 640efba580814dca85b7814f8d1d99653fd842a3 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Mon, 6 Apr 2015 14:24:09 +0000
Subject: [PATCH]   * fixed warnings after r30449/r30450

git-svn-id: trunk@30466 -
---
 compiler/ngenutil.pas | 2 +-
 compiler/tgobj.pas    | 4 +++-
 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;