From a998ce14eb83c06994b4201b5f60f746ba42e04d Mon Sep 17 00:00:00 2001
From: pierre <pierre@freepascal.org>
Date: Fri, 1 Jun 2012 08:44:19 +0000
Subject: [PATCH]  Avoid installation in units/i386-go32v2 instead of
 units/go32v2 for global packages go32v2 installation

git-svn-id: trunk@21448 -
---
 packages/fpmkunit/src/fpmkunit.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/packages/fpmkunit/src/fpmkunit.pp b/packages/fpmkunit/src/fpmkunit.pp
index 4c2e1d2f14..c761dcdade 100644
--- a/packages/fpmkunit/src/fpmkunit.pp
+++ b/packages/fpmkunit/src/fpmkunit.pp
@@ -3260,7 +3260,7 @@ end;
 
 procedure TCustomDefaults.RecalcTarget;
 begin
-  Ftarget:=CPUToString(FCPU)+'-'+OStoString(FOS);
+  Ftarget:=MakeTargetString(FCPU,FOS);
   GlobalDictionary.AddVariable('target',Target);
 end;