高手们帮我看看好吗

ganggang1945

library ieee;
use ieee.std_logic_1164.all;
5 s: z0 a- u+ cuse ieee.std_logic_unsigned.all;
entity corna is


port(clr,sig,door:in std_logic;
: y; t: C% @- O2 |+ G" ?almut std_logic;
. E# U$ N0 v5 p; ^0 \1 D0 pq3,q2,q1,q0,dangut std_logic_vector(3 downto 0));
end corna;
4 [; ]$ b3 X2 q, E/ O$ l8 parchitecture corn_arc of corna is
begin
/ s7 O; d* a1 q- n- G; @
process(door,sig)

variable c0,c1,c2,c3,c4,c5,c6:std_logic_vector(3 downto 0);
' |( A0 a+ w8 k
, p1 h) S; D( W+ }  ]# Lvariable x:std_logic;
0 t6 T$ o- `4 v( R( }3 ?6 \3 H
begin
) \) d$ q: O1 \: ^7 E5 Z+ R% Z$ Yif sig’event and sig=’1’ then
) f) z& S; y" @# ^1 {! {
+ T6 `0 {( T& t0 Q2 Lif door=’1’ then
5 @% r  B3 M$ J. L' `0 E, l* f
6 p. P. \" |7 N( F& G  X7 eif c0<”1001” then

) v2 ^0 d; O: u! yc0:=c0+1;

! }4 A5 b, [' I% m: G& ?else

; r5 }# T7 j8 j; F# N. d8 D
c0:=”0000”;

: e4 a# C" q8 {- l' O- r4 s; Eif c1<”1001” then
/ X) F8 v, ~+ G
0 }) C4 C/ M7 j3 F; Ac1:=c1+1;
' i9 I: }4 t; f6 q1 ^% b) j
: \" c, ?; @0 v9 f' h/ u% c3 ]else

2 r' T' Y, {4 L7 Kc1:=”0000”;
5 D! {( A- D( t, d" y9 \6 x
if c2<”1001” then
  x7 _% `" j4 j1 |- _
  a( D# U$ i' l% C. s( H  `6 wc2:=c2+1;


else
2 ]( f, `/ m/ O/ v' y6 k
- ]9 H" ~' Y; P' Uc2:=”0000”;

if c3<”1001” then

- v3 Q  e' H0 h" d4 v- @c3:=c3+1;
: D5 S+ d4 j) A. d/ S# d9 Z
  n# ~2 q$ z% u8 E8 ^9 lelse
* ]0 m! f  j. b) o7 G3 q: o1 `
/ F) z5 B/ ^% s- B  z0 R8 Tc3:=”0000”;

if c4<”1001” then
- I: Y1 l. a7 d0 v$ t0 u- P
c4:=c4+1;
$ y/ k' X# f& ^5 z! }; E; ^
else
0 h* s) R; Z- @& Z2 ?7 h/ g9 ?) A1 ^
2 G: r+ e9 F! g& Uc4:=”0000”;

if c5<”1001” then

c5:=c5+1;


- K8 w) t0 [; P3 Xelse
  o, }' m; q/ ]. r6 R" Q; y
7 b6 @$ e# [- M: [3 uc5:=”0000”;
' b6 [! i/ ?, g* p! l
  a" ^+ s9 n4 N! R3 Jif c6<”1001” then
% d2 \0 k3 u6 P9 f8 I; v9 W
( n( A0 s( _6 R. e8 wc6:=c6+1;
  i# U; A& y: C. w( _+ }
. _; d2 q5 p% y+ O$ nelse

c6:=”0000”;
" D) n2 q$ }- S+ e) F( }

+ @/ c! u, [5 w/ @( l+ J( M. falm<=’1’;
! n* I1 c& K. Y5 O' \
, m& [) |8 `5 K- @; l7 hend if;
6 Z# Y' \# H' H
end if;

* a; {" G! t: Iend if;
0 N" U( f0 i0 {1 |, X
2 `7 G0 |- o4 oend if;
4 L% R1 t, q/ q$ x( x, [
. n' t9 o! W, R! L  y% uend if;
, I' z3 x# v! t
+ N- p' F8 v% {# f) I3 N0 E1 ~end if;

' u7 j* Q1 ^+ L$ M: i# k6 V
9 e1 n! v# k6 z, z; a* d5 Bend if;
2 i, A0 u* b  {6 E) s( F2 p' l% }
6 f* m6 x& `! ?0 T; P7 _else

if clr=’0’ then

1 M$ a+ T( M. r2 f+ c5 kalm<=’0’;

/ A; y) P4 D. `& f% h$ T0 k, pend if;
) ~: c1 H8 j  o' `8 C
c6:=”0000”;

c5:=”0000”;

c4:=”0000”;
0 ~+ T- r. P3 z( \% W
c3:=”0000”;

$ v& h) D$ L+ X- yc2:=”0000”;

- v; H& E5 d5 K* v% u% \( Wc1:=”0000”;

# n( s+ T- t- B$ f: Gc0:=”0000”;
6 D, A% L' m& V/ t( q! a3 ?, W
end if;

- C5 H! ]1 F  C& Vif c6/=”0000” then
3 r, Z1 a$ P" O1 d
q3<=c6;
( }6 N& E$ A7 R. C' V# M% o: r
q2<=c5;

5 O6 E7 m: z0 \8 }! ~  m$ Iq1<=c4;


q0<=c3;
2 W# ^! X7 Y$ t# R6 ]  [9 {# x6 `
dang<=”0100”;

elsif c5/=”0000” then
( I3 I2 S" z  m) t8 I8 F% b. S+ k/ R
" F  J1 h: m5 _# G' @8 Kq3<=c5;
* c5 h8 x  _  D. w6 t. S1 |
q2<=c4;
1 K" ~  O+ r5 k/ k& \" P( d
q1<=c3;
# [2 |" h) T8 d( U4 P3 H
& U/ X  E. _& o' h4 Z$ i: cq0<=c2;

dang<=”0011”;

  f4 K; t: R1 g9 h, O! {
' ?: m1 a4 W4 Y5 ?" {elsif c4/=”0000” then
9 a% N# t) d1 n, |$ Z
q3<=c4;
& Y- F3 ~! w  }
q2<=c3;

q1<=c2;
* `: \$ g; n) q. A
1 j6 n# Y: D4 k6 @5 i; Z; H, Gq0<=c1;
# ]+ I' q  @4 \: D
2 R- {( o1 f8 n  q- V; Kdang<=”0010”;

else
' i. J4 t. Z+ }' |
; }& C# N6 r. F& j! _% Xq3<=c3;

5 T2 s6 [. d" C8 i. }4 p% Wq2<=c2;
- L6 ^2 _6 Q6 d8 q: f; ?

q1<=c1;

& I2 C( s) @4 Oq0<=c0;

8 h) |- R- S. f8 X: ldang<=”0001”;

5 D% H$ F  q" ~( i5 b" _4 y6 Wend if;
7 ~) u4 Y1 F0 E+ N- i6 W, D
end if;

end process;
end corn_arc;

这段程序用了之后出现了Project requires too many logic cells 和project requires too many  shareable expanders 高手们帮帮我好吗？