From 4fb34be618e300fe747eb1cd74da6458b1e8c9d9 Mon Sep 17 00:00:00 2001
From: Jonas Maebe <jonas@freepascal.org>
Date: Sun, 6 May 2001 17:16:43 +0000
Subject: [PATCH]   + added warning about missing implementation for
 high(dynamic_array)

---
 compiler/ninl.pas | 23 ++++++++++++++++++++++-
 1 file changed, 22 insertions(+), 1 deletion(-)

diff --git a/compiler/ninl.pas b/compiler/ninl.pas
index 9cd4ffb34e..bc3749cfea 100644
--- a/compiler/ninl.pas
+++ b/compiler/ninl.pas
@@ -1130,6 +1130,24 @@ implementation
                               resulttypepass(hp);
                               result:=hp;
                             end
+                           else
+                            if is_dynamic_array(left.resulttype.def) then
+                              begin
+{
+                                Doesn't work because that procedure isn't in
+                                the interface of the system unit :( (JM)
+                                
+                                srsym:=searchsymonlyin(systemunit,'FPC_DYNARRAY_HIGH');
+                                if not assigned(srsym) then
+                                  internalerror(200104291);
+                                inserttypeconv(left,voidpointertype);
+                                hp:=ccallparanode.create(left,nil);
+                                hp:=ccallnode.create(hp,tprocsym(srsym),systemunit,nil);
+                                left:=nil;
+                                resulttypepass(hp);
+                                result:=hp;}
+                                {$warning "high(dynamic_array)" isn't implemented yet }
+                              end
                            else
                             begin
                               hp:=cordconstnode.create(tarraydef(left.resulttype.def).highrange,tarraydef(left.resulttype.def).rangetype);
@@ -1729,7 +1747,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.39  2001-04-26 21:57:05  peter
+  Revision 1.40  2001-05-06 17:16:43  jonas
+    + added warning about missing implementation for high(dynamic_array)
+
+  Revision 1.39  2001/04/26 21:57:05  peter
     * moved code from firstpass to det_resulttype and remove extraneous
       calls to firstcallparan for in_str,in_write,in_val