paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-21 22:50:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* added/clarified some comments

Browse Source 
* made internal method check_add_placeholder() protected

git-svn-id: trunk@32606 -
This commit is contained in:
Jonas Maebe 2015-12-07 09:17:11 +00:00
parent ab730efac7
commit ce40b2e449
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/aasmcnst.pas
View File

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