瀏覽代碼

Added two reminders for me

git-svn-id: branches/svenbarth/generics@19425 -
svenbarth 14 年之前
父節點
當前提交
d54b7dd58f
共有 2 個文件被更改,包括 8 次插入0 次删除
  1. 1 0
      compiler/pdecobj.pas
  2. 7 0
      compiler/pexpr.pas

+ 1 - 0
compiler/pdecobj.pas

@@ -308,6 +308,7 @@ implementation
           begin
           begin
              { use single_type instead of id_type for specialize support }
              { use single_type instead of id_type for specialize support }
              single_type(hdef,[stoAllowSpecialization,stoParseClassParent]);
              single_type(hdef,[stoAllowSpecialization,stoParseClassParent]);
+             { TODO : handle a generic interface }
              if (hdef.typ<>objectdef) then
              if (hdef.typ<>objectdef) then
                begin
                begin
                   if intf then
                   if intf then

+ 7 - 0
compiler/pexpr.pas

@@ -2018,8 +2018,15 @@ implementation
                     exit;
                     exit;
                   end;
                   end;
 
 
+<<<<<<< HEAD
                { check hints, but only if it isn't a potential generic symbol;
                { check hints, but only if it isn't a potential generic symbol;
                  that is checked in sub_expr if it isn't a generic }
                  that is checked in sub_expr if it isn't a generic }
+=======
+               { check hints if it is the final symbol that is used (e.g. in
+                 case of generics only the dummy symbol or the non-generic one
+                 is found here }
+               { TODO : correct this check }
+>>>>>>> Added two reminders for me
                if assigned(srsym) and
                if assigned(srsym) and
                    not (
                    not (
                      (srsym.typ=typesym) and
                      (srsym.typ=typesym) and