paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-10 05:25:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed VS_HIDDEN for high parameter so it works again

Browse Source
This commit is contained in:
Jonas Maebe 2003-04-07 10:40:21 +00:00
parent d951c7b5f2
commit a4af1a61e1
1 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/ncal.pas
View File

@ -869,10 +869,14 @@ type
hightree:=cordconstnode.create(len,s32bittype,true) hightree:=cordconstnode.create(len,s32bittype,true)
else else
hightree:=ctypeconvnode.create(hightree,s32bittype); hightree:=ctypeconvnode.create(hightree,s32bittype);
firstpass(hightree);
temp:=ccallparanode.create(hightree,right); temp:=ccallparanode.create(hightree,right);
right:=temp; right:=temp;
if (tparaitem(paraitem.next).paratyp <> vs_hidden) then
internalerror(200304071);
tcallparanode(right).paraitem := tparaitem(paraitem.next);
tcallparanode(right).firstcallparan(false);
include(flags,nf_hightree_generated); include(flags,nf_hightree_generated);
end; end;
{$else VS_HIDDEN} {$else VS_HIDDEN}
@ -2407,7 +2411,10 @@ begin
end. end.
{ {
$Log$ $Log$
Revision 1.132 2003-04-04 15:38:56 peter Revision 1.133 2003-04-07 10:40:21 jonas
* fixed VS_HIDDEN for high parameter so it works again
Revision 1.132 2003/04/04 15:38:56 peter
* moved generic code from n386cal to ncgcal, i386 now also * moved generic code from n386cal to ncgcal, i386 now also
uses the generic ncgcal uses the generic ncgcal