From 417c832e9d08796b778e6df7558df3a6181a637b Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Tue, 12 Feb 2008 17:27:27 +0000
Subject: [PATCH]   * in node simplify

git-svn-id: trunk@10310 -
---
 compiler/nset.pas | 10 ++++++++++
 1 file changed, 10 insertions(+)

diff --git a/compiler/nset.pas b/compiler/nset.pas
index c83f073d45..0ad464075b 100644
--- a/compiler/nset.pas
+++ b/compiler/nset.pas
@@ -61,6 +61,7 @@ interface
        tinnode = class(tbinopnode)
           constructor create(l,r : tnode);virtual;reintroduce;
           function pass_typecheck:tnode;override;
+          function simplify:tnode;override;
           function pass_1 : tnode;override;
        end;
        tinnodeclass = class of tinnode;
@@ -292,6 +293,15 @@ implementation
             exit;
           end;
 
+         result:=simplify;
+      end;
+
+
+    function tinnode.simplify:tnode;
+      var
+        t : tnode;
+      begin
+         result:=nil;
          { constant evaluation }
          if (left.nodetype=ordconstn) then
            begin