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

* symlist typeconv for absolute fixed

Browse Source
This commit is contained in:
peter 2004-11-01 10:33:01 +00:00
parent a66a2c855e
commit 916041c81c
2 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
compiler/pexpr.pas
View File

@ -190,6 +190,11 @@ implementation
p1:=csubscriptnode.create(plist^.sym,p1);
sl_typeconv :
p1:=ctypeconvnode.create_explicit(p1,plist^.tt);
sl_absolutetype :
begin
p1:=ctypeconvnode.create(p1,plist^.tt);
include(p1.flags,nf_absolute);
end;
sl_vec :
p1:=cvecnode.create(p1,cordconstnode.create(plist^.value,s32inttype,true));
else
@ -215,7 +220,10 @@ implementation
typeconvn :
begin
addnode(ttypeconvnode(p).left);
sl.addtype(sl_typeconv,ttypeconvnode(p).totype);
if nf_absolute in ttypeconvnode(p).flags then
sl.addtype(sl_absolutetype,ttypeconvnode(p).totype)
else
sl.addtype(sl_typeconv,ttypeconvnode(p).totype);
end;
vecn :
begin
@ -2478,7 +2486,10 @@ implementation
end.
{
$Log$
Revision 1.167 2004-10-25 15:38:41 peter
Revision 1.168 2004-11-01 10:33:01 peter
* symlist typeconv for absolute fixed
Revision 1.167 2004/10/25 15:38:41 peter
* heap and heapsize removed
* checkpointer fixes

8
compiler/symconst.pas
View File

@ -150,7 +150,8 @@ type
sl_call,
sl_subscript,
sl_vec,
sl_typeconv
sl_typeconv,
sl_absolutetype
);
{ base types for orddef }
@ -408,7 +409,10 @@ initialization
end.
{
$Log$
Revision 1.90 2004-10-24 20:01:08 peter
Revision 1.91 2004-11-01 10:33:01 peter
* symlist typeconv for absolute fixed
Revision 1.90 2004/10/24 20:01:08 peter
* remove saveregister calling convention
Revision 1.89 2004/10/08 17:09:43 peter