From 0a4889609312fae3805cb8f9ed2cbcc80192c8f2 Mon Sep 17 00:00:00 2001 From: 1138-4EB <1138-4EB@users.noreply.github.com> Date: Sat, 26 May 2018 21:26:13 +0200 Subject: fix 'occured' typo --- testsuite/gna/issue42/bugreport_attribute.vhdl | 164 ++++++++++++------------- 1 file changed, 82 insertions(+), 82 deletions(-) (limited to 'testsuite/gna/issue42') diff --git a/testsuite/gna/issue42/bugreport_attribute.vhdl b/testsuite/gna/issue42/bugreport_attribute.vhdl index a99d11263..36eab55d2 100644 --- a/testsuite/gna/issue42/bugreport_attribute.vhdl +++ b/testsuite/gna/issue42/bugreport_attribute.vhdl @@ -1,82 +1,82 @@ --- EMACS settings: -*- tab-width: 2; indent-tabs-mode: t -*- --- vim: tabstop=2:shiftwidth=2:noexpandtab --- kate: tab-width 2; replace-tabs off; indent-width 2; --- ============================================================================= --- Authors: Patrick Lehmann --- Reproducer: Experiments on custom attributes ended in a crash. --- --- License: --- ============================================================================= --- Copyright 2007-2016 Technische Universitaet Dresden - Germany --- Chair for VLSI-Design, Diagnostics and Architecture --- --- Licensed under the Apache License, Version 2.0 (the "License"); --- you may not use this file except in compliance with the License. --- You may obtain a copy of the License at --- --- http://www.apache.org/licenses/LICENSE-2.0 --- --- Unless required by applicable law or agreed to in writing, software --- distributed under the License is distributed on an "AS IS" BASIS, --- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. --- See the License for the specific language governing permissions and --- limitations under the License. --- ============================================================================= --- --- Issue: --- I'm not sure if my experimental code is allowed in VHDL, but it let GHDL --- crash. So I'm reporting just an unhandled exception. --- --- GHDL's output is: --- .\attribute.vhdl:64:58: can't match 'image attribute with type character --- .\attribute.vhdl:64:53: (location of 'image attribute) --- finish_sem_name: cannot handle IIR_KIND_OVERLOAD_LIST (??:??:??) --- --- ******************** GHDL Bug occured **************************** --- Please report this bug on https://github.com/tgingold/ghdl/issues --- GHDL release: GHDL 0.34dev (commit: 2016-02-11; git branch: paebbels/master'; hash: f24fdfb) [Dunoon edition] --- Compiled with GNAT Version: GPL 2015 (20150428-49) --- In directory: H:\Austausch\PoC\temp\ghdl\ --- Command line: --- C:\Tools\GHDL.new\bin\ghdl.exe -a --std=08 .\attribute.vhdl --- Exception TYPES.INTERNAL_ERROR raised --- Exception information: --- Exception name: TYPES.INTERNAL_ERROR --- Message: errorout.adb:66 --- ****************************************************************** --- --- GHDL calls: --- PS> ghdl.exe -a --std=93c .\attribute.vhdl --- PS> ghdl.exe -a --std=08 .\attribute.vhdl --- -library IEEE; -use IEEE.std_logic_1164.all; - - -entity test is -end entity; - -architecture tb of test is - function to_string(slv : STD_LOGIC_VECTOR) return STRING is - variable Result : STRING(slv'length - 1 downto 0); - begin - for i in slv'range loop - Result(i + 1) := STD_LOGIC'image(slv(i)); - end loop; - return Result; - end function; - - attribute serialize : to_string; - - signal mySignal : STD_LOGIC_VECTOR(7 downto 0); - attribute serialize of mySignal : signal is to_string[STD_LOGIC_VECTOR return STRING]; - -begin - mySignal <= x"24"; - - process - begin - report "mySignal=" & mySignal'serialize severity NOTE; - wait; - end process; -end architecture; +-- EMACS settings: -*- tab-width: 2; indent-tabs-mode: t -*- +-- vim: tabstop=2:shiftwidth=2:noexpandtab +-- kate: tab-width 2; replace-tabs off; indent-width 2; +-- ============================================================================= +-- Authors: Patrick Lehmann +-- Reproducer: Experiments on custom attributes ended in a crash. +-- +-- License: +-- ============================================================================= +-- Copyright 2007-2016 Technische Universitaet Dresden - Germany +-- Chair for VLSI-Design, Diagnostics and Architecture +-- +-- Licensed under the Apache License, Version 2.0 (the "License"); +-- you may not use this file except in compliance with the License. +-- You may obtain a copy of the License at +-- +-- http://www.apache.org/licenses/LICENSE-2.0 +-- +-- Unless required by applicable law or agreed to in writing, software +-- distributed under the License is distributed on an "AS IS" BASIS, +-- WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. +-- See the License for the specific language governing permissions and +-- limitations under the License. +-- ============================================================================= +-- +-- Issue: +-- I'm not sure if my experimental code is allowed in VHDL, but it let GHDL +-- crash. So I'm reporting just an unhandled exception. +-- +-- GHDL's output is: +-- .\attribute.vhdl:64:58: can't match 'image attribute with type character +-- .\attribute.vhdl:64:53: (location of 'image attribute) +-- finish_sem_name: cannot handle IIR_KIND_OVERLOAD_LIST (??:??:??) +-- +-- ******************** GHDL Bug occurred **************************** +-- Please report this bug on https://github.com/tgingold/ghdl/issues +-- GHDL release: GHDL 0.34dev (commit: 2016-02-11; git branch: paebbels/master'; hash: f24fdfb) [Dunoon edition] +-- Compiled with GNAT Version: GPL 2015 (20150428-49) +-- In directory: H:\Austausch\PoC\temp\ghdl\ +-- Command line: +-- C:\Tools\GHDL.new\bin\ghdl.exe -a --std=08 .\attribute.vhdl +-- Exception TYPES.INTERNAL_ERROR raised +-- Exception information: +-- Exception name: TYPES.INTERNAL_ERROR +-- Message: errorout.adb:66 +-- ****************************************************************** +-- +-- GHDL calls: +-- PS> ghdl.exe -a --std=93c .\attribute.vhdl +-- PS> ghdl.exe -a --std=08 .\attribute.vhdl +-- +library IEEE; +use IEEE.std_logic_1164.all; + + +entity test is +end entity; + +architecture tb of test is + function to_string(slv : STD_LOGIC_VECTOR) return STRING is + variable Result : STRING(slv'length - 1 downto 0); + begin + for i in slv'range loop + Result(i + 1) := STD_LOGIC'image(slv(i)); + end loop; + return Result; + end function; + + attribute serialize : to_string; + + signal mySignal : STD_LOGIC_VECTOR(7 downto 0); + attribute serialize of mySignal : signal is to_string[STD_LOGIC_VECTOR return STRING]; + +begin + mySignal <= x"24"; + + process + begin + report "mySignal=" & mySignal'serialize severity NOTE; + wait; + end process; +end architecture; -- cgit v1.2.3