paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-17 18:29:09 +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
def: tdef;
constructor create(d: tdef);
{ same usage as ttai_typedconstbuilder.emit_tai }
procedure replace(ai: tai; d: tdef); virtual; abstract;
end;
@ -364,10 +365,11 @@ type
useful in case you have table preceded by the number of elements, and
you cound the elements while building the table }
function emit_placeholder(def: tdef): ttypedconstplaceholder; virtual; abstract;
protected
{ common code to check whether a placeholder can be added at the current
position }
procedure check_add_placeholder(def: tdef);
public
{ The next group of routines are for constructing complex expressions.
While parsing a typed constant these operators are encountered from
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 }
property next_field: tfieldvarsym write set_next_field;
{ 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;
protected
{ this one always return the actual offset, called by the above (and