瀏覽代碼

* adapted for removed funcretsym

peter 22 年之前
父節點
當前提交
ab6df4aa5e
共有 1 個文件被更改,包括 4 次插入8 次删除
  1. 4 8
      compiler/browcol.pas

+ 4 - 8
compiler/browcol.pas

@@ -783,7 +783,6 @@ begin
     labelsym     : S:='label';
     labelsym     : S:='label';
     absolutesym  : S:='abs';
     absolutesym  : S:='abs';
     propertysym  : S:='prop';
     propertysym  : S:='prop';
-    funcretsym   : S:='res';
     macrosym     : S:='macro';
     macrosym     : S:='macro';
   else S:='';
   else S:='';
   end;
   end;
@@ -1472,12 +1471,6 @@ end;
               begin
               begin
                 Symbol^.Params:=TypeNames^.Add('...');
                 Symbol^.Params:=TypeNames^.Add('...');
               end;
               end;
-          funcretsym :
-            if Assigned(OwnerSym) then
-            with tfuncretsym(sym) do
-              if assigned(returntype.def) then
-                if assigned(returntype.def.typesym) then
-                   SetVType(OwnerSym,returntype.def.typesym.name);
           procsym :
           procsym :
             begin
             begin
               with tprocsym(sym) do
               with tprocsym(sym) do
@@ -2118,7 +2111,10 @@ begin
 end.
 end.
 {
 {
   $Log$
   $Log$
-  Revision 1.32  2002-12-29 14:57:50  peter
+  Revision 1.33  2003-04-26 00:29:17  peter
+    * adapted for removed funcretsym
+
+  Revision 1.32  2002/12/29 14:57:50  peter
     * unit loading changed to first register units and load them
     * unit loading changed to first register units and load them
       afterwards. This is needed to support uses xxx in yyy correctly
       afterwards. This is needed to support uses xxx in yyy correctly
     * unit dependency check fixed
     * unit dependency check fixed