diff options
Diffstat (limited to 'translate/trans_analyzes.adb')
-rw-r--r-- | translate/trans_analyzes.adb | 20 |
1 files changed, 19 insertions, 1 deletions
diff --git a/translate/trans_analyzes.adb b/translate/trans_analyzes.adb index 43d7508a1..fd533e283 100644 --- a/translate/trans_analyzes.adb +++ b/translate/trans_analyzes.adb @@ -1,3 +1,21 @@ +-- Analysis for translation. +-- Copyright (C) 2009 Tristan Gingold +-- +-- GHDL is free software; you can redistribute it and/or modify it under +-- the terms of the GNU General Public License as published by the Free +-- Software Foundation; either version 2, or (at your option) any later +-- version. +-- +-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY +-- WARRANTY; without even the implied warranty of MERCHANTABILITY or +-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License +-- for more details. +-- +-- You should have received a copy of the GNU General Public License +-- along with GCC; see the file COPYING. If not, write to the Free +-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA +-- 02111-1307, USA. + with Iirs_Utils; use Iirs_Utils; with Iirs_Walk; use Iirs_Walk; with Disp_Vhdl; @@ -107,7 +125,7 @@ package body Trans_Analyzes is if Get_Kind (Decl) = Iir_Kind_Procedure_Body or else (Get_Kind (Decl) = Iir_Kind_Function_Body and then - Get_Pure_Flag (Get_Subprogram_Specification (Decl))) + not Get_Pure_Flag (Get_Subprogram_Specification (Decl))) then Extract_Drivers_Declaration_Chain (Get_Declaration_Chain (Decl)); Extract_Drivers_Sequential_Stmt_Chain |