paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:39:31 +02:00
Code Issues Packages Projects Releases Wiki Activity

* support changing the tai field of a tai_simpletypedconst afterwards,

Browse Source 
so we can insert type conversions in llvmtype if necessary

git-svn-id: trunk@30780 -
This commit is contained in:
Jonas Maebe 2015-05-03 16:50:58 +00:00
parent d546e74d1c
commit 65bcfdc42d
1 changed files with 9 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
compiler/aasmcnst.pas
View File

@ -52,11 +52,13 @@ type
{ a simple data element; the value is stored as a tai }
tai_simpletypedconst = class(tai_abstracttypedconst)
private
procedure setval(AValue: tai);
protected
fval: tai;
public
constructor create(_adetyp: ttypedconstkind; _def: tdef; _val: tai);
property val: tai read fval;
property val: tai read fval write setval;
end;
@ -492,6 +494,12 @@ implementation
tai_simpletypedconst
****************************************************************************}
procedure tai_simpletypedconst.setval(AValue: tai);
begin
fval:=AValue;
end;
constructor tai_simpletypedconst.create(_adetyp: ttypedconstkind; _def: tdef; _val: tai);
begin
inherited create(_adetyp,_def);