From 41db3ae6da44c981222826e950d3494643a279f6 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Mon, 19 Jul 2010 10:42:25 +0000
Subject: [PATCH] Fix Compilation with fpc-trunck Take advantage of fcl-json
 "Clone" method

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1258 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/server_service_json.pas | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/wst/trunk/server_service_json.pas b/wst/trunk/server_service_json.pas
index 7b895e779..0b2b4ca51 100644
--- a/wst/trunk/server_service_json.pas
+++ b/wst/trunk/server_service_json.pas
@@ -61,6 +61,16 @@ begin
   GetFormatterRegistry().Register(s_json,s_json_ContentType,TSimpleItemFactory.Create(TJsonRpcFormatter) as IItemFactory);
 end;
 
+{$IFDEF HAS_JSON_CLONE}
+function Clone(const AValue : TJSONData) : TJSONData; inline;
+begin
+  if ( AValue = nil ) then
+    Result := nil
+  else  
+    Result := AValue.Clone();
+end;
+
+{$ELSE HAS_JSON_CLONE}
 function Clone(const AValue : TJSONData) : TJSONData;
 var
   locParser : TJSONParser;
@@ -94,6 +104,7 @@ begin
     Result := nil;
   end;
 end;
+{$ENDIF HAS_JSON_CLONE}
 
 { TJsonRpcFormatter }