150 lines
3.2 KiB
C
150 lines
3.2 KiB
C
/* This file is part of the program psim.
|
|
|
|
Copyright (C) 1994-1995, Andrew Cagney <cagney@highland.com.au>
|
|
|
|
This program 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 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 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 this program; if not, write to the Free Software
|
|
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
|
|
*/
|
|
|
|
|
|
/* Frustrating header junk */
|
|
|
|
#include "config.h"
|
|
|
|
|
|
enum {
|
|
default_insn_bit_size = 32,
|
|
max_insn_bit_size = 64,
|
|
};
|
|
|
|
|
|
/* Define a 64bit data type */
|
|
|
|
#if defined __GNUC__ || defined _WIN32
|
|
#ifdef __GNUC__
|
|
|
|
typedef long long signed64;
|
|
typedef unsigned long long unsigned64;
|
|
|
|
#else /* _WIN32 */
|
|
|
|
typedef __int64 signed64;
|
|
typedef unsigned __int64 unsigned64;
|
|
|
|
#endif /* _WIN32 */
|
|
#else /* Not GNUC or WIN32 */
|
|
/* Not supported */
|
|
#endif
|
|
|
|
|
|
#include <stdio.h>
|
|
#include <ctype.h>
|
|
|
|
#ifdef HAVE_STRING_H
|
|
#include <string.h>
|
|
#else
|
|
#ifdef HAVE_STRINGS_H
|
|
#include <strings.h>
|
|
#endif
|
|
#endif
|
|
|
|
#ifdef HAVE_STDLIB_H
|
|
#include <stdlib.h>
|
|
#endif
|
|
|
|
#if !defined (__attribute__) && (!defined(__GNUC__) || __GNUC__ < 2 || (__GNUC__ == 2 && __GNUC_MINOR__ < 7))
|
|
#define __attribute__(arg)
|
|
#endif
|
|
|
|
|
|
|
|
#include "filter_host.h"
|
|
|
|
typedef struct _line_ref line_ref;
|
|
struct _line_ref {
|
|
const char *file_name;
|
|
int line_nr;
|
|
};
|
|
|
|
/* Error appends a new line, warning and notify do not */
|
|
typedef void error_func
|
|
(const line_ref *line,
|
|
char *msg,
|
|
...);
|
|
|
|
extern error_func error;
|
|
extern error_func warning;
|
|
extern error_func notify;
|
|
|
|
|
|
#define ERROR(EXPRESSION) \
|
|
do { \
|
|
line_ref line; \
|
|
line.file_name = filter_filename (__FILE__); \
|
|
line.line_nr = __LINE__; \
|
|
error (&line, EXPRESSION); \
|
|
} while (0)
|
|
|
|
#define ASSERT(EXPRESSION) \
|
|
do { \
|
|
if (!(EXPRESSION)) { \
|
|
line_ref line; \
|
|
line.file_name = filter_filename (__FILE__); \
|
|
line.line_nr = __LINE__; \
|
|
error(&line, "assertion failed - %s\n", #EXPRESSION); \
|
|
} \
|
|
} while (0)
|
|
|
|
#define ZALLOC(TYPE) ((TYPE*) zalloc (sizeof(TYPE)))
|
|
#define NZALLOC(TYPE,N) ((TYPE*) zalloc (sizeof(TYPE) * (N)))
|
|
#if 0
|
|
#define STRDUP(STRING) (strcpy (zalloc (strlen (STRING) + 1), (STRING)))
|
|
#define STRNDUP(STRING,LEN) (strncpy (zalloc ((LEN) + 1), (STRING), (LEN)))
|
|
#endif
|
|
|
|
extern void *zalloc
|
|
(long size);
|
|
|
|
extern unsigned target_a2i
|
|
(int ms_bit_nr,
|
|
const char *a);
|
|
|
|
extern unsigned i2target
|
|
(int ms_bit_nr,
|
|
unsigned bit);
|
|
|
|
extern unsigned long long a2i
|
|
(const char *a);
|
|
|
|
|
|
/* Try looking for name in the map table (returning the corresponding
|
|
integer value).
|
|
|
|
If the the sentinal (NAME == NULL) its value if >= zero is returned
|
|
as the default. */
|
|
|
|
typedef struct _name_map {
|
|
const char *name;
|
|
int i;
|
|
} name_map;
|
|
|
|
extern int name2i
|
|
(const char *name,
|
|
const name_map *map);
|
|
|
|
extern const char *i2name
|
|
(const int i,
|
|
const name_map *map);
|