Permalink
Browse files

minor changes

  • Loading branch information...
1 parent ed67ce2 commit e0e3b7c632e8874286d6305eb6bebd5fc1e6c78e @stijnsanders committed Jan 10, 2013
Showing with 4 additions and 4 deletions.
  1. +1 −1 bsonDoc.pas
  2. +3 −3 mongoWire.pas
View
@@ -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:
View
@@ -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;

0 comments on commit e0e3b7c

Please sign in to comment.