From 478ebec14df4c3f23ceee384dfc091aa892dc4a8 Mon Sep 17 00:00:00 2001
From: Raymond <Raymond@.(none)>
Date: Mon, 24 May 2010 15:07:42 +0200
Subject: [PATCH] New rev number + Made writeln convert floats correctly.

---
 Projects/Simba/simbaunit.pas            | 2 +-
 Units/MMLAddon/PSInc/Wrappers/other.inc | 2 ++
 2 files changed, 3 insertions(+), 1 deletion(-)

diff --git a/Projects/Simba/simbaunit.pas b/Projects/Simba/simbaunit.pas
index b1043f5..3ac1304 100644
--- a/Projects/Simba/simbaunit.pas
+++ b/Projects/Simba/simbaunit.pas
@@ -46,7 +46,7 @@ uses
   CastaliaSimplePasPar, v_AutoCompleteForm, PSDump;
 
 const
-  SimbaVersion = 687;
+  SimbaVersion = 690;
 
 type
 
diff --git a/Units/MMLAddon/PSInc/Wrappers/other.inc b/Units/MMLAddon/PSInc/Wrappers/other.inc
index 03e5b5e..ea126dd 100644
--- a/Units/MMLAddon/PSInc/Wrappers/other.inc
+++ b/Units/MMLAddon/PSInc/Wrappers/other.inc
@@ -30,6 +30,8 @@ begin;
     result := PSGetAnsiString(Data.Dta,data.aType)
   else if data.aType.ExportName = 'BOOLEAN' then
     result := BoolToStr(PSGetInt(Data.Dta,data.aType) <> 0,true)
+  else if data.aType.BaseType in [btExtended,btSingle,btDouble] then
+    result := FloatToStr(PSGetReal(data.Dta,data.aType))
   else
     result := PSVariantToString(data,'');
 end;