Fix stack overflow from type recursion.

pb/standard/dump.lua

@@ -292,23 +292,24 @@ local function get_type_dump(mt)
 			dump = function(buf, off, msg, depth)
 				return message(buf, off, msg, fields, depth)
 			end
-			register_fields(mt, fields)
+			register_fields(mt, fields, dump)
 		elseif mt.is_group then
 			local fields = mt.fields
 			dump = function(buf, off, msg, depth)
 				return group(buf, off, msg, fields, depth)
 			end
-			register_fields(mt, fields)
+			register_fields(mt, fields, dump)
 		end
 		-- cache dump function.
 		mt.dump = dump
 	end
 	return dump
 end
 
-function register_fields(mt, fields)
+function register_fields(mt, fields, dump)
 	-- check if the fields where already registered.
 	if mt.dump then return end
+	mt.dump = dump
 	for i=1,#fields do
 		local field = fields[i]
 		-- check if the field is a user type

pb/standard/pack.lua

@@ -460,26 +460,26 @@ local function get_type_pack(mt)
 			pack = function(buf, off, len, msg)
 				return message(buf, off, len, msg, fields)
 			end
-			register_fields(mt, fields)
+			register_fields(mt, fields, pack)
 		elseif mt.is_group then
 			local fields = mt.fields
 			-- encode group end tag.
 			local end_tag = encode_field_tag(mt.tag, wire_types.group_end)
 			pack = function(buf, off, len, msg)
 				return group(buf, off, len, msg, fields, end_tag)
 			end
-			register_fields(mt, fields)
+			register_fields(mt, fields, pack)
 		end
 		-- cache pack function.
 		mt.pack = pack
 	end
 	return pack
 end
 
-function register_fields(mt, fields)
+function register_fields(mt, fields, pack)
 	-- check if the fields where already registered.
 	if mt.pack then return end
-	local tags = mt.tags
+	mt.pack = pack
 	for i=1,#fields do
 		local field = fields[i]
 		local tag = field.tag

pb/standard/unpack.lua

@@ -496,7 +496,7 @@ local function get_type_unpack(mt)
 				end
 				return message(data, off, max_off, msg, tags)
 			end
-			register_fields(mt)
+			register_fields(mt, unpack)
 		elseif mt.is_group then
 			local tags = mt.tags
 			local new = mt.new
@@ -508,18 +508,18 @@ local function get_type_unpack(mt)
 				end
 				return group(data, off, max_off, msg, tags, end_tag)
 			end
-			register_fields(mt)
+			register_fields(mt, unpack)
 		end
 		-- cache unpack function.
 		mt.unpack = unpack
 	end
 	return unpack
 end
 
-function register_fields(mt)
+function register_fields(mt, unpack)
 	-- check if the fields where already registered.
 	if mt.unpack then return end
-	local tags = mt.tags
+	mt.unpack = unpack
 	local fields = mt.fields
 	for i=1,#fields do
 		local field = fields[i]