diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-11-04 20:14:19 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-11-04 20:14:19 +0100 |
commit | 9c195bf5d86d67ea5eb419ccf6e48dc153e57c68 (patch) | |
tree | 575346e529b99e26382b4a06f6ff2caa0b391ab2 /sem_stmts.ads | |
parent | 184a123f91e07c927292d67462561dc84f3a920d (diff) | |
download | ghdl-9c195bf5d86d67ea5eb419ccf6e48dc153e57c68.tar.gz ghdl-9c195bf5d86d67ea5eb419ccf6e48dc153e57c68.tar.bz2 ghdl-9c195bf5d86d67ea5eb419ccf6e48dc153e57c68.zip |
Move sources to src/ subdirectory.
Diffstat (limited to 'sem_stmts.ads')
-rw-r--r-- | sem_stmts.ads | 87 |
1 files changed, 0 insertions, 87 deletions
diff --git a/sem_stmts.ads b/sem_stmts.ads deleted file mode 100644 index d3eeb8c09..000000000 --- a/sem_stmts.ads +++ /dev/null @@ -1,87 +0,0 @@ --- Semantic analysis. --- Copyright (C) 2002, 2003, 2004, 2005 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 GHDL; see the file COPYING. If not, write to the Free --- Software Foundation, 59 Temple Place - Suite 330, Boston, MA --- 02111-1307, USA. -with Iirs; use Iirs; - -package Sem_Stmts is - -- Semantize declarations and concurrent statements of BLK, which is - -- either an architecture_declaration, and entity_declaration or - -- a block_statement. - -- If SEM_DECLS is true, then semantize the declarations of BLK. - procedure Sem_Block (Blk: Iir; Sem_Decls : Boolean); - - -- Analyze the concurrent statements of PARENT. - procedure Sem_Concurrent_Statement_Chain (Parent : Iir); - - -- Some signals are implicitly declared. This is the case for signals - -- declared by an attribute ('stable, 'quiet and 'transaction). - -- Note: guard signals are also implicitly declared, but with a guard - -- expression, which is located. - -- Since these signals need resources and are not easily located (can be - -- nearly in every expression), it is useful to add a node into a - -- declaration list to declare them. - -- However, only a few declaration_list can declare signals. These - -- declarations lists must register and unregister themselves with - -- push_declarative_region_with_signals and - -- pop_declarative_region_with_signals. - type Implicit_Signal_Declaration_Type is private; - - procedure Push_Signals_Declarative_Part - (Cell: out Implicit_Signal_Declaration_Type; Decls_Parent : Iir); - - procedure Pop_Signals_Declarative_Part - (Cell: in Implicit_Signal_Declaration_Type); - - -- Declare an implicit signal. - procedure Add_Declaration_For_Implicit_Signal (Sig : Iir); - - -- Semantize declaration chain and sequential statement chain - -- of BODY_PARENT. - -- DECL is the declaration for these chains (DECL is the declaration, which - -- is different from the bodies). - -- This is used by processes and subprograms semantization. - procedure Sem_Sequential_Statements (Decl : Iir; Body_Parent : Iir); - - -- Sem for concurrent and sequential assertion statements. - procedure Sem_Report_Statement (Stmt : Iir); - - -- Get the current subprogram or process. - function Get_Current_Subprogram return Iir; - pragma Inline (Get_Current_Subprogram); - - -- Get the current concurrent statement, or NULL_IIR if none. - function Get_Current_Concurrent_Statement return Iir; - pragma Inline (Get_Current_Concurrent_Statement); - - -- Current PSL default_clock declaration. - -- Automatically saved and restore while analyzing concurrent statements. - Current_Psl_Default_Clock : Iir; - - -- Add a driver for SIG. - -- STMT is used in case of error (it is the statement that creates the - -- driver). - -- Do nothing if: - -- The current statement list does not belong to a process, - -- SIG is a formal signal interface. - procedure Sem_Add_Driver (Sig : Iir; Stmt : Iir); -private - type Implicit_Signal_Declaration_Type is record - Decls_Parent : Iir; - Last_Decl : Iir; - end record; - -end Sem_Stmts; |