commit f0e63317c7132c57af822283c98235a4100bd517
author Jens Geyer <jensg@apache.org> Sun Mar 01 18:47:49 2015 +0100
committer Jens Geyer <jensg@apache.org> Mon Mar 02 02:16:11 2015 +0100
tree 1bf9ecc80b72d190254ca80e955be02444eb55a1
parent 96eff17e50a8421bfa48072b2e2aa229b3169eb5

THRIFT-3018 Compact protocol for Delphi
Client: Delphi
Patch: Jens Geyer

lib/delphi/src/Thrift.Protocol.pas

diff --git a/lib/delphi/src/Thrift.Protocol.pas b/lib/delphi/src/Thrift.Protocol.pas
index 3df3574..606823d 100644
--- a/lib/delphi/src/Thrift.Protocol.pas
+++ b/lib/delphi/src/Thrift.Protocol.pas
@@ -56,6 +56,16 @@
     Oneway = 4
   );
 
+const
+  VALID_TTYPES = [
+    TType.Stop, TType.Void,
+    TType.Bool_, TType.Byte_, TType.Double_, TType.I16, TType.I32, TType.I64, TType.String_,
+    TType.Struct, TType.Map, TType.Set_, TType.List
+  ];
+
+  VALID_MESSAGETYPES = [Low(TMessageType)..High(TMessageType)];
+
+type
   IProtocol = interface;
   IStruct = interface;