From 9c195bf5d86d67ea5eb419ccf6e48dc153e57c68 Mon Sep 17 00:00:00 2001
From: Tristan Gingold
Date: Tue, 4 Nov 2014 20:14:19 +0100
Subject: Move sources to src/ subdirectory.

---
 translate/mcode/windows/ghdlversion.adb | 30 ------------------------------
 1 file changed, 30 deletions(-)
 delete mode 100755 translate/mcode/windows/ghdlversion.adb

(limited to 'translate/mcode/windows/ghdlversion.adb')

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;
-- 
cgit