From b367cdeb9649625480f06b19fad8eade9ee6adcf Mon Sep 17 00:00:00 2001
From: florian <florian@freepascal.org>
Date: Mon, 5 Jun 2017 21:32:13 +0000
Subject: [PATCH] * create intern types for sparc64

git-svn-id: trunk@36429 -
---
 compiler/psystem.pas | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/compiler/psystem.pas b/compiler/psystem.pas
index 2f2dbaf420..0357195768 100644
--- a/compiler/psystem.pas
+++ b/compiler/psystem.pas
@@ -313,6 +313,10 @@ implementation
         create_fpu_types;
         s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
 {$endif sparc}
+{$ifdef sparc64}
+        create_fpu_types;
+        s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
+{$endif sparc64}
 {$ifdef m68k}
         create_fpu_types;
         s64currencytype:=corddef.create(scurrency,low(int64),high(int64),true);
@@ -391,7 +395,7 @@ implementation
         else
         *)
 {$endif cpufpemu}
-        if init_settings.fputype <> fpu_none then
+        if init_settings.fputype<>fpu_none then
           begin
             addtype('Single',s32floattype);
             addtype('Double',s64floattype);