optimize hash implementations

This optimizes the `hash` implementation added in
#452. Creating tuples with statically
unknown types that may hold random values at runtime should be avoided
for performance reasons. As a result, the allocation regression
reported in #558 has been reduced to the
previous level, although the time regression from `hash` calculation
still remains.

Author: aviatesk

src/green_tree.jl

@@ -72,7 +72,17 @@ end
 
 Base.summary(node::GreenNode) = summary(node.head)
 
-Base.hash(node::GreenNode, h::UInt) = hash((node.head, node.span, node.children), h)
+function Base.hash(node::GreenNode, h::UInt)
+    children = node.children
+    if children isa Tuple{}
+        h = hash((), h)
+    else
+        for child in children
+            h = hash(child, h)
+        end
+    end
+    hash(node.head, hash(node.span, h))
+end
 function Base.:(==)(n1::GreenNode, n2::GreenNode)
     n1.head == n2.head && n1.span == n2.span && n1.children == n2.children
 end
@@ -129,4 +139,3 @@ function build_tree(::Type{GreenNode}, stream::ParseStream; kws...)
                         GreenNode(h, span, collect(GreenNode{SyntaxHead}, cs))
     end
 end
-

src/source_files.jl

@@ -143,7 +143,8 @@ struct SourceFile
     line_starts::Vector{Int}
 end
 
-Base.hash(s::SourceFile, h::UInt) = hash((s.code, s.byte_offset, s.filename, s.first_line, s.line_starts), h)
+Base.hash(s::SourceFile, h::UInt) =
+    hash(s.code, hash(s.byte_offset, hash(s.filename, hash(s.first_line, hash(s.line_starts, h)))))
 function Base.:(==)(a::SourceFile, b::SourceFile)
     a.code == b.code && a.byte_offset == b.byte_offset && a.filename == b.filename &&
     a.first_line == b.first_line && a.line_starts == b.line_starts

src/syntax_tree.jl

@@ -18,7 +18,18 @@ mutable struct TreeNode{NodeData}   # ? prevent others from using this with Node
 end
 
 # Exclude parent from hash and equality checks. This means that subtrees can compare equal.
-Base.hash(node::TreeNode, h::UInt) = hash((node.children, node.data), h)
+function Base.hash(node::TreeNode, h::UInt)
+    h = hash(node.data, h)
+    children = node.children
+    if children === nothing
+        return hash(nothing, h)
+    else
+        for child in children
+            h = hash(child, h)
+        end
+        return h
+    end
+end
 function Base.:(==)(a::TreeNode{T}, b::TreeNode{T}) where T
     a.children == b.children && a.data == b.data
 end
@@ -50,9 +61,10 @@ struct SyntaxData <: AbstractSyntaxData
     val::Any
 end
 
-Base.hash(data::SyntaxData, h::UInt) = hash((data.source, data.raw, data.position, data.val), h)
+Base.hash(data::SyntaxData, h::UInt) =
+    hash(data.source, hash(data.raw, hash(data.position, @invoke hash(data.val::Any, h::UInt))))
 function Base.:(==)(a::SyntaxData, b::SyntaxData)
-    a.source == b.source && a.raw == b.raw && a.position == b.position && a.val == b.val
+    a.source == b.source && a.raw == b.raw && a.position == b.position && a.val === b.val
 end
 
 """