From 0526e17cbd913ff1752b68d2af1296eeb78a538a Mon Sep 17 00:00:00 2001
From: Daniel Hams <daniel.hams@gmail.com>
Date: Thu, 31 Oct 2019 16:42:11 +0000
Subject: [PATCH] Bug fix to /usr/didbs/current testing.

---
 DidbsUtils.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/DidbsUtils.pm b/DidbsUtils.pm
index 3dde70b..09cc0e0 100644
--- a/DidbsUtils.pm
+++ b/DidbsUtils.pm
@@ -89,7 +89,8 @@ sub compatibledidbscurrent
 	my($dirMajVer,$dirGenVer,$dirMinVer,$dirRest) =
 	    $dirBehindLink =~ m/(\d)_(\d)_(\d)[^_]*(_.+)/;
 	$verbose && didbsprint "Matched $dirMajVer $dirGenVer $dirMinVer $dirRest\n";
-	my $expectedWidthIsaCompiler = "_n32_mips3_" . $didbscompiler;
+	my $expectedWidthIsaCompiler = "_n32_mips3_" . 
+	    ($didbscompiler eq "gcc" ? "gcc" : "mp");
 	if( rindex($dirRest,$expectedWidthIsaCompiler) == 0 ) {
 	    $verbose && didbsprint "Elf width, ISA, Compiler OK\n";
 	    # Version check min is 0.1.7 (starting from 0.1.7)