From f378ebf14df0952eae870c9865bab8326aa8f137 Mon Sep 17 00:00:00 2001
From: Dan Albert <danalbert@google.com>
Date: Wed, 17 Jun 2015 11:09:54 -0700
Subject: Delete old versions of GCC.

Change-Id: I710f125d905290e1024cbd67f48299861790c66c
---
 gcc-4.2.1/contrib/filter_knr2ansi.pl | 45 ------------------------------------
 1 file changed, 45 deletions(-)
 delete mode 100755 gcc-4.2.1/contrib/filter_knr2ansi.pl

(limited to 'gcc-4.2.1/contrib/filter_knr2ansi.pl')

diff --git a/gcc-4.2.1/contrib/filter_knr2ansi.pl b/gcc-4.2.1/contrib/filter_knr2ansi.pl
deleted file mode 100755
index 6b43e4077..000000000
--- a/gcc-4.2.1/contrib/filter_knr2ansi.pl
+++ /dev/null
@@ -1,45 +0,0 @@
-#!/usr/bin/perl
-#
-# Goes through the input line by line to find K&R style function
-# declarations, and replaces them with ANSI style declarations.
-#
-@blah = <>;
-
-for ($i = 0; $i < @blah; $i++)
-{
-	if ($blah[$i] =~ /^([a-zA-Z_0-9]+)\s*\([^)]+\)\s*$/)
-	{
-		$name = $1;
-		$funci = $i;
-		$blah[$funci]="$name (";
-		$i++;
-		$lastline = $i;
-		while ($lastline < @blah && $blah[$lastline] !~ /^{/)
-		{
-			$lastline++;
-		}
-		$lastline--;
-		while ($i < @blah && $blah[$i] !~ /^{/)
-		{
-			$arg = $blah[$i];
-			if ($i != $lastline)
-			{
-				$arg =~ s/;/,/g;
-			}
-			else
-			{
-				$arg =~ s/;//g;
-			}
-			$blah[$i] = "";
-			$blah[$funci] = "$blah[$funci]" . "$arg";
-			$i++;
-		}
-		$blah[$funci] = "$blah[$funci]" . ")\n";
-	}
-}
-
-for ($i = 0; $i < @blah; $i++)
-{
-	print $blah[$i];
-}
-
-- 
cgit v1.2.3