From 64f51612d40a9213749edd46d050701e1ccaec06 Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Fri, 19 May 2006 23:28:55 +0000
Subject: [PATCH] * fixed broken fpu type setting in 2.1.1

git-svn-id: trunk@3586 -
---
 compiler/globals.pas | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/compiler/globals.pas b/compiler/globals.pas
index 30acf93ed9..d336591158 100644
--- a/compiler/globals.pas
+++ b/compiler/globals.pas
@@ -2020,7 +2020,7 @@ end;
         for t:=low(tfputype) to high(tfputype) do
           if fputypestr[t]=s then
             begin
-              aktfputype:=t;
+              a:=t;
               result:=true;
               break;
             end;