Erster ernster Versuch- kann mal jemand drüberschauen?

Heiko L. (der_caveman) 03.02.2009 22:06 #1134242

Lesenswert?

•

Hallo!
Das ist mein erster, ernster Versuch mit VHDL ;)

Ich habe versucht den TWI- Prescaler der Mega AVRs (48/88/168- bestimmt 
auch viele andere) nachzubauen.

Ich finde, dass das schon mal ganz toll aussieht, aber ist es das auch?

library IEEE;
use IEEE.STD_LOGIC_1164.ALL;
use IEEE.NUMERIC_STD.ALL;
entity i2c_ce_gen is
    Port ( CLK_I : in  STD_LOGIC;
           RST_I : in STD_LOGIC;
           CE_I : in  STD_LOGIC;
           TWPS_I : in  STD_LOGIC_VECTOR (1 downto 0);
           TWBR_I : in  STD_LOGIC_VECTOR (7 downto 0);
           CE_O : out  STD_LOGIC);
end i2c_ce_gen;
architecture Behavioral of i2c_ce_gen is
signal prescale : integer range 0 to 32767;
signal prescale_cmp : integer range 0 to 32767;
signal sub_prescale : integer range 1 to 64;
signal twbr_temp : integer range 0 to 255;
process (CLK_I)
  --[CLKSYNC] sync process
  if rising_edge(CLK_I) then
    --[RESET]sync reset
    if RST_I = '1' then
      CE_O <= '0';
      prescale <= 0;
      prescale_cmp <= 0;
      sub_prescale <= 1;
    else
      --avr style prescaler selection
      case TWPS_I is
        when "00" => sub_prescale <= 1;
        when "01" => sub_prescale <= 4;
        when "10" => sub_prescale <= 16;
        when "11" => sub_prescale <= 64;
        when others => null;
      end case;
      --avr style prescale count register
      twbr_temp <= to_integer( unsigned(TWBR_I));
      --calculation of compare value (avr style)
      prescale_cmp <= 15 + 2 * twbr_temp * sub_prescale;
      --[CE] to cascade prescalers
      if CE_I = '1' then
        prescale <= prescale + 1;
        --[COMP] comparator
        if prescale = prescale_cmp then
          CE_O <= '1';
          prescale <= 0;
        else
          CE_O <= '0';
        end if; --/[COMP]
      end if; --/[CE]
    end if; --/[RESET]
  end if; --/[CLKSYNC]
end process;
end Behavioral;

Antwort Zitieren Bearbeiten Thread verschieben Thread sperren Anmeldepflicht aktivieren Anpinnen Thread löschen Thread mit anderem zusammenführen Beitrag melden

Jan M. (mueschel) 04.02.2009 01:00 #1134406

Lesenswert?

•

▲
▼

Ich würde sagen, da gibts erstmal nichts zu meckern.
Du solltest aber bei der Synthese mal nachschauen, was hieraus gemacht 
wird:
> prescale_cmp <= 15 + 2  twbr_temp  sub_prescale;
Da sub_prescale ja nur Zweierpotenzen als Wert annehmen kann, braucht es 
hier ja keinen Multiplizierer - ich weiß nur nicht, ob das 
Synthese-Programm das auch erkennt. Falls nicht, kannst du den Code 
etwas umstellen um ihm auf die Sprünge zu helfen.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Duke Scarring Gast 04.02.2009 08:09 #1134471

Lesenswert?

•

▲
▼

@Heiko Lechner:

Für den ersten Versuch sieht es echt gut aus. Hast Du auch eine 
Testbench dazu, um den Block funktional verifizieren zu können?

Duke

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Heiko L. (der_caveman) 04.02.2009 08:13 #1134475

Lesenswert?

•

▲
▼

Jan M. wrote:

>> prescale_cmp <= 15 + 2  twbr_temp  sub_prescale;
> Da sub_prescale ja nur Zweierpotenzen als Wert annehmen kann, braucht es
> hier ja keinen Multiplizierer - ich weiß nur nicht, ob das
> Synthese-Programm das auch erkennt. Falls nicht, kannst du den Code
> etwas umstellen um ihm auf die Sprünge zu helfen.

Ok, da habe ich noch nicht dran gedacht.
Wie wird denn ein "left shift" synthetisiert (Mux, Schieberegister oder 
ganz anders)?

> Für den ersten Versuch sieht es echt gut aus.

Erster ernster Versuch ;)
Davor gab es auch schon so manchen Müll :)

> Hast Du auch eine
> Testbench dazu, um den Block funktional verifizieren zu können?

Bin ich gerade dran, die ersten Versuche sehen schon brauchbar aus.

Danke,
Heiko.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Jan M. (mueschel) 04.02.2009 10:41 #1134661

Lesenswert?

•

▲
▼

Heiko Lechner wrote:
> Jan M. wrote:
>
>>> prescale_cmp <= 15 + 2  twbr_temp  sub_prescale;
>> Da sub_prescale ja nur Zweierpotenzen als Wert annehmen kann, braucht es
>> hier ja keinen Multiplizierer - ich weiß nur nicht, ob das
>> Synthese-Programm das auch erkennt. Falls nicht, kannst du den Code
>> etwas umstellen um ihm auf die Sprünge zu helfen.
>
> Ok, da habe ich noch nicht dran gedacht.
> Wie wird denn ein "left shift" synthetisiert (Mux, Schieberegister oder
> ganz anders)?

Es muss nichts wirklich geschoben werden, nur die richtigen Bits 
ausgewaehlt - es gibt also einen 4-zu-1-mux, der je nach Prescaler 
entweder Bit0, 2,4 oder 6 von twbr_temp auf Bit0 von prescale_cmp legt 
(zuzueglich Addition natuerlich).

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Heiko L. (der_caveman) 04.02.2009 20:29 #1135591

Lesenswert?

•

▲
▼

Jan M. wrote:

> Es muss nichts wirklich geschoben werden, nur die richtigen Bits
> ausgewaehlt - es gibt also einen 4-zu-1-mux, der je nach Prescaler
> entweder Bit0, 2,4 oder 6 von twbr_temp auf Bit0 von prescale_cmp legt
> (zuzueglich Addition natuerlich).

Es wird tatsächlich ein Multiplizierer generiert.

Ich habe es nun geändert zu:

--avr style prescaler selection
case TWPS_I is
  when "00" => sub_prescale <= 0; -- x<<0 == x*1
  when "01" => sub_prescale <= 2; -- x<<2 == x*4
  when "10" => sub_prescale <= 4; -- x<<4 == x*16
  when "11" => sub_prescale <= 6; -- x<<6 == x*64
  when others => null;
end case;  
--avr style prescale count register
twbr_temp <= to_integer( unsigned(TWBR_I));
--calculation of compare value (avr style)
prescale_cmp <= 15 + to_integer(to_unsigned(twbr_temp,8) sll (sub_prescale+1));


Allerdings ist die "Multiplizierer- Variante" bis auf den Multiplizierer 
ressourcensparender.

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Lothar M. (lkmiller) Moderator (Firma: Titel) 04.02.2009 20:33 #1135595

Lesenswert?

•

▲
▼

Das:

--avr style prescaler selection
case TWPS_I is
  when "00" => sub_prescale <= 0; -- x<<0 == x*1
  when "01" => sub_prescale <= 2; -- x<<2 == x*4
  when "10" => sub_prescale <= 4; -- x<<4 == x*16
  when "11" => sub_prescale <= 6; -- x<<6 == x*64
  when others => null;
end case;


ginge aber auch so:

  sub_prescale <=  to_integer(unsigned(TWPS_I & '0'));

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Heiko L. (der_caveman) 04.02.2009 20:40 #1135611

Lesenswert?

•

▲
▼

Lothar Miller wrote:

> ginge aber auch so:

sub_prescale <=  to_integer(unsigned(TWPS_I & '0'));


Fällt mir jetzt erst auf :)

Kann die case Anweisung denn zu weniger "optimierten" Synthetisierungen 
führen (etwas übersichtlicher finde ich es schon)?

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Duke Scarring Gast 05.02.2009 08:21 #1136048

Lesenswert?

•

▲
▼

@Heiko:
> Kann die case Anweisung denn zu weniger "optimierten" Synthetisierungen
> führen (etwas übersichtlicher finde ich es schon)?

Ja, kann. Die Wege der Synthesetools sind manchmal unergründlich :-(
Ich würde nur auf Platz optimieren, wenn es triftige Gründe gibt. Sicher 
muß man die Ressourcen nicht verschwenden, aber bei 
Entwicklungsprojekten, wo es nicht auf Masse oder Platz, sondern auf 
Zeit ankommt, hat man einfach keine Zeit ewig rumzuoptimieren.

Lieber lesebarer hinschreiben, da hat man später (manchmal) mehr davon.

Duke

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Lothar M. (lkmiller) Moderator (Firma: Titel) 05.02.2009 10:39 #1136206

Lesenswert?

•

▲
▼

> (etwas übersichtlicher finde ich es schon)?
Weil TWPS_I nur 4 Zustände hat und alle im case auscodiert wurden, 
solltest du aber das

when others => null;

 aus dem case herauslassen. Sonst könnte man ja meinen, da gäbe es noch 
andere (nicht abgedeckte) Zustände. Und das wäre dann doch etwas 
unübersichtlich ...  ;-)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Duke Scarring Gast 05.02.2009 10:55 #1136234

Lesenswert?

•

▲
▼

@Lothar:
Die anderen Zustände gibt es doch, oder wolltest Du alles hinschreiben:

when "ZZ" => ...;
when "U1" => ...;
when "LH" => ...;


:-)

Duke

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Lothar M. (lkmiller) Moderator (Firma: Titel) 05.02.2009 11:25 #1136273

Lesenswert?

•

▲
▼

>  when "ZZ" => ...;
>  when "U1" => ...;
>  when "XU" => ...;
>  when "LZ" => ...;
>  when "LH" => ...;
Auf die Signalzustände wollte ich schon immer mal abfragen  ;-)

Antwort Zitieren Bearbeiten Löschen Beitrag melden

Erster ernster Versuch- kann mal jemand drüberschauen?

Antwort schreiben