-- Bug handling
-- Copyright (C) 2002, 2003, 2004, 2005 Tristan Gingold
--
-- GHDL is free software; you can redistribute it and/or modify it under
-- the terms of the GNU General Public License as published by the Free
-- Software Foundation; either version 2, or (at your option) any later
-- version.
--
-- GHDL is distributed in the hope that it will be useful, but WITHOUT ANY
-- WARRANTY; without even the implied warranty of MERCHANTABILITY or
-- FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
-- for more details.
--
-- You should have received a copy of the GNU General Public License
-- along with GHDL; see the file COPYING. If not, write to the Free
-- Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-- 02111-1307, USA.
with Ada.Exceptions; use Ada.Exceptions;
package Bug is
-- Display a bug box for EXCEPT.
procedure Disp_Bug_Box (Except : Exception_Occurrence);
-- Get the gnat version used to bind the unit.
function Get_Gnat_Version return String;
end Bug;
t>
/*Copyright 2011 Jun Wako <wakojun@gmail.com>This program is free software: you can redistribute it and/or modifyit under the terms of the GNU General Public License as published bythe Free Software Foundation, either version 2 of the License, or(at your option) any later version.This program is distributed in the hope that it will be useful,but WITHOUT ANY WARRANTY; without even the implied warranty ofMERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See theGNU General Public License for more details.You should have received a copy of the GNU General Public Licensealong with this program. If not, see <http://www.gnu.org/licenses/>.*/#ifndef UTIL_H#define UTIL_H#include<stdint.h>// convert to L string#define LSTR(s) XLSTR(s)#define XLSTR(s) L ## #s// convert to string#define STR(s) XSTR(s)#define XSTR(s) #suint8_tbitpop(uint8_tbits);uint8_tbitpop16(uint16_tbits);uint8_tbitpop32(uint32_tbits);uint8_tbiton(uint8_tbits);uint8_tbiton16(uint16_tbits);uint8_tbiton32(uint32_tbits);uint8_tbitrev(uint8_tbits);uint16_tbitrev16(uint16_tbits);uint32_tbitrev32(uint32_tbits);#endif