From 4b9824d5d666793f8b87e56b00d3fbed03c208fa Mon Sep 17 00:00:00 2001
From: Stephen Heumann <stephenheumann@gmail.com>
Date: Sun, 22 Jan 2023 13:19:06 -0600
Subject: [PATCH] Remove an unused function.

---
 DAG.pas | 20 --------------------
 1 file changed, 20 deletions(-)

diff --git a/DAG.pas b/DAG.pas
index 9da64f6..84503e8 100644
--- a/DAG.pas
+++ b/DAG.pas
@@ -430,26 +430,6 @@ while not (op^.next^.opcode in [dc_lab, dc_enp, dc_cns, dc_glb,
 end; {RemoveDeadCode}
 
 
-function NoFunctions (op: icptr): boolean;
-
-{ are there any function calls?					}
-{								}
-{ parameters:							}
-{    op - operation tree to search				}
-{								}
-{ returns: True if there are no pc_cup or pc_cui operations	}
-{    in the tree, else false.					}
-
-begin {NoFunctions}
-if op = nil then
-   NoFunctions := true
-else if op^.opcode in [pc_cup,pc_cui,pc_tl1] then
-   NoFunctions := false
-else
-   NoFunctions := NoFunctions(op^.left) or NoFunctions(op^.right);
-end; {NoFunctions}
-
-
 function OneBit (val: longint): boolean;
 
 { See if there is exactly one bit set in val			}