minor changes

stijnsanders · Jan 10, 2013 · e0e3b7c · e0e3b7c
1 parent ed67ce2
commit e0e3b7c
Show file tree

Hide file tree

Showing 2 changed files with 4 additions and 4 deletions.
diff --git a/bsonDoc.pas b/bsonDoc.pas
@@ -407,7 +407,7 @@ function TBSONDocument.Load(const stm: IStream): HResult;
           vstack[vindex].vi:=-1;
           vstack[vindex].vl:=0;
           vstack[vindex].vstart:=ltotal;
-          vstack[vindex].vt:=varVariant;
+          vstack[vindex].vt:=varVariant;//default, see BSONDetectVarArrayType below
           stmRead(@vstack[vindex].vlength,4);//array document length
          end;
         bsonBinary:

diff --git a/mongoWire.pas b/mongoWire.pas
@@ -122,7 +122,7 @@ implementation
   OP_DELETE       = 2006;
   OP_KILL_CURSORS = 2007;
 
-  MongoWideStartDataSize=$10000;
+  MongoWireStartDataSize=$10000;
 
 type
   TMongoWireMsgHeader=packed record
@@ -147,7 +147,7 @@ constructor TMongoWire.Create;
   inherited Create;
   FSocket:=TTcpClient.Create(nil);
   m:=TMemoryStream.Create;
-  m.Size:=MongoWideStartDataSize;//start keeping some data
+  m.Size:=MongoWireStartDataSize;//start keeping some data
   FData:=TStreamAdapter.Create(m,soOwned);
   FWriteLock:=TCriticalSection.Create;
   FReadLock:=TCriticalSection.Create;
@@ -544,7 +544,7 @@ constructor TMongoWireQuery.Create(MongoWire: TMongoWire);
   FOwner:=MongoWire;
   //TODO: register for invalidation on owner's TMongoWire.Destroy
   m:=TMemoryStream.Create;
-  m.Size:=MongoWideStartDataSize;//start keeping some data
+  m.Size:=MongoWireStartDataSize;//start keeping some data
   FData:=TStreamAdapter.Create(m,soOwned);
   FNumberToReturn:=0;//use db default
   FNumberToSkip:=0;