paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-31 10:11:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

* array of const type to definition field

Browse Source
This commit is contained in:
pierre 1999-03-10 13:24:23 +00:00
parent 762d6d4ade
commit a514c02e9b
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/tcld.pas
View File

@ -431,7 +431,8 @@ implementation
end; end;
end; end;
calcregisters(p,0,0,0); calcregisters(p,0,0,0);
p^.resulttype:=new(parraydef,init(0,len-1,pd)); p^.resulttype:=new(parraydef,init(0,len-1,s32bitdef));
parraydef(p^.resulttype)^.definition:=pd;
parraydef(p^.resulttype)^.IsConstructor:=true; parraydef(p^.resulttype)^.IsConstructor:=true;
parraydef(p^.resulttype)^.IsVariant:=varia; parraydef(p^.resulttype)^.IsVariant:=varia;
p^.location.loc:=LOC_REFERENCE; p^.location.loc:=LOC_REFERENCE;
@ -452,7 +453,10 @@ implementation
end. end.
{ {
$Log$ $Log$
Revision 1.16 1999-02-22 02:15:52 peter Revision 1.17 1999-03-10 13:24:23 pierre
* array of const type to definition field
Revision 1.16 1999/02/22 02:15:52 peter
* updates for ag386bin * updates for ag386bin
Revision 1.15 1999/02/15 13:13:19 pierre Revision 1.15 1999/02/15 13:13:19 pierre