createThingy[] :=
Module[{tag}, myDataType[tag]];
myFunctionToProcessDoop[myDataType[tag_]] :=
(
tag /: myDataType[tag, "LeafCount"] = Range[10000];
);
m1 = MemoryInUse[];
Module[{a},
a = createThingy[];
myFunctionToProcessDoop[a];
]
MemoryInUse[] - m1
82704