paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 03:09:54 +01:00
Code Issues Packages Projects Releases Wiki Activity

* fixed indentation of for-in code

Browse Source 
git-svn-id: trunk@15449 -
This commit is contained in:
Jonas Maebe 2010-06-19 15:07:19 +00:00
parent 45d60dbb97
commit df525d98a3
1 changed files with 418 additions and 415 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
compiler/nflw.pas
View File

@ -250,6 +250,7 @@ begin
false); false);
end; end;
function create_string_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode; function create_string_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode;
var var
loopstatement, loopbodystatement: tstatementnode; loopstatement, loopbodystatement: tstatementnode;
@ -299,6 +300,7 @@ begin
addstatement(loopstatement,ctempdeletenode.create(stringvar)); addstatement(loopstatement,ctempdeletenode.create(stringvar));
end; end;
function create_array_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode; function create_array_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode;
var var
loopstatement, loopbodystatement: tstatementnode; loopstatement, loopbodystatement: tstatementnode;
@ -412,6 +414,7 @@ begin
addstatement(loopstatement,ctempdeletenode.create(arrayvar)); addstatement(loopstatement,ctempdeletenode.create(arrayvar));
end; end;
function create_set_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode; function create_set_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode;
var var
loopstatement, loopbodystatement: tstatementnode; loopstatement, loopbodystatement: tstatementnode;
@ -456,8 +459,7 @@ begin
loopbody:=cifnode.create( loopbody:=cifnode.create(
cinnode.create(ctemprefnode.create(loopvar),ctemprefnode.create(setvar)), cinnode.create(ctemprefnode.create(loopvar),ctemprefnode.create(setvar)),
internalstatements(loopbodystatement), internalstatements(loopbodystatement),
nil nil);
);
addstatement(loopbodystatement,cassignmentnode.create(hloopvar,ctemprefnode.create(loopvar))); addstatement(loopbodystatement,cassignmentnode.create(hloopvar,ctemprefnode.create(loopvar)));
{ add the actual statement to the loop } { add the actual statement to the loop }
@ -476,6 +478,7 @@ begin
addstatement(loopstatement,ctempdeletenode.create(setvar)); addstatement(loopstatement,ctempdeletenode.create(setvar));
end; end;
function create_enumerator_for_in_loop(hloopvar, hloopbody, expr: tnode; function create_enumerator_for_in_loop(hloopvar, hloopbody, expr: tnode;
enumerator_get, enumerator_move: tprocdef; enumerator_current: tpropertysym): tnode; enumerator_get, enumerator_move: tprocdef; enumerator_current: tpropertysym): tnode;
var var
@ -568,8 +571,7 @@ begin
whileloopnode:=cifnode.create( whileloopnode:=cifnode.create(
caddnode.create(unequaln, ctemprefnode.create(enumvar), cnilnode.create), caddnode.create(unequaln, ctemprefnode.create(enumvar), cnilnode.create),
whileloopnode, whileloopnode,
nil nil);
);
end; end;
addstatement(loopstatement, whileloopnode); addstatement(loopstatement, whileloopnode);
@ -590,6 +592,7 @@ begin
addstatement(loopstatement,ctempdeletenode.create(enumvar)); addstatement(loopstatement,ctempdeletenode.create(enumvar));
end; end;
function create_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode; function create_for_in_loop(hloopvar, hloopbody, expr: tnode): tnode;
var var
pd, movenext: tprocdef; pd, movenext: tprocdef;