* support changing the tai field of a tai_simpletypedconst afterwards,

    so we can insert type conversions in llvmtype if necessary

git-svn-id: trunk@30780 -

compiler/aasmcnst.pas

@@ -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);