Browse Source

* adapted for removed funcretsym

peter 22 years ago
parent
commit
ab6df4aa5e
1 changed files with 4 additions and 8 deletions
  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