make equals cast no side effect

metagn · Sep 6, 2023 · 7812e5c · 7812e5c
1 parent 9507990
commit 7812e5c
Showing 1 changed file with 10 additions and 1 deletion.
diff --git a/src/skinsuit/equals.nim b/src/skinsuit/equals.nim
@@ -49,7 +49,7 @@ proc equalsProc(typeName, objectNode: NimNode, doExport, ptrLike: bool): NimNode
         ws.add(branch)
       sl.add(ws)
     else: discard
-  let equalsBody = newStmtList()
+  var equalsBody = newStmtList()
   if ptrLike:
     let same = bindSym"same"
     equalsBody.add quote do:
@@ -60,6 +60,15 @@ proc equalsProc(typeName, objectNode: NimNode, doExport, ptrLike: bool): NimNode
   for r in objectNode[^1]:
     generateEquals(equalsBody, r)
   equalsBody.add(newTree(nnkReturnStmt, ident"true"))
+  let noSideEffectPragma =
+    when (NimMajor, NimMinor) >= (1, 6):
+      newTree(nnkCast, newEmptyNode(), ident"noSideEffect")
+    else:
+      ident"noSideEffect"
+  equalsBody = newStmtList(
+    newTree(nnkPragmaBlock,
+      newTree(nnkPragma, noSideEffectPragma),
+      equalsBody))
   newProc(
     name = ident"==".exportIf(doExport),
     params = [ident"bool", newTree(nnkIdentDefs, ident"a", ident"b", typeName, newEmptyNode())],