From c3a58bf5a8ca2ae991cfb08be69d3915d942e79f Mon Sep 17 00:00:00 2001 From: nickysn Date: Tue, 30 Sep 2014 21:42:35 +0000 Subject: [PATCH] * fixed indentation in ptype.expr_type. Prevously it looked like the 'if' is part of the 'else' clause of the previous 'if', but it actually isn't. git-svn-id: trunk@28727 - --- compiler/ptype.pas | 62 +++++++++++++++++++++++----------------------- 1 file changed, 31 insertions(+), 31 deletions(-) diff --git a/compiler/ptype.pas b/compiler/ptype.pas index cd02b12c8b..2d4a999790 100644 --- a/compiler/ptype.pas +++ b/compiler/ptype.pas @@ -1040,39 +1040,39 @@ implementation without "specialize" or "" of the same type we're currently parsing, so we need to handle that special } newdef:=nil; - if not dospecialize and - assigned(ttypenode(pt1).typesym) and - (ttypenode(pt1).typesym.typ=typesym) and - (sp_generic_dummy in ttypenode(pt1).typesym.symoptions) and - assigned(current_structdef) and + if not dospecialize and + assigned(ttypenode(pt1).typesym) and + (ttypenode(pt1).typesym.typ=typesym) and + (sp_generic_dummy in ttypenode(pt1).typesym.symoptions) and + assigned(current_structdef) and + ( ( - ( - not (m_delphi in current_settings.modeswitches) and - (ttypesym(ttypenode(pt1).typesym).typedef.typ=undefineddef) and - (df_generic in current_structdef.defoptions) and - (ttypesym(ttypenode(pt1).typesym).typedef.owner=current_structdef.owner) and - (upper(ttypenode(pt1).typesym.realname)=copy(current_structdef.objname^,1,pos('$',current_structdef.objname^)-1)) - ) or ( - { this could be a nested specialization which uses - the type name of a surrounding generic to - reference the specialization of said surrounding - class } - (df_specialization in current_structdef.defoptions) and - return_specialization_of_generic(current_structdef,ttypesym(ttypenode(pt1).typesym).typedef,newdef) - ) + not (m_delphi in current_settings.modeswitches) and + (ttypesym(ttypenode(pt1).typesym).typedef.typ=undefineddef) and + (df_generic in current_structdef.defoptions) and + (ttypesym(ttypenode(pt1).typesym).typedef.owner=current_structdef.owner) and + (upper(ttypenode(pt1).typesym.realname)=copy(current_structdef.objname^,1,pos('$',current_structdef.objname^)-1)) + ) or ( + { this could be a nested specialization which uses + the type name of a surrounding generic to + reference the specialization of said surrounding + class } + (df_specialization in current_structdef.defoptions) and + return_specialization_of_generic(current_structdef,ttypesym(ttypenode(pt1).typesym).typedef,newdef) ) - then - begin - if assigned(newdef) then - def:=newdef - else - def:=current_structdef; - if assigned(def) then - { handle nested types } - post_comp_expr_gendef(def) - else - def:=generrordef; - end; + ) + then + begin + if assigned(newdef) then + def:=newdef + else + def:=current_structdef; + if assigned(def) then + { handle nested types } + post_comp_expr_gendef(def) + else + def:=generrordef; + end; if dospecialize then begin generate_specialization(def,false,name);