From d083200fa10cfc9df2c9bcafa27dcf4215d2e6bd Mon Sep 17 00:00:00 2001
From: peter <peter@freepascal.org>
Date: Sun, 17 Dec 2000 14:35:41 +0000
Subject: [PATCH]   * fixed crash with val()

---
 compiler/ninl.pas | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index dcde3ed064..33b08f15c2 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -1210,7 +1210,7 @@ implementation
                   If (tcallparanode(hp).left.resulttype^.deftype<>stringdef) then
                    begin
                      tcallparanode(hp).left:=gentypeconvnode(tcallparanode(hp).left,cshortstringdef);
-                     firstpass(hp);
+                     firstpass(tcallparanode(hp).left);
                    end;
                   { calc registers }
                   left_max;
@@ -1491,7 +1491,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.19  2000-11-29 00:30:33  florian
+  Revision 1.20  2000-12-17 14:35:41  peter
+    * fixed crash with val()
+
+  Revision 1.19  2000/11/29 00:30:33  florian
     * unused units removed from uses clause
     * some changes for widestrings