[SOLVED] QuestaSim / ModelSim fatal error during simulation

Code VHDL - [expand]
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
-------------------------------------------------------------------------------
--                                  CANAKARI CAN Modell
--                                     Diplomarbeit
-------------------------------------------------------------------------------
-- Der Prescaler teilt den 10 MHz Eingangstakt herunter:
-------------------------------------------------------------------------------
-- DW 2005.06.21 Prescale Enable eingefügt
-- DW 2005.06.26 Prescale Enable korregiert
 
LIBRARY ieee;
USE ieee.std_logic_1164.ALL;
USE ieee.std_logic_misc.ALL;
USE ieee.std_logic_arith.ALL;
USE ieee.std_logic_signed.ALL;
ENTITY prescale1 IS
  
  PORT (
    clock       : IN  bit;
    reset       : IN  bit;
    high        : IN  bit_vector(3 DOWNTO 0);  -- IOCPU, prescaleregister
    low         : IN  bit_vector(3 DOWNTO 0);  -- IOCPU, prescaleregister
    Prescale_EN : OUT bit;                     -- DW 2005.06.21 Prescale Enable
    clock_low   : OUT bit);
 
END prescale1;
-------------------------------------------------------------------------------
ARCHITECTURE behv OF prescale1 IS
  SIGNAL lo_count, hi_count : integer RANGE 0 TO 15;
  SIGNAL hilo               : bit;      -- hi=1 , lo=0, Merker für akt, Flanke
  SIGNAL int_high, int_low  : integer RANGE 0 TO 15;
-------------------------------------------------------------------------------  
BEGIN  -- behv
  clock_low <= hilo;                    -- = Merker für Flanke
-- Konvertierungen für Vergleich
  int_high  <= conv_integer(unsigned(to_stdLogicVector(high)));  -- bit_v zu int
  int_low   <= conv_integer(unsigned(to_stdLogicVector(low)));
-------------------------------------------------------------------------------  
  teil : PROCESS (clock, reset)
  BEGIN  -- PROCESS teil
    IF reset = '0' THEN                 -- asynchroner Reset
      lo_count <= 0;
      hi_count <= 0;
      hilo     <= '1';
      Prescale_EN <= '0';               -- DW 2005.06.21 Prescale Enable
    ELSIF (clock'event AND clock = '1') THEN
      -------------------------------------------------------------------------
      IF hilo = '1' THEN                -- Positiv Flanke
         Prescale_EN <= '0';           -- DW 2005.06.21 Prescale Enable        
        IF hi_count >= int_high then    -- DW 2005.06.26 Übergang von hilo von
                                        -- 1 auf 0
          Prescale_EN <= '0';           -- DW 2005.06.26 Prescale Enable
          hi_count <= 0;                -- zurücksetzen
          hilo     <= '0';              -- umschalten
        ELSE
          hi_count <= hi_count+1;       -- inkrementieren
        END IF;
        -----------------------------------------------------------------------
      ELSE                              -- Negative Flanke
 
        IF lo_count = int_low THEN
          lo_count <= 0;                -- zurücksetzen
          hilo     <= '1';              -- umschalten
          Prescale_EN <= '1';         -- DW 2005.06.26 Prescale Enable         
        ELSE
          Prescale_EN <= '0';         -- DW 2005.06.21 Prescale Enable 
          lo_count <= lo_count+1;       -- inkrementieren         
        END IF;
        -------------------------------------------------------------------------
      END IF;
    END IF;
  END PROCESS teil;
END behv;