14 files changed, 0 insertions, 1357 deletions
diff --git a/translate/mcode/Makefile.in b/translate/mcode/Makefile.in
deleted file mode 100644
index beb450a..0000000
--- a/translate/mcode/Makefile.in
+++ /dev/null
@@ -1,54 +0,0 @@
-PREFIX=/usr/local
-target=i686-pc-linux-gnu
-
-CFLAGS=-O
-GNATFLAGS=$(CFLAGS) -gnatn
-
-GRT_FLAGS=$(CFLAGS)
-
-all: ghdl_mcode std.v93 std.v87 ieee.v93 ieee.v87 synopsys.v93 synopsys.v87 mentor.v93
-
-
-GRTSRCDIR=grt
-
-####grt Makefile.inc
-
-ghdl_mcode: default_pathes.ads $(GRT_ADD_OBJS) mmap_binding.o force 
-	gnatmake -aIghdldrv -aIghdl -aIortho -aIgrt $(GNATFLAGS) ghdl_mcode $(GNAT_BARGS) -largs mmap_binding.o $(GNAT_LARGS) $(GRT_ADD_OBJS) $(GRT_EXTRA_LIB) -Wl,--version-script=$(GRTSRCDIR)/grt.ver -Wl,--export-dynamic
-
-mmap_binding.o: ortho/mmap_binding.c
-	$(CC) -c -g -o $@ $<
-
-default_pathes.ads: Makefile
-	echo "--  DO NOT EDIT" > tmp-dpathes.ads
-	echo "--  This file is created by Makefile" >> tmp-dpathes.ads
-	echo "package Default_Pathes is" >> tmp-dpathes.ads
-	echo "   Prefix : constant String :=">> tmp-dpathes.ads
-	echo "     \"$(PREFIX)/lib/ghdl/\";" >> tmp-dpathes.ads
-	echo "end Default_Pathes;" >> tmp-dpathes.ads
-	if test -r $@ && cmp tmp-dpathes.ads $@; then \
-	  echo "$@ unchanged"; \
-        else \
-	  mv tmp-dpathes.ads $@; \
-        fi
-	$(RM) tmp-dpathes.ads
-
-force:
-
-LIB93_DIR:=./lib/v93
-LIB87_DIR:=./lib/v87
-LIBSRC_DIR:=./libraries
-ANALYZE=../../../ghdl_mcode -a --ieee=none
-REL_DIR=../../..
-VHDLLIBS_COPY_OBJS:=no
-CP=cp
-LN=ln -s
-
-./lib:
-	mkdir $@
-
-$(LIB93_DIR) $(LIB87_DIR): ./lib
-	mkdir $@
-
-
-####libraries Makefile.inc
diff --git a/translate/mcode/README b/translate/mcode/README
deleted file mode 100644
index a10cd6e..0000000
--- a/translate/mcode/README
+++ /dev/null
@@ -1,47 +0,0 @@
-This is the README from the source distribution of GHDL.
-
-To get the binary distribution or more information, go to http://ghdl.free.fr
-
-Copyright:
-**********
-GHDL is copyright (c) 2002, 2003, 2004, 2005 Tristan Gingold.
-See the GHDL manual for more details.
-
-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.
-
-
-Building GHDL from sources for Windows:
-***************************************
-
-Note: this was tested with Windows XP SP2 familly edition.
-
-Note: If you want to create the installer, GHDL should be built on a
-FAT partition.  NSIS rounds files date to be FAT compliant (seconds are always
-even) and because GHDL stores dates, the files date must not be modified.
-
-Required:
-* the Ada95 GNAT compiler (GNAT GPL 2005 is known to work).
-* NSIS to create the installer.
-
-Unzip,
-edit winbuild to use correct path for makensis,
-run winbuild.
-
-The installer is in the windows directory.
-
-Send bugs and comments on http://gna.org/project/ghdl
-
-Tristan Gingold.
diff --git a/translate/mcode/dist.sh b/translate/mcode/dist.sh
deleted file mode 100755
index cf24141..0000000
--- a/translate/mcode/dist.sh
+++ /dev/null
@@ -1,506 +0,0 @@
-#!/bin/sh
-
-#  Script used to create tar balls.
-#  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 GCC; see the file COPYING.  If not, write to the Free
-#  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-#  02111-1307, USA.
-
-# Building a distribution:
-# * update the 'version' variable in ../../Makefile
-# * Regenerate version.ads: make -f ../../Makefile version.ads
-# * Check NEWS, README and INSTALL files.
-# * Check version and copyright years in doc/ghdl.texi, ghdlmain.adb
-# * Check GCCVERSION below.
-# * Check lists of exported files in this file.
-# * Create source tar and build binaries: ./dist.sh dist_phase1
-# * su root
-# * Build binary tar: ./dist.sh dist_phase2
-# * Run the testsuites: GHDL=ghdl ./testsuite.sh
-# * Update website/index.html (./dist.sh website helps, rename .new)
-# * upload (./dist upload)
-# * CVS commit, tag + cd image.
-# * remove previous version in /usr/local
-
-## DO NOT MODIFY this file while it is running...
-
-set -e
-
-# GTKWave version.
-GTKWAVE_VERSION=1.3.72
-
-# GHDL version (extracted from version.ads)
-VERSION=`sed -n -e 's/.*GHDL \([0-9.a-z]*\) (.*/\1/p' ../../version.ads`
-
-CWD=`pwd`
-
-distdir=ghdl-$VERSION
-tarfile=$distdir.tar
-zipfile=$distdir.zip
-
-PREFIX=/usr/local
-bindirname=ghdl-$VERSION-i686-pc-linux
-TARINSTALL=$DISTDIR/$bindirname.tar.bz2
-VHDLDIR=$distdir/vhdl
-DOWNLOAD_HTML=../../website/download.html
-DESTDIR=$CWD/
-UNSTRIPDIR=${distdir}-unstripped
-
-PATH=/usr/gnat/bin:$PATH
-
-do_clean ()
-{
-  rm -rf $distdir
-  mkdir $distdir
-  mkdir $distdir/ghdl
-  mkdir $distdir/ghdldrv
-  mkdir $distdir/libraries
-  mkdir $distdir/libraries/std $distdir/libraries/ieee
-  mkdir $distdir/libraries/vital95 $distdir/libraries/vital2000
-  mkdir $distdir/libraries/synopsys $distdir/libraries/mentor
-  mkdir $distdir/grt
-  mkdir $distdir/grt/config
-  mkdir $distdir/ortho
-  mkdir $distdir/windows
-}
-
-# Build Makefile
-do_Makefile ()
-{
-  sed -e "/^####libraries Makefile.inc/r ../../libraries/Makefile.inc" \
-      -e "/^####grt Makefile.inc/r ../grt/Makefile.inc" \
-     < Makefile.in > $distdir/Makefile
-}
-
-# Copy (or link) sources files into $distdir
-do_files ()
-{
-. ../gcc/dist-common.sh
-
-ortho_mcode_files="
-binary_file-elf.adb
-binary_file-elf.ads
-binary_file-memory.adb
-binary_file-memory.ads
-binary_file.adb
-binary_file.ads
-disa_x86.adb
-disa_x86.ads
-disassemble.ads
-dwarf.ads
-elf32.adb
-elf32.ads
-elf64.ads
-elf_common.adb
-elf_common.ads
-elf_arch32.ads
-elf_arch.ads
-hex_images.adb
-hex_images.ads
-memsegs.ads
-memsegs_mmap.ads
-memsegs_mmap.adb
-memsegs_c.c
-ortho_code-abi.ads
-ortho_code-binary.adb
-ortho_code-binary.ads
-ortho_code-consts.adb
-ortho_code-consts.ads
-ortho_code-debug.adb
-ortho_code-debug.ads
-ortho_code-decls.adb
-ortho_code-decls.ads
-ortho_code-disps.adb
-ortho_code-disps.ads
-ortho_code-dwarf.adb
-ortho_code-dwarf.ads
-ortho_code-exprs.adb
-ortho_code-exprs.ads
-ortho_code-flags.ads
-ortho_code-opts.adb
-ortho_code-opts.ads
-ortho_code-types.adb
-ortho_code-types.ads
-ortho_code-sysdeps.adb
-ortho_code-sysdeps.ads
-ortho_code-x86-emits.adb
-ortho_code-x86-emits.ads
-ortho_code-x86-insns.adb
-ortho_code-x86-insns.ads
-ortho_code-x86-abi.adb
-ortho_code-x86-abi.ads
-ortho_code-x86-flags.ads
-ortho_code-x86.adb
-ortho_code-x86.ads
-ortho_code.ads
-ortho_code_main.adb
-ortho_ident.adb
-ortho_ident.ads
-ortho_mcode.adb
-ortho_mcode.ads
-ortho_nodes.ads
-"
-
-windows_files="
-compile.bat
-complib.bat
-default_pathes.ads
-ghdl.nsi
-windows_default_path.adb
-windows_default_path.ads
-ghdlfilter.adb
-ortho_code-sysdeps.adb
-grt-modules.adb
-"
-
-drv_files="
-ghdlcomp.ads
-ghdlcomp.adb
-foreigns.ads
-foreigns.adb
-ghdlrun.adb
-ghdlrun.ads
-ghdl_mcode.adb
-"
-
-for i in $cfiles; do ln -sf $CWD/../../$i $distdir/ghdl/$i; done
-for i in $tfiles; do ln -sf $CWD/../$i $distdir/ghdl/$i; done
-
-ln -sf $CWD/../../doc/ghdl.texi $distdir/ghdl.texi
-
-for i in $ortho_files; do ln -sf $CWD/../../ortho/$i $distdir/ortho/$i; done
-
-for i in $ortho_mcode_files; do
-  ln -sf $CWD/../../ortho/mcode/$i $distdir/ortho/$i
-done
-
-for i in $ghdl_files $drv_files; do
-  ln -sf $CWD/../ghdldrv/$i $distdir/ghdldrv/$i
-done
-
-for i in $libraries_files; do
-    ln -sf $CWD/../../libraries/$i $distdir/libraries/$i
-done
-
-for i in $grt_files; do
-    ln -sf $CWD/../grt/$i $distdir/grt/$i
-done
-
-for i in $grt_config_files; do
-    ln -sf $CWD/../grt/config/$i $distdir/grt/config/$i
-done
-
-for i in $windows_files; do
-    ln -sf $CWD/windows/$i $distdir/windows/$i
-done
-    echo "!define VERSION \"$VERSION\"" > $distdir/windows/version.nsi
-
-
-    ln -sf $CWD/winbuild.bat $distdir/winbuild.bat
-
-makeinfo --html --no-split -o $distdir/windows/ghdl.htm $CWD/../../doc/ghdl.texi 
-}
-
-do_sources_dir ()
-{
-    \rm -rf $distdir
-    mkdir $distdir
-    do_clean
-    do_Makefile
-    do_files
-    ln -sf ../../../COPYING $distdir
-}
-
-# Create the tar of sources.
-do_tar ()
-{
-    do_sources_dir
-    tar cvhf $tarfile $distdir
-    bzip2 -f $tarfile
-    rm -rf $distdir
-}
-
-# Create the zip of sources.
-do_zip ()
-{
-    do_sources_dir
-    zip -r $zipfile $distdir
-    rm -rf $distdir
-}
-
-# Extract the source, configure and make.
-do_compile ()
-{
-  set -x
-
-  do_update_gcc_sources;
-
-  rm -rf $GCCDISTOBJ
-  mkdir $GCCDISTOBJ
-  cd $GCCDISTOBJ
-  ../gcc-$GCCVERSION/configure --enable-languages=vhdl --prefix=$PREFIX
-  make CFLAGS="-O -g"
-  make -C gcc vhdl.info
-  cd $CWD
-}
-
-check_root ()
-{
-  if [ $UID -ne 0 ]; then
-    echo "$0: you must be root";
-    exit 1;
-  fi
-}
-
-#  Do a make install
-do_compile2 ()
-{
-  set -x
-  cd $GCCDISTOBJ
-  # Check the info file is not empty.
-  if [ -s gcc/doc/ghdl.info ]; then
-    echo "info file found"
-  else
-    echo "Error: ghdl.info not found".
-    exit 1;
-  fi
-  mkdir -p $DESTDIR/usr/local || true
-  make DESTDIR=$DESTDIR install
-  cd $CWD
-  if [ -d $UNSTRIPDIR ]; then
-     rm -rf $UNSTRIPDIR
-  fi
-  mkdir $UNSTRIPDIR
-  cp ${DESTDIR}${GCCLIBEXECDIR}/ghdl1 ${DESTDIR}${PREFIX}/bin/ghdl $UNSTRIPDIR
-  chmod -w $UNSTRIPDIR/*
-  strip ${DESTDIR}${GCCLIBEXECDIR}/ghdl1 ${DESTDIR}${PREFIX}/bin/ghdl
-}
-
-# Create the tar file from the current installation.
-do_tar_install ()
-{
-  tar -C $DESTDIR -jcvf $TARINSTALL \
-    ./$PREFIX/bin/ghdl ./$PREFIX/info/ghdl.info \
-    ./$GCCLIBDIR/vhdl \
-    ./$GCCLIBEXECDIR/ghdl1
-}
-
-do_extract_tar_install ()
-{
-  check_root;
-  cd /
-  tar jxvf $TARINSTALL
-  cd $CWD
-}
-
-# Create the tar file to be distributed.
-do_tar_dist ()
-{
-  rm -rf $bindirname
-  mkdir $bindirname
-  sed -e "s/@TARFILE@/$dir.tar/" < INSTALL > $bindirname/INSTALL
-  ln ../../COPYING $bindirname
-  ln $TARINSTALL $bindirname
-  tar cvf $bindirname.tar $bindirname
-}
-
-# Remove the non-ghdl files of gcc in the current installation.
-do_distclean_gcc ()
-{
-  set -x
-  rm -f ${DESTDIR}${PREFIX}/bin/cpp ${DESTDIR}${PREFIX}/bin/gcc
-  rm -f ${DESTDIR}${PREFIX}/bin/gccbug ${DESTDIR}${PREFIX}/bin/gcov
-  rm -f ${DESTDIR}${PREFIX}/bin/${MACHINE}-gcc*
-  rm -f ${DESTDIR}${PREFIX}/info/cpp.info*
-  rm -f ${DESTDIR}${PREFIX}/info/cppinternals.info*
-  rm -f ${DESTDIR}${PREFIX}/info/gcc.info*
-  rm -f ${DESTDIR}${PREFIX}/info/gccinstall.info*
-  rm -f ${DESTDIR}${PREFIX}/info/gccint.info*
-  rm -f ${DESTDIR}${PREFIX}/lib/*.a ${DESTDIR}${PREFIX}/lib/*.so*
-  rm -rf ${DESTDIR}${PREFIX}/share
-  rm -rf ${DESTDIR}${PREFIX}/man
-  rm -rf ${DESTDIR}${PREFIX}/include
-  rm -f ${DESTDIR}${GCCLIBEXECDIR}/cc1 ${DESTDIR}${GCCLIBEXECDIR}/collect2
-  rm -f ${DESTDIR}${GCCLIBEXECDIR}/cpp0 ${DESTDIR}${GCCLIBEXECDIR}/tradcpp0
-  rm -f ${DESTDIR}${GCCLIBDIR}/*.o ${DESTDIR}$GCCLIBDIR/*.a
-  rm -f ${DESTDIR}${GCCLIBDIR}/specs
-  rm -rf ${DESTDIR}${GCCLIBDIR}/include
-  rm -rf ${DESTDIR}${GCCLIBDIR}/install-tools
-  rm -rf ${DESTDIR}${GCCLIBEXECDIR}/install-tools
-}
-
-# Remove ghdl files in the current installation.
-do_distclean_ghdl ()
-{
-  check_root;
-  set -x
-  rm -f $PREFIX/bin/ghdl
-  rm -f $PREFIX/info/ghdl.info*
-  rm -f $GCCLIBEXECDIR/ghdl1
-  rm -rf $GCCLIBDIR/vhdl
-}
-
-# Build the source tar, and build the binaries.
-do_dist_phase1 ()
-{
-  do_sources;
-  do_compile;
-  do_compile2;
-  do_distclean_gcc;
-  do_tar_install;
-  do_tar_dist;
-  rm -rf ./$PREFIX
-}
-
-# Install the binaries and create the binary tar.
-do_dist_phase2 ()
-{
-  check_root;
-  do_distclean_ghdl;
-  do_extract_tar_install;
-  echo "dist_phase2 success"
-}
-
-# Create gtkwave patch
-do_gtkwave_patch ()
-{
-#  rm -rf gtkwave-patch
-  mkdir gtkwave-patch
-  diff -rc -x Makefile.in $GTKWAVE_BASE.orig $GTKWAVE_BASE | \
-    sed -e "/^Only in/d" \
-    > gtkwave-patch/gtkwave-$GTKWAVE_VERSION.diffs
-  cp ../grt/ghwlib.c ../grt/ghwlib.h $GTKWAVE_BASE/src/ghw.c gtkwave-patch
-  sed -e "s/VERSION/$GTKWAVE_VERSION/g" < README.gtkwave > gtkwave-patch/README
-  tar zcvf ../../website/gtkwave-patch.tgz gtkwave-patch
-  rm -rf gtkwave-patch
-}
-
-# Update the index.html
-# Update the doc
-do_website ()
-{
-  sed -e "
-/SRC-HREF/ s/href=\".*\"/href=\"$tarfile.bz2\"/
-/BIN-HREF/ s/href=\".*\"/href=\"$bindirname.tar\"/
-/HISTORY/ a \\
-      <tr>\\
-	<td>$VERSION</td>\\
-        <td>`date +'%b %e %Y'`</td>\\
-        <td>$GCCVERSION</td>\\
-	<td><a href=\"$tarfile.bz2\">$tarfile.bz2</a></td>\\
-	<td><a href=\"$bindirname.tar\">\\
-	    $bindirname.tar</a></td>\\
-      </tr>
-" < $DOWNLOAD_HTML > "$DOWNLOAD_HTML".new
-  dir=../../website/ghdl
-  echo "Updating $dir"
-  rm -rf $dir
-  makeinfo --html -o $dir ../../doc/ghdl.texi
-}
-
-# Do ftp commands to upload
-do_upload ()
-{
-if tty -s; then
-  echo -n "Please, enter password: "
-  stty -echo
-  read pass
-  stty echo
-  echo
-else
-  echo "$0: upload must be done from a tty"
-  exit 1;
-fi
-ftp -n <<EOF
-open ftpperso.free.fr
-user ghdl $pass
-prompt
-hash
-bin
-passive
-put $tarfile.bz2
-put $bindirname.tar
-put INSTALL
-lcd ../../website
-put NEWS
-put index.html
-put download.html
-put features.html
-put roadmap.html
-put manual.html
-put more.html
-put links.html
-put bug.html
-put waveviewer.html
-put gtkwave-patch.tgz
-put favicon.ico
-lcd ghdl
-cd ghdl
-mput \*
-bye
-EOF
-}
-
-if [ $# -eq 0 ]; then
-  do_zip;
-else
-  for i ; do
-    case $i in
-      clean)
-        do_clean ;;
-      Makefile|makefile)
-	do_Makefile ;;
-      files)
-        do_files ;;
-      sources)
-        do_sources_dir ;;
-      tar)
-        do_tar ;;
-      zip)
-        do_zip ;;
-      compile)
-        do_compile;;
-      update_gcc)
-        do_update_gcc_sources;;
-      compile2)
-        do_compile2;;
-      tar_install)
-        do_tar_install;;
-      tar_dist)
-        do_tar_dist;;
-      -v | --version | version)
-        echo $VERSION
-        exit 0
-        ;;
-      website)
-        do_website;;
-      upload)
-        do_upload;;
-      distclean_gcc)
-        do_distclean_gcc;;
-      distclean_ghdl)
-        do_distclean_ghdl;;
-      dist_phase1)
-        do_dist_phase1;;
-      dist_phase2)
-        do_dist_phase2;;
-      gtkwave_patch)
-        do_gtkwave_patch;;
-      *)
-	echo "usage: $0 clean|Makefile|files|all"
-	exit 1 ;;
-     esac
-   done
-fi
diff --git a/translate/mcode/winbuild.bat b/translate/mcode/winbuild.bat
deleted file mode 100644
index 8c28268..0000000
--- a/translate/mcode/winbuild.bat
+++ /dev/null
@@ -1,18 +0,0 @@
-call windows\compile
-if errorlevel 1 goto end
-
-call windows\complib
-if errorlevel 1 goto end
-
-gnatmake windows/ghdlversion -o windows/ghdlversion.exe
-windows\ghdlversion < ../../version.ads > windows/version.nsi
-
-"c:\Program Files\NSIS\makensis" windows\ghdl.nsi
-if errorlevel 1 goto end
-
-exit /b 0
-
-:end
-echo "Error during compilation"
-exit /b 1
-
diff --git a/translate/mcode/windows/compile.bat b/translate/mcode/windows/compile.bat
deleted file mode 100644
index c668ef0..0000000
--- a/translate/mcode/windows/compile.bat
+++ /dev/null
@@ -1,24 +0,0 @@
-mkdir build
-cd build
-
-rem Do the compilation
-set CFLAGS=-O -g
-gcc -c %CFLAGS% ../../grt/grt-cbinding.c
-gcc -c %CFLAGS% ../../grt/grt-cvpi.c
-gcc -c %CFLAGS% ../../grt/config/clock.c
-gcc -c %CFLAGS% ../../../ortho/mcode/memsegs_c.c
-gcc -c %CFLAGS% -DWITH_GNAT_RUN_TIME ../../grt/config/win32.c
-gnatmake %CFLAGS% -gnatn -aI../windows -aI../../.. -aI../.. -aI../../ghdldrv -aI../../../psl -aI../../grt -aI../../../ortho/mcode ghdl_mcode -aI../../../ortho -o ghdl.exe -largs grt-cbinding.o clock.o grt-cvpi.o memsegs_c.o win32.o -largs -Wl,--stack,8404992
-
-if errorlevel 1 goto failed
-
-strip ghdl.exe
-
-cd ..
-exit /b 0
-
-:failed
-echo "Compilation failed"
-cd ..
-exit /b 1
-
diff --git a/translate/mcode/windows/complib.bat b/translate/mcode/windows/complib.bat
deleted file mode 100644
index 88a43ce..0000000
--- a/translate/mcode/windows/complib.bat
+++ /dev/null
@@ -1,68 +0,0 @@
-set GHDL=ghdl
-
-cd build
-gnatmake -aI..\windows ghdlfilter
-cd ..
-
-set REL=..\..\..
-set LIBSRC=%REL%\..\..\libraries
-set STD_SRCS=textio textio_body
-set IEEE_SRCS=std_logic_1164 std_logic_1164_body numeric_std numeric_std-body numeric_bit numeric_bit-body
-set VITAL95_SRCS=vital_timing vital_timing_body vital_primitives vital_primitives_body
-set VITAL2000_SRCS=timing_p timing_b prmtvs_p prmtvs_b memory_p memory_b
-
-set SYNOPSYS_SRCS=std_logic_arith std_logic_textio std_logic_unsigned std_logic_signed std_logic_misc std_logic_misc-body
-
-mkdir lib
-cd lib
-
-mkdir v87
-cd v87
-
-mkdir std
-cd std
-for %%F in (%STD_SRCS%) do %REL%\build\ghdlfilter -v87 < %LIBSRC%\std\%%F.vhdl > %%F.v87 && %REL%\build\%GHDL% -a --std=87 --bootstrap --work=std %%F.v87
-cd ..
-
-mkdir ieee
-cd ieee
-rem Base ieee
-for %%F in (%IEEE_SRCS%) do %REL%\build\ghdlfilter -v87 < %LIBSRC%\ieee\%%F.vhdl > %%F.v87 && %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee %%F.v87
-rem Vital 95
-for %%F in (%VITAL95_SRCS%) do copy %LIBSRC%\vital95\%%F.vhdl %%F.vhd && %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee %%F.vhd
-cd ..
-
-mkdir synopsys
-cd synopsys
-for %%F in (%IEEE_SRCS%) do %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee ..\ieee\%%F.v87
-for %%F in (%VITAL95_SRCS%) do %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee ..\ieee\%%F.vhd
-for %%F in (%SYNOPSYS_SRCS%) do copy %LIBSRC%\synopsys\%%F.vhdl %%F.vhd && %REL%\build\%GHDL% -a --std=87 -P..\std --work=ieee %%F.vhd
-cd ..
-
-cd ..
-mkdir v93
-cd v93
-
-mkdir std
-cd std
-for %%F in (%STD_SRCS%) do %REL%\build\ghdlfilter -v93 < %LIBSRC%\std\%%F.vhdl > %%F.v93 && %REL%\build\%GHDL% -a --std=93 --bootstrap --work=std %%F.v93
-cd ..
-
-mkdir ieee
-cd ieee
-echo Base ieee
-for %%F in (%IEEE_SRCS%) do %REL%\build\ghdlfilter -v93 < %LIBSRC%\ieee\%%F.vhdl > %%F.v93 && %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee %%F.v93
-echo Vital 2000
-for %%F in (%VITAL2000_SRCS%) do copy %LIBSRC%\vital2000\%%F.vhdl %%F.vhd && %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee %%F.vhd
-cd ..
-
-mkdir synopsys
-cd synopsys
-for %%F in (%IEEE_SRCS%) do %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee ..\ieee\%%F.v93
-for %%F in (%VITAL2000_SRCS%) do %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee ..\ieee\%%F.vhd
-for %%F in (%SYNOPSYS_SRCS%) do %REL%\build\%GHDL% -a --std=93 -P..\std --work=ieee ..\..\v87\synopsys\%%F.vhd
-cd ..
-
-cd ..
-
-cd ..
diff --git a/translate/mcode/windows/default_pathes.ads b/translate/mcode/windows/default_pathes.ads
deleted file mode 100644
index 51b350f..0000000
--- a/translate/mcode/windows/default_pathes.ads
+++ /dev/null
@@ -1,8 +0,0 @@
-with Windows_Default_Path;
-pragma Elaborate_All (Windows_Default_Path);
-
-package Default_Pathes is
-   Install_Prefix : constant String :=
-     Windows_Default_Path.Get_Windows_Exec_Path;
-   Lib_Prefix : constant String := "lib";
-end Default_Pathes;
diff --git a/translate/mcode/windows/ghdl.nsi b/translate/mcode/windows/ghdl.nsi
deleted file mode 100644
index aa4d559..0000000
--- a/translate/mcode/windows/ghdl.nsi
+++ /dev/null
@@ -1,455 +0,0 @@
-; ghdl.nsi
-;
-; This script is based on example2.nsi.
-;  remember the directory, 
-;  Check if administrator
-;  uninstall support
-; TODO:
-;  * allow multiple version
-;  * command line installation
-;  * Allow user install
-
-;--------------------------------
-!include version.nsi
-;--------------------------------
-
-; The name of the installer
-Name "Ghdl"
-
-; The file to write
-OutFile "ghdl-installer-${VERSION}.exe"
-
-SetDateSave on
-
-; The default installation directory
-InstallDir $PROGRAMFILES\Ghdl
-
-; Registry key to check for directory (so if you install again, it will 
-; overwrite the old one automatically)
-InstallDirRegKey HKLM "Software\Ghdl" "Install_Dir"
-
-LicenseData ..\..\..\COPYING
-; LicenseForceSelection
-
-;--------------------------------
-
-; Pages
-
-Page license
-Page components
-Page directory
-Page instfiles
-
-UninstPage uninstConfirm
-UninstPage instfiles
-
-;--------------------------------
-Function .onInit
-  Call IsNT
-  pop $R0
-  StrCmp $R0 1 nt_ok
-  MessageBox MB_OK|MB_ICONEXCLAMATION "You must use Windows NT (XP/2000/Me...)"
-  Quit
-
-nt_ok:
-  Call IsUserAdmin
-  Pop $R0
-  StrCmp $R0 "true" Admin
-  MessageBox MB_OK|MB_ICONEXCLAMATION "You must have Admin rights"
-  Quit
-
-Admin:
-
-  ;;;  Check if already installed.
-  ReadRegStr $0 HKLM "Software\Ghdl" "Install_Dir"
-  IfErrors not_installed
-  ReadRegStr $0 HKLM "Software\Ghdl" "Version"
-  IfErrors unknown_prev_version
-  Goto known_version
-unknown_prev_version:
-  StrCpy $0 "(unknown)"
-known_version:
-  MessageBox MB_OKCANCEL|MB_ICONEXCLAMATION "You already have GHDL version $0 installed.  Deinstall ?" IDCANCEL install_abort IDOK deinstall
-install_abort:
-  Abort "Installation aborted"
-deinstall:
-  ReadRegStr $0 HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "UninstallString"
-  IfErrors deinstall_failed
-
-  ; First version of the GHDL installer adds quotes
-  StrCpy $1 $0 1
-  StrCmp $1 '"' 0 str_ok
-  StrCpy $1 $0 "" 1
-  StrCpy $0 $1 -1
-str_ok:
-
-  ; Read install dir
-  ReadRegStr $1 HKLM "Software\Ghdl" "Install_Dir"
-  IfErrors deinstall_failed
-
-;  MessageBox MB_OK 'copy $0 to $TEMP'
-
-  ClearErrors
-;  MessageBox MB_OK 'copy $0 to $TEMP'
-  CopyFiles $0 $TEMP
-  IfErrors deinstall_failed
-  ExecWait '"$TEMP\uninst-ghdl.exe" /S _?=$1'
-  IfErrors deinstall_failed
-  Delete "$TEMP\uninst-ghdl.exe"
-  Return
-deinstall_failed:
-  Delete $TEMP\uninst-ghdl.exe
-  MessageBox MB_YESNO|MB_ICONSTOP "Can't deinstall GHDL: de-installer not found or failed.  Continue installation ?" IDNO install_abort
-not_installed:
-  Return
-FunctionEnd
-
-;--------------------------------
-
-; The stuff to install
-Section "Ghdl Compiler (required)"
-
-  SectionIn RO
-  
-  ; Set output path to the installation directory.
-  SetOutPath $INSTDIR\bin
-  File /oname=ghdl.exe ..\build\ghdl.exe
-  
-  SetOutPath $INSTDIR
-  File /oname=COPYING.txt ..\..\..\COPYING
-
-  ; Write the installation path into the registry
-  WriteRegStr HKLM "Software\Ghdl" "Install_Dir" $INSTDIR
-  ; Write te version
-  WriteRegStr HKLM "Software\Ghdl" "Version" ${VERSION}
-  
-  ; Write the uninstall keys for Windows
-  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "DisplayName" "Ghdl"
-  WriteRegStr HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "UninstallString" $INSTDIR\uninst-ghdl.exe
-  WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "NoModify" 1
-  WriteRegDWORD HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl" "NoRepair" 1
-  WriteUninstaller $INSTDIR\uninst-ghdl.exe"
-  
-SectionEnd
-
-Section "VHDL standard and ieee libraries"
-  SectionIn RO
-  SetOutPath $INSTDIR\lib\v87
-  File /r ..\lib\v87\std ..\lib\v87\ieee
-  SetOutPath $INSTDIR\lib\v93
-  File /r ..\lib\v93\std ..\lib\v93\ieee
-SectionEnd
-
-Section "Synopsys libraries (Recommended)"
-  SetOutPath $INSTDIR\lib\v87
-  File /r ..\lib\v87\synopsys
-  SetOutPath $INSTDIR\lib\v93
-  File /r ..\lib\v93\synopsys
-SectionEnd
-
-Section "Documentation (Recommended)"
-  SetOutPath $INSTDIR
-  File /oname=ghdl.htm ..\..\..\doc\ghdl.html
-SectionEnd
-
-Section "Add in PATH (Recommended)"
-  WriteRegDWORD HKLM "Software\Ghdl" "PathSet" 1
-  Push $INSTDIR\Bin
-  Call AddToPath
-SectionEnd
-
-; Optional section (can be disabled by the user)
-;Section "Start Menu Shortcuts"
-;
-;  CreateDirectory "$SMPROGRAMS\Ghdl"
-;  CreateShortCut "$SMPROGRAMS\Ghdl\Uninstall.lnk" "$INSTDIR\uninstall.exe" "" "$INSTDIR\uninstall.exe" 0
-;  CreateShortCut "$SMPROGRAMS\Ghdl\Ghdl.lnk" "$INSTDIR\example2.nsi" "" "$INSTDIR\example2.nsi" 0
-;  
-;SectionEnd
-;
-
-;--------------------------------
-
-; Uninstaller
-
-Section "Uninstall"
-
-  ReadRegDWORD $0 HKLM "Software\Ghdl" "PathSet"
-  StrCmp $0 "1" "" path_not_set
-  Push $INSTDIR\Bin
-  Call un.RemoveFromPath
-
-path_not_set:
-
-  ; Remove registry keys
-  DeleteRegKey HKLM "Software\Microsoft\Windows\CurrentVersion\Uninstall\Ghdl"
-  DeleteRegKey HKLM Software\Ghdl
-
-  ; Remove files and uninstaller
-  Delete $INSTDIR\bin\ghdl.exe
-  Delete $INSTDIR\uninst-ghdl.exe
-  Delete $INSTDIR\COPYING.txt
-  RMDir $INSTDIR\bin
-  RMDir /r $INSTDIR\lib
-
-
-  ; Remove shortcuts, if any
-  ; Delete "$SMPROGRAMS\Ghdl\*.*"
-
-  ; Remove directories used
-  ; RMDir "$SMPROGRAMS\Ghdl"
-  RMDir "$INSTDIR"
-
-SectionEnd
-
-;;;;;;;; Misc functions
-
-; Author: Lilla (lilla@earthlink.net) 2003-06-13
-; function IsUserAdmin uses plugin \NSIS\PlusgIns\UserInfo.dll
-; This function is based upon code in \NSIS\Contrib\UserInfo\UserInfo.nsi
-; This function was tested under NSIS 2 beta 4 (latest CVS as of this writing).
-;
-; Usage:
-;   Call IsUserAdmin
-;   Pop $R0   ; at this point $R0 is "true" or "false"
-;
-Function IsUserAdmin
-Push $R0
-Push $R1
-Push $R2
- 
-ClearErrors
-UserInfo::GetName
-IfErrors Win9x
-Pop $R1
-UserInfo::GetAccountType
-Pop $R2
- 
-StrCmp $R2 "Admin" 0 Continue
-; Observation: I get here when running Win98SE. (Lilla)
-; The functions UserInfo.dll looks for are there on Win98 too, 
-; but just don't work. So UserInfo.dll, knowing that admin isn't required
-; on Win98, returns admin anyway. (per kichik)
-; MessageBox MB_OK 'User "$R1" is in the Administrators group'
-StrCpy $R0 "true"
-Goto Done
- 
-Continue:
-; You should still check for an empty string because the functions
-; UserInfo.dll looks for may not be present on Windows 95. (per kichik)
-StrCmp $R2 "" Win9x
-StrCpy $R0 "false"
-;MessageBox MB_OK 'User "$R1" is in the "$R2" group'
-Goto Done
- 
-Win9x:
-; comment/message below is by UserInfo.nsi author:
-; This one means you don't need to care about admin or
-; not admin because Windows 9x doesn't either
-;MessageBox MB_OK "Error! This DLL can't run under Windows 9x!"
-StrCpy $R0 "true"
- 
-Done:
-;MessageBox MB_OK 'User= "$R1"  AccountType= "$R2"  IsUserAdmin= "$R0"'
- 
-Pop $R2
-Pop $R1
-Exch $R0
-FunctionEnd
-
-
-!define ALL_USERS
- 
-!ifndef WriteEnvStr_RegKey
-  !ifdef ALL_USERS
-    !define WriteEnvStr_RegKey \
-       'HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment"'
-  !else
-    !define WriteEnvStr_RegKey 'HKCU "Environment"'
-  !endif
-!endif
-
-!verbose 3
-!include "WinMessages.NSH"
-!verbose 4
-
-; AddToPath - Adds the given dir to the search path.
-;        Input - head of the stack
-;        Note - Win9x systems requires reboot
- 
-Function AddToPath
-  Exch $0
-  Push $1
-  Push $2
-  Push $3
- 
-  # don't add if the path doesn't exist
-  IfFileExists "$0\*.*" "" AddToPath_done
- 
-  ReadEnvStr $1 PATH
-  Push "$1;"
-  Push "$0;"
-  Call StrStr
-  Pop $2
-  StrCmp $2 "" "" AddToPath_done
-  Push "$1;"
-  Push "$0\;"
-  Call StrStr
-  Pop $2
-  StrCmp $2 "" "" AddToPath_done
-  GetFullPathName /SHORT $3 $0
-  Push "$1;"
-  Push "$3;"
-  Call StrStr
-  Pop $2
-  StrCmp $2 "" "" AddToPath_done
-  Push "$1;"
-  Push "$3\;"
-  Call StrStr
-  Pop $2
-  StrCmp $2 "" "" AddToPath_done
- 
-  ReadRegStr $1 ${WriteEnvStr_RegKey} "PATH"
-  StrCpy $2 $1 1 -1 # copy last char
-  StrCmp $2 ";" 0 +2 # if last char == ;
-    StrCpy $1 $1 -1 # remove last char
-  StrCmp $1 "" AddToPath_NTdoIt
-    StrCpy $0 "$1;$0"
- AddToPath_NTdoIt:
-   WriteRegExpandStr ${WriteEnvStr_RegKey} "PATH" $0
-   SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000
- 
-  AddToPath_done:
-    Pop $3
-    Pop $2
-    Pop $1
-    Pop $0
-FunctionEnd
- 
-; RemoveFromPath - Remove a given dir from the path
-;     Input: head of the stack
- 
-Function un.RemoveFromPath
-  Exch $0
-  Push $1
-  Push $2
-  Push $3
-  Push $4
-  Push $5
-  Push $6
- 
-  IntFmt $6 "%c" 26 # DOS EOF
- 
-  ReadRegStr $1 ${WriteEnvStr_RegKey} "PATH"
-  StrCpy $5 $1 1 -1 # copy last char
-  StrCmp $5 ";" +2 # if last char != ;
-    StrCpy $1 "$1;" # append ;
-  Push $1
-  Push "$0;"
-  Call un.StrStr ; Find `$0;` in $1
-  Pop $2 ; pos of our dir
-  StrCmp $2 "" unRemoveFromPath_done
-    ; else, it is in path
-    # $0 - path to add
-    # $1 - path var
-    StrLen $3 "$0;"
-    StrLen $4 $2
-    StrCpy $5 $1 -$4 # $5 is now the part before the path to remove
-    StrCpy $6 $2 "" $3 # $6 is now the part after the path to remove
-    StrCpy $3 $5$6
- 
-    StrCpy $5 $3 1 -1 # copy last char
-    StrCmp $5 ";" 0 +2 # if last char == ;
-      StrCpy $3 $3 -1 # remove last char
- 
-    WriteRegExpandStr ${WriteEnvStr_RegKey} "PATH" $3
-    SendMessage ${HWND_BROADCAST} ${WM_WININICHANGE} 0 "STR:Environment" /TIMEOUT=5000
- 
-  unRemoveFromPath_done:
-    Pop $6
-    Pop $5
-    Pop $4
-    Pop $3
-    Pop $2
-    Pop $1
-    Pop $0
-FunctionEnd
-
-###########################################
-#            Utility Functions            #
-###########################################
- 
-; IsNT
-; no input
-; output, top of the stack = 1 if NT or 0 if not
-;
-; Usage:
-;   Call IsNT
-;   Pop $R0
-;  ($R0 at this point is 1 or 0)
- 
-!macro IsNT un
-Function ${un}IsNT
-  Push $0
-  ReadRegStr $0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion
-  StrCmp $0 "" 0 IsNT_yes
-  ; we are not NT.
-  Pop $0
-  Push 0
-  Return
- 
-  IsNT_yes:
-    ; NT!!!
-    Pop $0
-    Push 1
-FunctionEnd
-!macroend
-!insertmacro IsNT ""
-;!insertmacro IsNT "un."
- 
-; StrStr
-; input, top of stack = string to search for
-;        top of stack-1 = string to search in
-; output, top of stack (replaces with the portion of the string remaining)
-; modifies no other variables.
-;
-; Usage:
-;   Push "this is a long ass string"
-;   Push "ass"
-;   Call StrStr
-;   Pop $R0
-;  ($R0 at this point is "ass string")
- 
-!macro StrStr un
-Function ${un}StrStr
-Exch $R1 ; st=haystack,old$R1, $R1=needle
-  Exch    ; st=old$R1,haystack
-  Exch $R2 ; st=old$R1,old$R2, $R2=haystack
-  Push $R3
-  Push $R4
-  Push $R5
-  StrLen $R3 $R1
-  StrCpy $R4 0
-  ; $R1=needle
-  ; $R2=haystack
-  ; $R3=len(needle)
-  ; $R4=cnt
-  ; $R5=tmp
-  loop:
-    StrCpy $R5 $R2 $R3 $R4
-    StrCmp $R5 $R1 done
-    StrCmp $R5 "" done
-    IntOp $R4 $R4 + 1
-    Goto loop
-done:
-  StrCpy $R1 $R2 "" $R4
-  Pop $R5
-  Pop $R4
-  Pop $R3
-  Pop $R2
-  Exch $R1
-FunctionEnd
-!macroend
-!insertmacro StrStr ""
-!insertmacro StrStr "un."
- 
diff --git a/translate/mcode/windows/ghdlfilter.adb b/translate/mcode/windows/ghdlfilter.adb
deleted file mode 100644
index d37c2db..0000000
--- a/translate/mcode/windows/ghdlfilter.adb
+++ /dev/null
@@ -1,58 +0,0 @@
-with Ada.Command_Line; use Ada.Command_Line;
-with Ada.Text_IO; use Ada.Text_IO;
-
-procedure Ghdlfilter is
-   type Mode_Kind is (Mode_93, Mode_87);
-   Mode : Mode_Kind;
-
-   Line : String (1 .. 128);
-   Len : Natural;
-
-   Comment : Boolean;
-   Block_Comment : Boolean;
-begin
-   if Argument_Count /= 1 then
-      Put_Line (Standard_Error, "usage: " & Command_Name & " -v93|-v87");
-      return;
-   end if;
-
-   if Argument (1) = "-v93" then
-      Mode := Mode_93;
-   elsif Argument (1) = "-v87" then
-      Mode := Mode_87;
-   else
-      Put_Line (Standard_Error, "bad mode");
-      return;
-   end if;
-
-   Block_Comment := False;
-
-   loop
-      exit when End_Of_File;
-      Get_Line (Line, Len);
-
-      Comment := Block_Comment;
-
-      if Len > 5 then
-         if Mode = Mode_87 and Line (Len - 4 .. Len) = "--V93" then
-            Comment := True;
-         elsif Mode = Mode_93 and Line (Len - 4 .. Len) = "--V87" then
-            Comment := True;
-         end if;
-      end if;
-      if Len = 11
-        and then Mode = Mode_87
-        and then Line (1 .. 11) = "--START-V93" then
-         Block_Comment := True;
-      end if;
-
-      if Len = 9 and then Line (1 .. 9) = "--END-V93" then
-         Block_Comment := False;
-      end if;
-
-      if Comment then
-         Put ("-- ");
-      end if;
-      Put_Line (Line (1 .. Len));
-   end loop;
-end Ghdlfilter;
diff --git a/translate/mcode/windows/ghdlversion.adb b/translate/mcode/windows/ghdlversion.adb
deleted file mode 100755
index d2f1c28..0000000
--- a/translate/mcode/windows/ghdlversion.adb
+++ /dev/null
@@ -1,30 +0,0 @@
-with Ada.Text_IO; use Ada.Text_IO;
-with Ada.Strings.Fixed; use Ada.Strings.Fixed;
-
-procedure Ghdlversion is
-   Line : String (1 .. 128);
-   Len : Natural;
-   Pos : Natural;
-   E : Natural;
-begin
-   loop
-      exit when End_Of_File;
-      Get_Line (Line, Len);
-      
-      --  Search GHDL
-      Pos := Index (Line (1 .. Len), "GHDL ");
-      if Pos /= 0 then
-	 Pos := Pos + 5;
-	 E := Pos;
-	 while Line (E) in '0' .. '9'
-	   or Line (E) in 'a' .. 'z'
-	   or Line (E) = '.'
-	 loop
-	    exit when E = Len;
-	    E := E + 1;
-	 end loop;
-	 Put_Line ("!define VERSION """ & Line (Pos .. E - 1) & """");
-	 return;
-      end if;
-   end loop;
-end Ghdlversion;
diff --git a/translate/mcode/windows/grt-modules.adb b/translate/mcode/windows/grt-modules.adb
deleted file mode 100644
index 35b27c3..0000000
--- a/translate/mcode/windows/grt-modules.adb
+++ /dev/null
@@ -1,37 +0,0 @@
---  GHDL Run Time (GRT) -  Modules.
---  Copyright (C) 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 GCC; see the file COPYING.  If not, write to the Free
---  Software Foundation, 59 Temple Place - Suite 330, Boston, MA
---  02111-1307, USA.
-with System.Storage_Elements; --  Work around GNAT bug.
-with Grt.Vcd;
-with Grt.Vpi;
-with Grt.Waves;
-with Grt.Vital_Annotate;
-with Grt.Disp_Tree;
-with Grt.Disp_Rti;
-
-package body Grt.Modules is
-   procedure Register_Modules is
-   begin
-      --  List of modules to be registered.
-      Grt.Disp_Tree.Register;
-      Grt.Vcd.Register;
-      Grt.Waves.Register;
-      Grt.Vpi.Register;
-      Grt.Vital_Annotate.Register;
-      Grt.Disp_Rti.Register;
-   end Register_Modules;
-end Grt.Modules;
diff --git a/translate/mcode/windows/ortho_code-x86-flags.ads b/translate/mcode/windows/ortho_code-x86-flags.ads
deleted file mode 100644
index 8915f31..0000000
--- a/translate/mcode/windows/ortho_code-x86-flags.ads
+++ /dev/null
@@ -1,2 +0,0 @@
-with Ortho_Code.X86.Flags_Windows;
-package Ortho_Code.X86.Flags renames Ortho_Code.X86.Flags_Windows;
diff --git a/translate/mcode/windows/windows_default_path.adb b/translate/mcode/windows/windows_default_path.adb
deleted file mode 100644
index 23aa2f6..0000000
--- a/translate/mcode/windows/windows_default_path.adb
+++ /dev/null
@@ -1,45 +0,0 @@
-with Interfaces.C; use Interfaces.C;
-with System; use System;
-
-package body Windows_Default_Path is
-
-   subtype DWORD is Interfaces.C.Unsigned_Long;
-   subtype LPWSTR is String;
-   subtype HINSTANCE is Address;
-   function GetModuleFileName (Inst : HINSTANCE; Buf : Address; Size : DWORD)
-                              return DWORD;
-   pragma Import (Stdcall, GetModuleFileName, "GetModuleFileNameA");
-
-   function Get_Windows_Exec_Path return String
-   is
-      File : String (1 .. 256);
-      Size : DWORD;
-      P : Natural;
-   begin
-      --  Get exe file path.
-      Size := GetModuleFileName (Null_Address, File'Address, File'Length);
-      if Size = 0 or Size = File'Length then
-         return "{cannot find install path}\lib";
-      end if;
-
-      --  Remove Program file.
-      P := Natural (Size);
-      while P > 0 loop
-         exit when File (P) = '\';
-         exit when File (P) = ':' and P = 2;
-         P := P - 1;
-      end loop;
-      if File (P) = '\' and P > 1 then
-         --  Remove directory
-         P := P - 1;
-         while P > 0 loop
-            exit when File (P) = '\';
-            exit when File (P) = ':' and P = 2;
-            P := P - 1;
-         end loop;
-      end if;
-
-      return File (1 .. P);
-   end Get_Windows_Exec_Path;
-end Windows_Default_Path;
-
diff --git a/translate/mcode/windows/windows_default_path.ads b/translate/mcode/windows/windows_default_path.ads
deleted file mode 100644
index 8e63034..0000000
--- a/translate/mcode/windows/windows_default_path.ads
+++ /dev/null
@@ -1,5 +0,0 @@
-package Windows_Default_Path is
-   --  Get the default path from executable name.
-   --  This function is called during elaboration!
-   function Get_Windows_Exec_Path return String;
-end Windows_Default_Path;