source: PROJECT_CORE_MPI/CORE_MPI/BRANCHES/v1.00/Packet_type.vhd @ 71

--      Package File Template
--
--      Purpose: This package defines supplemental types, subtypes, 
--               constants, and functions
-- package definissant le codage des fonctions MPI 
-- dans le champs packet type des instructions MPI 

-- Ce fichier définit les trames des instruction MPI qui sont utilisables
library IEEE;
use IEEE.STD_LOGIC_1164.all;

package Packet_type is
        
 constant ADRLEN1                                                                               :natural:=16;
 constant MPI_COMM_WORLD                                                        :natural:=1;
 constant MPI_DEFAULT                                                           :natural:=0;
 constant MPI_INT                                                                               :natural:=1;
 constant MPI_INFO_NULL                                                         :natural:=0;
 constant Default_Win                                                           :natural:=1;
 constant MPI_GET_RANK                                                          : std_logic_vector(3 downto 0) := "0000";
 constant MPI_GET_SIZE                                                          : std_logic_vector(3 downto 0) := "0001";
 constant MPI_BARRIER                                                           : std_logic_vector(3 downto 0) := "0010";
 constant MPI_BARRIER_REACHED                                           : std_logic_vector(3 downto 0) := "0011";
 constant MPI_BARRIER_COMPLETED                                 : std_logic_vector(3 downto 0) := "1110";
 constant MPI_ACK                       : std_logic_vector(3 downto 0) := "0100"; 
 constant MPI_PUT                                                                       : std_logic_vector(3 downto 0) := "0101";
 constant MPI_GET                                                                       : std_logic_vector(3 downto 0) := "0110";
 constant MPI_BROADCAST                                                         : std_logic_vector(3 downto 0) := "0111";
 constant MPI_INIT                                                              : std_logic_vector(3 downto 0) := "1000";
 constant MPI_SPAWN                                                                     : std_logic_vector(3 downto 0) := "1001";
 
 constant MPI_WINCREATE                                                         : std_logic_vector(3 downto 0) := "1010";
 constant MPI_WINCOMPLETE                                                       : std_logic_vector(3 downto 0) := "1011";
 constant MPI_WINPOST                                                           : std_logic_vector(3 downto 0) := "1100";
 constant MPI_WINWAIT                                                           : std_logic_vector(3 downto 0) := "1101";
 
 
 
 constant MPI_WTIME                                                                     : std_logic_vector(3 downto 0) := "1110";
 constant MPI_WTICK                                                                     : std_logic_vector(3 downto 0) := "1111";
 constant MPI_CONFIG                                                               : std_logic_vector(3 downto 0) := "1101";
 --paramètres des commandes
 Constant INIT_SEEKMAIN                                                         : std_logic_vector(3 downto 0) := "0001";
 Constant INIT_SETRANK                                                          : std_logic_vector(3 downto 0) := "0011";
 Constant INIT_REGISTER                                                         : std_logic_vector(3 downto 0) := "0010";
 Constant INIT_STAT                                                                     : std_logic_vector(3 downto 0) := "0100";
 Constant INIT_SPAWN                                                                    : std_logic_vector(3 downto 0) := "0101";

 Constant SPAWN_LOAD                                                                    : std_logic_vector(3 downto 0) := "1001";
 Constant SPAWN_START                                                           : std_logic_vector(3 downto 0) := "1010";
 Constant SPAWN_COMP                                                                    : std_logic_vector(3 downto 0) := "1011";
 Constant SPAWN_ERR                                                                     : std_logic_vector(3 downto 0) := "1110";

-- constantes pour le NoC                                                               
 Constant NOC_GETPORTID                                                         : std_logic_vector(7 downto 0) := "00000001";


Type MPI_Datatype is (MPI_BYTE,MPI_INTEGER,MPI_REAL,MPI_PACKET, MPI_pointer);
SUBType MPI_COMM is  natural range 0 to 2**ADRLEN1-1 ; --pointeur sur la structure du communicateur
subType Mpi_AInt is natural range 0 to 2**ADRLEN1-1 ;
--subType Mpi_win is natural range 0 to 2**ADRLEN1-1 ;
Type MPI_COMM_struc is record
   id : natural range 0 to 3; -- id du communicateur
        grp : std_logic_vector(15 downto 0);     --groupe associé au communicateur
        nproc : natural range 0 to 15;   -- nombre de membres du groupe de ce communicateur
        AddrLib : std_logic_vector(15 downto 0); -- adresse dans la mémoire de la Lib 
                                                                                                                  -- des registres GStart et GPost
        C_open,C_close : std_logic;  -- état du communciateur (Inistialisé ou finalisé)
end record;

Type Mpi_Win is record 
        status : std_logic_vector(7 downto 0); --état de la fenêtre (create,Start,Complete,Post,WaitSync, etc.)
        id : natural range 0 to 15 ; -- numéro de la fenêtre
        
        Addr : std_logic_vector(15 downto 0); -- adresse dans la mémoire locale du PE
        Size : natural range 0 to 65535; -- taille de la fenêtre en octets 
        
        comm : MPI_COMM; -- communicateur associé à la fenêtre
end record;
Type Mpi_group is record
        grp : std_logic_vector(15 downto 0); --( vecteur de la liste des processus du groupe)
        nb : natural range 0 to 15; -- nombre de membres(processus du groupe)
        comm_id : natural range 0 to 3; -- reférence du communicateur
end record;
end Packet_type;  

package body Packet_type is


end Packet_type;