From a656b8ff5111ef62103993d185d80d4d7dbfc1e4 Mon Sep 17 00:00:00 2001
From: xieguigang <xie.guigang@gcmodeller.org>
Date: Fri, 5 Oct 2018 23:49:38 +0800
Subject: [PATCH] fix reference errors

---
 ComputingServices/ComponentModel/IHostBase.vb  | 4 ++--
 ComputingServices/FileSystem/FileSystemHost.vb | 2 +-
 ComputingServices/SharedMemory/SharedSvr.vb    | 4 ++--
 3 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/ComputingServices/ComponentModel/IHostBase.vb b/ComputingServices/ComponentModel/IHostBase.vb
index cc412a7..9293cd2 100644
--- a/ComputingServices/ComponentModel/IHostBase.vb
+++ b/ComputingServices/ComponentModel/IHostBase.vb
@@ -49,10 +49,10 @@ Imports Microsoft.VisualBasic.Net.Abstract
 
 Namespace ComponentModel
 
-    Public MustInherit Class IHostBase : Inherits IMasterBase(Of TcpSynchronizationServicesSocket)
+    Public MustInherit Class IHostBase : Inherits IMasterBase(Of TcpServicesSocket)
 
         Sub New(portal As Integer)
-            __host = New TcpSynchronizationServicesSocket(portal)
+            __host = New TcpServicesSocket(portal)
         End Sub
 
         Sub New()
diff --git a/ComputingServices/FileSystem/FileSystemHost.vb b/ComputingServices/FileSystem/FileSystemHost.vb
index d8c5384..eef445b 100644
--- a/ComputingServices/FileSystem/FileSystemHost.vb
+++ b/ComputingServices/FileSystem/FileSystemHost.vb
@@ -78,7 +78,7 @@ Namespace FileSystem
         ''' <param name="port"></param>
         Sub New(port As Integer)
             Dim protocols As New ProtocolHandler(Me)
-            __host = New TcpSynchronizationServicesSocket(port)
+            __host = New TcpServicesSocket(port)
             __host.Responsehandler = AddressOf protocols.HandleRequest
             Call RunTask(AddressOf __host.Run)
         End Sub
diff --git a/ComputingServices/SharedMemory/SharedSvr.vb b/ComputingServices/SharedMemory/SharedSvr.vb
index 9d0283a..3447889 100644
--- a/ComputingServices/SharedMemory/SharedSvr.vb
+++ b/ComputingServices/SharedMemory/SharedSvr.vb
@@ -64,14 +64,14 @@ Namespace SharedMemory
     Public Class SharedSvr : Implements IDisposable
         Implements ITaskDriver
 
-        ReadOnly __localSvr As TcpSynchronizationServicesSocket
+        ReadOnly __localSvr As TcpServicesSocket
         ''' <summary>
         ''' 这个是提供给远程主机读取使用的
         ''' </summary>
         ReadOnly __variables As New Dictionary(Of HashValue)
 
         Sub New(local As Integer)
-            __localSvr = New TcpSynchronizationServicesSocket(local)
+            __localSvr = New TcpServicesSocket(local)
             __localSvr.Responsehandler = AddressOf New ProtocolHandler(Me).HandleRequest
         End Sub