mirror of
https://github.com/steveicarus/iverilog.git
synced 2026-08-22 05:47:31 +02:00
Add the pal loadable target.
This commit is contained in:
steve
@@ -0,0 +1,3 @@
|
||||
dep
|
||||
Makefile
|
||||
pal.tgt
|
||||
@@ -0,0 +1,83 @@
|
||||
#
|
||||
# This source code is free software; you can redistribute it
|
||||
# and/or modify it in source code form under the terms of the GNU
|
||||
# Library 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 Library General Public License for more details.
|
||||
#
|
||||
# You should have received a copy of the GNU Library 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
|
||||
#
|
||||
#ident "$Id: Makefile.in,v 1.1 2000/12/09 01:17:38 steve Exp $"
|
||||
#
|
||||
#
|
||||
SHELL = /bin/sh
|
||||
|
||||
VERSION = 0.0
|
||||
|
||||
prefix = @prefix@
|
||||
exec_prefix = @exec_prefix@
|
||||
srcdir = @srcdir@
|
||||
|
||||
VPATH = $(srcdir)
|
||||
|
||||
bindir = @bindir@
|
||||
libdir = @libdir@
|
||||
includedir = $(prefix)/include
|
||||
|
||||
CC = @CC@
|
||||
CXX = @CXX@
|
||||
INSTALL = @INSTALL@
|
||||
INSTALL_PROGRAM = @INSTALL_PROGRAM@
|
||||
INSTALL_DATA = @INSTALL_DATA@
|
||||
|
||||
CPPFLAGS = @CPPFLAGS@ @DEFS@ @PICFLAG@
|
||||
CXXFLAGS = @CXXFLAGS@
|
||||
LDFLAGS = @LDFLAGS@
|
||||
|
||||
all: pal.tgt
|
||||
|
||||
%.o: %.c
|
||||
@[ -d dep ] || mkdir dep
|
||||
$(CC) -Wall $(CPPFLAGS) -I$(srcdir)/.. -MD -c $< -o $*.o
|
||||
mv $*.d dep
|
||||
|
||||
O = imain.o enables.o pads.o
|
||||
|
||||
ifeq (@CYGWIN@,yes)
|
||||
TGTLDFLAGS=-Wl,--enable-auto-image-base -L.. -livl
|
||||
TGTDEPLIBS=../libivl.a
|
||||
else
|
||||
TGTLDFLAGS=
|
||||
TGTDEPLIBS=
|
||||
endif
|
||||
|
||||
|
||||
pal.tgt: $O $(TGTDEPLIBS)
|
||||
$(CC) -shared -o $@ $O $(TGTLDFLAGS) -lpal
|
||||
|
||||
clean:
|
||||
rm -f *.o dep/*.d
|
||||
|
||||
install: all installdirs $(libdir)/ivl/pal.tgt
|
||||
|
||||
$(libdir)/ivl/pal.tgt: ./pal.tgt
|
||||
$(INSTALL_DATA) ./pal.tgt $(libdir)/ivl/pal.tgt
|
||||
|
||||
|
||||
installdirs: ../mkinstalldirs
|
||||
$(srcdir)/../mkinstalldirs $(includedir) $(bindir) $(libdir)/ivl
|
||||
|
||||
uninstall:
|
||||
rm -f $(libdir)/ivl/pal.tgt
|
||||
|
||||
|
||||
-include $(patsubst %.o, dep/%.d, $O)
|
||||
@@ -0,0 +1,83 @@
|
||||
/*
|
||||
* Copyright (c) 2000 Stephen Williams ([email protected])
|
||||
*
|
||||
* This source code is free software; you can redistribute it
|
||||
* and/or modify it in source code form 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
|
||||
*/
|
||||
#ident "$Id: enables.c,v 1.1 2000/12/09 01:17:38 steve Exp $"
|
||||
|
||||
# include <ivl_target.h>
|
||||
# include <assert.h>
|
||||
# include "priv.h"
|
||||
|
||||
|
||||
/*
|
||||
* Given a pin index, look at the nexus for a bufif device that is
|
||||
* driving it, if any.
|
||||
*/
|
||||
static void absorb_pad_enable(unsigned idx)
|
||||
{
|
||||
unsigned ndx;
|
||||
ivl_nexus_t nex = bind_pin[idx].nexus;
|
||||
|
||||
for (ndx = 0 ; ndx < ivl_nexus_ptrs(nex) ; ndx += 1) {
|
||||
|
||||
unsigned pin;
|
||||
ivl_nexus_ptr_t ptr = ivl_nexus_ptr(nex, ndx);
|
||||
ivl_net_logic_t log = ivl_nexus_ptr_log(ptr);
|
||||
|
||||
if (log == 0)
|
||||
continue;
|
||||
|
||||
pin = ivl_nexus_ptr_pin(ptr);
|
||||
assert(pin == 0);
|
||||
|
||||
switch (ivl_logic_type(log)) {
|
||||
|
||||
case IVL_LO_BUFIF0:
|
||||
case IVL_LO_BUFIF1:
|
||||
assert(bind_pin[idx].enable == 0);
|
||||
bind_pin[idx].enable = log;
|
||||
break;
|
||||
|
||||
default:
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
void absorb_pad_enables(void)
|
||||
{
|
||||
unsigned idx;
|
||||
|
||||
for (idx = 0 ; idx < pins ; idx += 1) {
|
||||
|
||||
if (bind_pin[idx].sop == 0)
|
||||
continue;
|
||||
|
||||
if (bind_pin[idx].nexus == 0)
|
||||
continue;
|
||||
|
||||
absorb_pad_enable(idx);
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
/*
|
||||
* $Log: enables.c,v $
|
||||
* Revision 1.1 2000/12/09 01:17:38 steve
|
||||
* Add the pal loadable target.
|
||||
*
|
||||
*/
|
||||
|
||||
+153
@@ -0,0 +1,153 @@
|
||||
/*
|
||||
* Copyright (c) 2000 Stephen Williams ([email protected])
|
||||
*
|
||||
* This source code is free software; you can redistribute it
|
||||
* and/or modify it in source code form 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
|
||||
*/
|
||||
#if !defined(WINNT) && !defined(macintosh)
|
||||
#ident "$Id: imain.c,v 1.1 2000/12/09 01:17:38 steve Exp $"
|
||||
#endif
|
||||
|
||||
/*
|
||||
* This module generates a PAL that implements the design.
|
||||
*/
|
||||
|
||||
# include "priv.h"
|
||||
|
||||
# include <malloc.h>
|
||||
# include <stdio.h>
|
||||
# include <stdlib.h>
|
||||
# include <assert.h>
|
||||
|
||||
/*
|
||||
* As processing proceeds, this variable is incremented as errors are
|
||||
* encountered. This allows the code generator to give up if it
|
||||
* detects errors deep within recursive functions.
|
||||
*/
|
||||
unsigned pal_errors = 0;
|
||||
|
||||
/*
|
||||
* This is the pal device that the user asked for.
|
||||
*/
|
||||
pal_t pal = 0;
|
||||
|
||||
/*
|
||||
* These variables are the global pin assignment array. Everything
|
||||
* operates to build this up.
|
||||
*/
|
||||
unsigned pins = 0;
|
||||
struct pal_bind_s* bind_pin = 0;
|
||||
|
||||
static void dump_final_design(FILE*out)
|
||||
{
|
||||
unsigned idx;
|
||||
for (idx = 0 ; idx < pins ; idx += 1) {
|
||||
if (bind_pin[idx].sop) {
|
||||
fprintf(out, "Output pin %u:\n", idx+1);
|
||||
fprintf(out, " pin nexus=%s\n",
|
||||
bind_pin[idx].nexus?
|
||||
ivl_nexus_name(bind_pin[idx].nexus) : "");
|
||||
fprintf(out, " pin enable=%s\n",
|
||||
bind_pin[idx].enable ?
|
||||
ivl_logic_name(bind_pin[idx].enable) : "1");
|
||||
|
||||
} else {
|
||||
fprintf(out, "Input pin %u:\n", idx+1);
|
||||
fprintf(out, " pin nexus=%s\n",
|
||||
bind_pin[idx].nexus?
|
||||
ivl_nexus_name(bind_pin[idx].nexus) : "");
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
|
||||
|
||||
/*
|
||||
* This is the main entry point that Icarus Verilog calls to generate
|
||||
* code for a pal.
|
||||
*/
|
||||
int target_design(ivl_design_t des)
|
||||
{
|
||||
unsigned idx;
|
||||
const char*part;
|
||||
ivl_scope_t root;
|
||||
|
||||
/* Get the part type from the design, using the "part"
|
||||
key. Given the part type, try to open the pal description
|
||||
so that we can figure out the device. */
|
||||
part = ivl_design_flag(des, "part");
|
||||
assert(part);
|
||||
pal = pal_alloc(part);
|
||||
assert(pal);
|
||||
|
||||
pins = pal_pins(pal);
|
||||
assert(pins > 0);
|
||||
|
||||
/* Allocate the pin array, ready to start assigning resources. */
|
||||
bind_pin = calloc(pins, sizeof (struct pal_bind_s));
|
||||
assert(bind_pin);
|
||||
|
||||
/* Connect all the macrocells that drive pins to the pin that
|
||||
they drive. */
|
||||
for (idx = 0 ; idx < pal_sops(pal) ; idx += 1) {
|
||||
pal_sop_t sop = pal_sop(pal, idx);
|
||||
int spin = pal_sop_pin(sop);
|
||||
|
||||
if (spin == 0)
|
||||
continue;
|
||||
|
||||
assert(spin > 0);
|
||||
bind_pin[spin-1].sop = sop;
|
||||
}
|
||||
|
||||
|
||||
/* Get pin assignments from the user. This is the first and
|
||||
most constrained step. Everything else must work around the
|
||||
results of these bindings. */
|
||||
root = ivl_design_root(des);
|
||||
get_pad_bindings(root);
|
||||
|
||||
if (pal_errors) {
|
||||
fprintf(stderr, "code generator failed.\n");
|
||||
pal_free(pal);
|
||||
return -1;
|
||||
}
|
||||
|
||||
/* Run through the assigned output pins and absorb the output
|
||||
enables that are connected to them. */
|
||||
absorb_pad_enables();
|
||||
|
||||
|
||||
dump_final_design(stdout);
|
||||
|
||||
pal_free(pal);
|
||||
return 0;
|
||||
}
|
||||
|
||||
#ifdef __CYGWIN32__
|
||||
#include <cygwin/cygwin_dll.h>
|
||||
DECLARE_CYGWIN_DLL(DllMain);
|
||||
#endif
|
||||
|
||||
/*
|
||||
* $Log: imain.c,v $
|
||||
* Revision 1.1 2000/12/09 01:17:38 steve
|
||||
* Add the pal loadable target.
|
||||
*
|
||||
* Revision 1.1 2000/12/02 04:50:32 steve
|
||||
* Make the null target into a loadable target.
|
||||
*
|
||||
*/
|
||||
|
||||
@@ -0,0 +1,86 @@
|
||||
/*
|
||||
* Copyright (c) 2000 Stephen Williams ([email protected])
|
||||
*
|
||||
* This source code is free software; you can redistribute it
|
||||
* and/or modify it in source code form 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
|
||||
*/
|
||||
#if !defined(WINNT)
|
||||
#ident "$Id: pads.c,v 1.1 2000/12/09 01:17:38 steve Exp $"
|
||||
#endif
|
||||
|
||||
# include "priv.h"
|
||||
# include <stdio.h>
|
||||
# include <stdlib.h>
|
||||
# include <assert.h>
|
||||
|
||||
/*
|
||||
* This function scans the netlist for all the pin assignments that
|
||||
* are fixed by a PAD attribute. Search the scopes recursively,
|
||||
* looking for signals that may have PAD attributes.
|
||||
*/
|
||||
int get_pad_bindings(ivl_scope_t net)
|
||||
{
|
||||
unsigned idx;
|
||||
|
||||
int rc = ivl_scope_children(net, get_pad_bindings);
|
||||
if (rc)
|
||||
return rc;
|
||||
|
||||
for (idx = 0 ; idx < ivl_scope_sigs(net) ; idx += 1) {
|
||||
|
||||
ivl_signal_t sig;
|
||||
const char*pad;
|
||||
int pin;
|
||||
|
||||
sig = ivl_scope_sig(net, idx);
|
||||
pad = ivl_signal_attr(sig, "PAD");
|
||||
if (pad == 0)
|
||||
continue;
|
||||
|
||||
pin = strtol(pad+1, 0, 10);
|
||||
if ((pin == 0) || (pin > pins)) {
|
||||
printf("%s: Invalid PAD assignment: %s\n",
|
||||
ivl_signal_name(sig), pad);
|
||||
error_count += 1;
|
||||
continue;
|
||||
}
|
||||
|
||||
assert(ivl_signal_pins(sig) == 1);
|
||||
|
||||
if (bind_pin[pin-1].nexus) {
|
||||
|
||||
if (bind_pin[pin-1].nexus != ivl_signal_pin(sig, 0)) {
|
||||
|
||||
printf("%s: Unconnected signals share pin %d\n",
|
||||
ivl_signal_name(sig), pin);
|
||||
error_count += 1;
|
||||
}
|
||||
|
||||
continue;
|
||||
}
|
||||
|
||||
bind_pin[pin-1].nexus = ivl_signal_pin(sig, 0);
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
/*
|
||||
* $Log: pads.c,v $
|
||||
* Revision 1.1 2000/12/09 01:17:38 steve
|
||||
* Add the pal loadable target.
|
||||
*
|
||||
*/
|
||||
|
||||
@@ -0,0 +1,59 @@
|
||||
#ifndef __priv_H
|
||||
#define __priv_H
|
||||
/*
|
||||
* Copyright (c) 2000 Stephen Williams ([email protected])
|
||||
*
|
||||
* This source code is free software; you can redistribute it
|
||||
* and/or modify it in source code form 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
|
||||
*/
|
||||
#if !defined(WINNT)
|
||||
#ident "$Id: priv.h,v 1.1 2000/12/09 01:17:38 steve Exp $"
|
||||
#endif
|
||||
|
||||
# include <ivl_target.h>
|
||||
# include <ipal.h>
|
||||
|
||||
extern pal_t pal;
|
||||
|
||||
extern unsigned error_count;
|
||||
|
||||
/*
|
||||
* A device has an array of pins, that are bound to the netlist either
|
||||
* by attribute or by random lookup. The bind_pin table keeps track of
|
||||
* pin allocations.
|
||||
*/
|
||||
struct pal_bind_s {
|
||||
/* This is the netlist connection for the pin. */
|
||||
ivl_nexus_t nexus;
|
||||
/* If the pin is an output, this is is sop that drives it. */
|
||||
pal_sop_t sop;
|
||||
/* If the output has an enable, this is it. */
|
||||
ivl_net_logic_t enable;
|
||||
};
|
||||
|
||||
extern unsigned pins;
|
||||
extern struct pal_bind_s* bind_pin;
|
||||
|
||||
extern int get_pad_bindings(ivl_scope_t net);
|
||||
|
||||
extern void absorb_pad_enables(void);
|
||||
|
||||
/*
|
||||
* $Log: priv.h,v $
|
||||
* Revision 1.1 2000/12/09 01:17:38 steve
|
||||
* Add the pal loadable target.
|
||||
*
|
||||
*/
|
||||
#endif
|
||||
Reference in New Issue
Block a user