瀏覽代碼

* added/clarified some comments
* made internal method check_add_placeholder() protected

git-svn-id: trunk@32606 -

Jonas Maebe 9 年之前
父節點
當前提交
ce40b2e449
共有 1 個文件被更改,包括 4 次插入2 次删除
  1. 4 2
      compiler/aasmcnst.pas

+ 4 - 2
compiler/aasmcnst.pas

@@ -184,6 +184,7 @@ type
    ttypedconstplaceholder = class abstract
    ttypedconstplaceholder = class abstract
      def: tdef;
      def: tdef;
      constructor create(d: tdef);
      constructor create(d: tdef);
+     { same usage as ttai_typedconstbuilder.emit_tai }
      procedure replace(ai: tai; d: tdef); virtual; abstract;
      procedure replace(ai: tai; d: tdef); virtual; abstract;
    end;
    end;
 
 
@@ -364,10 +365,11 @@ type
        useful in case you have table preceded by the number of elements, and
        useful in case you have table preceded by the number of elements, and
        you cound the elements while building the table }
        you cound the elements while building the table }
      function emit_placeholder(def: tdef): ttypedconstplaceholder; virtual; abstract;
      function emit_placeholder(def: tdef): ttypedconstplaceholder; virtual; abstract;
+    protected
      { common code to check whether a placeholder can be added at the current
      { common code to check whether a placeholder can be added at the current
        position }
        position }
      procedure check_add_placeholder(def: tdef);
      procedure check_add_placeholder(def: tdef);
-
+    public
      { The next group of routines are for constructing complex expressions.
      { The next group of routines are for constructing complex expressions.
        While parsing a typed constant these operators are encountered from
        While parsing a typed constant these operators are encountered from
        outer to inner, so that is also the order in which they should be
        outer to inner, so that is also the order in which they should be
@@ -423,7 +425,7 @@ type
        over the symtables of the entire inheritance tree }
        over the symtables of the entire inheritance tree }
      property next_field: tfieldvarsym write set_next_field;
      property next_field: tfieldvarsym write set_next_field;
      { set the name of the next field that will be emitted for an anonymous
      { set the name of the next field that will be emitted for an anonymous
-       record (or the next of the next started anonymous record) }
+       record (also if that field is a nested anonymous record) }
      property next_field_name: TIDString write set_next_field_name;
      property next_field_name: TIDString write set_next_field_name;
     protected
     protected
      { this one always return the actual offset, called by the above (and
      { this one always return the actual offset, called by the above (and