URL
https://opencores.org/ocsvn/w11/w11/trunk
[/] [w11/] [tags/] [w11a_V0.6/] [tools/] [bin/] [xilinx_vhdl_memcolltype_fix] - Blame information for rev 38
Go to most recent revision |
Details |
Compare with Previous |
View Log
Line No. |
Rev |
Author |
Line |
1 |
2 |
wfjm |
#!/bin/sh
|
2 |
8 |
wfjm |
# $Id: xilinx_vhdl_memcolltype_fix 93 2007-10-28 21:24:44Z mueller $
|
3 |
2 |
wfjm |
#
|
4 |
|
|
# remove the lines
|
5 |
|
|
#
|
6 |
|
|
# variable Write_A_Write_B : memory_collision_type := Write_A_Write_B;
|
7 |
|
|
# variable Read_A_Write_B : memory_collision_type := Read_A_Write_B;
|
8 |
|
|
# variable Write_A_Read_B : memory_collision_type := Write_A_Read_B;
|
9 |
|
|
# variable Write_B_Write_A : memory_collision_type := Write_B_Write_A;
|
10 |
|
|
# variable Read_B_Write_A : memory_collision_type := Read_B_Write_A;
|
11 |
|
|
# variable Write_B_Read_A : memory_collision_type := Write_B_Read_A;
|
12 |
|
|
#
|
13 |
|
|
# from vhd sources. These self-referencial init are wrong and cause ghdl to
|
14 |
|
|
# choke. The awk script checks quite closely for this patterns.
|
15 |
|
|
|
16 |
|
|
for file in `egrep -l 'variable.*(Read|Write)_(A|B)_(Read|Write)_(A|B)' *.vhd`
|
17 |
|
|
do
|
18 |
|
|
echo "# strip 'variable.. memory_collision_type..' in $file"
|
19 |
|
|
mv $file $file.old
|
20 |
|
|
awk '! /variable.*(Read|Write)_(A|B)_(Read|Write)_(A|B).*memory_collision_type.*(Read|Write)_(A|B)_(Read|Write)_(A|B)/ {print $0}' $file.old > $file
|
21 |
|
|
done
|
© copyright 1999-2024
OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.