Schaltungsdesign mit VHDL

B Die Sprache VHDL
Die oben beschriebenen typbezogenen Attribute sollen nun anhand
einiger Beispiele erläutert werden:
PROCESS
TYPE asc_int IS RANGE 2 TO 8; -- steigend
TYPE desc_int IS RANGE 8 DOWNTO 2; -- fallend
TYPE colors IS (white, red, yellow, green, blue);
SUBTYPE signal_colors IS colors RANGE (red TO green);
VARIABLE a : integer := 0;
VARIABLE b : colors := blue;
VARIABLE c : boolean := true;
BEGIN
a := asc_int'LEFT; -- Ergebnis: 2
a := asc_int'RIGHT; -- Ergebnis: 8
a := asc_int'LOW; -- Ergebnis: 2
a := asc_int'HIGH; -- Ergebnis: 8
a := desc_int'LEFT; -- Ergebnis: 8
a := desc_int'RIGHT; -- Ergebnis: 2
a := desc_int'LOW; -- Ergebnis: 2
a := desc_int'HIGH; -- Ergebnis: 8
a := asc_int'PRED(7); -- Ergebnis: 6
a := asc_int'SUCC(4); -- Ergebnis: 5
a := asc_int'LEFTOF(7); -- Ergebnis: 6
a := asc_int'RIGHTOF(4); -- Ergebnis: 5
a := desc_int'PRED(7); -- Ergebnis: 6
a := desc_int'SUCC(4); -- Ergebnis: 5
a := desc_int'LEFTOF(7); -- Ergebnis: 8
a := desc_int'RIGHTOF(4); -- Ergebnis: 3
a := asc_int'PRED(2); -- !! illegal: kein Vorgaenger
a := asc_int'SUCC(8); -- !! illegal: kein Nachfolger
a := asc_int'LEFTOF(15); -- !! illegal: falscher Index
b := signal_colors'RIGHT; -- Ergebnis: green
b := signal_colors'BASE'RIGHT; -- Ergebnis: blue
b := colors'LEFTOF(red); -- Ergebnis: white
b := colors'RIGHTOF(red); -- Ergebnis: yellow
a := colors'POS(red); -- Ergebnis: 1 (Aufzaehltypen
-- werden von 0 an indiziert)
b := colors'VAL(2); -- Ergebnis: yellow
c := asc_int'ASCENDING; -- Ergebnis: true !!! VHDL'93
c := desc_int'ASCENDING; -- Ergebnis: false !!! VHDL'93
b := colors'VALUE("red "); -- Ergebnis: red (VHDL'93)
WAIT;
END PROCESS;
Das Ergebnis der Attribute RIGHT/LEFT und RIGHTOF/LEFTOF
hängt also von der Indizierungsrichtung ab. Bei fallender Indizierung
sind die Ergebnisse identisch mit den Ergebnissen von LOW/HIGH
132 © G. Lehmann/B. Wunder/M. Selz