From 4e97776d0a637d0889bcdb0979e4dcb8cdb9d0f4 Mon Sep 17 00:00:00 2001 From: Tristan Gingold Date: Tue, 29 May 2018 21:22:44 +0200 Subject: Rename issue581 -> issue584 --- testsuite/gna/issue581/LinkedListPkg.vhd | 21 --------------------- testsuite/gna/issue581/Test_LinkedListPkg.vhd | 26 -------------------------- testsuite/gna/issue581/testsuite.sh | 12 ------------ testsuite/gna/issue584/LinkedListPkg.vhd | 21 +++++++++++++++++++++ testsuite/gna/issue584/Test_LinkedListPkg.vhd | 26 ++++++++++++++++++++++++++ testsuite/gna/issue584/testsuite.sh | 12 ++++++++++++ 6 files changed, 59 insertions(+), 59 deletions(-) delete mode 100644 testsuite/gna/issue581/LinkedListPkg.vhd delete mode 100644 testsuite/gna/issue581/Test_LinkedListPkg.vhd delete mode 100755 testsuite/gna/issue581/testsuite.sh create mode 100644 testsuite/gna/issue584/LinkedListPkg.vhd create mode 100644 testsuite/gna/issue584/Test_LinkedListPkg.vhd create mode 100755 testsuite/gna/issue584/testsuite.sh (limited to 'testsuite') diff --git a/testsuite/gna/issue581/LinkedListPkg.vhd b/testsuite/gna/issue581/LinkedListPkg.vhd deleted file mode 100644 index 87f6cbf69..000000000 --- a/testsuite/gna/issue581/LinkedListPkg.vhd +++ /dev/null @@ -1,21 +0,0 @@ ---! @author Trip Richert - -library ieee; -use ieee.std_logic_1164.all; - -package LinkedListPkg is - generic ( - type elem_type - ); - - type LinkedList; - type LinkedListPtr is access LinkedList; - - type LinkedList is record - elem : elem_type; - nextPtr : LinkedListPtr; - end record LinkedList; - - -end package LinkedListPkg; - diff --git a/testsuite/gna/issue581/Test_LinkedListPkg.vhd b/testsuite/gna/issue581/Test_LinkedListPkg.vhd deleted file mode 100644 index bddf3fcd5..000000000 --- a/testsuite/gna/issue581/Test_LinkedListPkg.vhd +++ /dev/null @@ -1,26 +0,0 @@ -library ieee; -use ieee.std_logic_1164.all; -library std; -use std.textio.all; - - -entity test_linkedListPkg is - package NaturalLinkedListPackage is new work.LinkedListPkg generic map(natural); - use NaturalLinkedListPackage.all; -end entity test_linkedListPkg; - -architecture behavioral of test_linkedListPkg is - -begin - process - variable list : LinkedListPtr; - variable l : line; - variable cnt : natural; - begin - write (l, cnt); - writeline (output, l); - wait; - end process; - -end architecture behavioral; - diff --git a/testsuite/gna/issue581/testsuite.sh b/testsuite/gna/issue581/testsuite.sh deleted file mode 100755 index 019afef4b..000000000 --- a/testsuite/gna/issue581/testsuite.sh +++ /dev/null @@ -1,12 +0,0 @@ -#! /bin/sh - -. ../../testenv.sh - -export GHDL_STD_FLAGS=--std=08 -analyze LinkedListPkg.vhd -analyze Test_LinkedListPkg.vhd -elab_simulate Test_LinkedListPkg - -clean - -echo "Test successful" diff --git a/testsuite/gna/issue584/LinkedListPkg.vhd b/testsuite/gna/issue584/LinkedListPkg.vhd new file mode 100644 index 000000000..87f6cbf69 --- /dev/null +++ b/testsuite/gna/issue584/LinkedListPkg.vhd @@ -0,0 +1,21 @@ +--! @author Trip Richert + +library ieee; +use ieee.std_logic_1164.all; + +package LinkedListPkg is + generic ( + type elem_type + ); + + type LinkedList; + type LinkedListPtr is access LinkedList; + + type LinkedList is record + elem : elem_type; + nextPtr : LinkedListPtr; + end record LinkedList; + + +end package LinkedListPkg; + diff --git a/testsuite/gna/issue584/Test_LinkedListPkg.vhd b/testsuite/gna/issue584/Test_LinkedListPkg.vhd new file mode 100644 index 000000000..bddf3fcd5 --- /dev/null +++ b/testsuite/gna/issue584/Test_LinkedListPkg.vhd @@ -0,0 +1,26 @@ +library ieee; +use ieee.std_logic_1164.all; +library std; +use std.textio.all; + + +entity test_linkedListPkg is + package NaturalLinkedListPackage is new work.LinkedListPkg generic map(natural); + use NaturalLinkedListPackage.all; +end entity test_linkedListPkg; + +architecture behavioral of test_linkedListPkg is + +begin + process + variable list : LinkedListPtr; + variable l : line; + variable cnt : natural; + begin + write (l, cnt); + writeline (output, l); + wait; + end process; + +end architecture behavioral; + diff --git a/testsuite/gna/issue584/testsuite.sh b/testsuite/gna/issue584/testsuite.sh new file mode 100755 index 000000000..019afef4b --- /dev/null +++ b/testsuite/gna/issue584/testsuite.sh @@ -0,0 +1,12 @@ +#! /bin/sh + +. ../../testenv.sh + +export GHDL_STD_FLAGS=--std=08 +analyze LinkedListPkg.vhd +analyze Test_LinkedListPkg.vhd +elab_simulate Test_LinkedListPkg + +clean + +echo "Test successful" -- cgit v1.2.3