paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ added warning about missing implementation for high(dynamic_array)

Browse Source
This commit is contained in:
Jonas Maebe 2001-05-06 17:16:43 +00:00
parent f174fb5fb1
commit 4fb34be618
1 changed files with 22 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
compiler/ninl.pas
View File

@ -1130,6 +1130,24 @@ implementation
resulttypepass(hp); resulttypepass(hp);
result:=hp; result:=hp;
end 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 else
begin begin
hp:=cordconstnode.create(tarraydef(left.resulttype.def).highrange,tarraydef(left.resulttype.def).rangetype); hp:=cordconstnode.create(tarraydef(left.resulttype.def).highrange,tarraydef(left.resulttype.def).rangetype);
@ -1729,7 +1747,10 @@ begin
end. end.
{ {
$Log$ $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 * moved code from firstpass to det_resulttype and remove extraneous
calls to firstcallparan for in_str,in_write,in_val calls to firstcallparan for in_str,in_write,in_val