Browse Source

* fixed two bugs to get make cycle work, but it's not enough

florian 25 years ago
parent
commit
d5a2d64cf5
2 changed files with 13 additions and 18 deletions
  1. 8 2
      compiler/ptconst.pas
  2. 5 16
      compiler/symtable.pas

+ 8 - 2
compiler/ptconst.pas

@@ -739,7 +739,10 @@ implementation
                              else break;
                           end;
                    end;
-                end;
+                 for i:=1 to def^.size-aktpos do
+                   curconstsegment^.concat(new(pai_const,init_8bit(0)));
+                 consume(_RKLAMMER);
+              end;
            end;
          { reads a typed object }
          objectdef:
@@ -835,7 +838,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.11  2000-11-04 14:25:21  florian
+  Revision 1.12  2000-11-06 15:54:15  florian
+    * fixed two bugs to get make cycle work, but it's not enough
+
+  Revision 1.11  2000/11/04 14:25:21  florian
     + merged Attila's changes for interfaces, not tested yet
 
   Revision 1.10  2000/10/31 22:02:51  peter

+ 5 - 16
compiler/symtable.pas

@@ -124,20 +124,6 @@ interface
        systemunit     : punitsymtable;  { pointer to the system unit }
        read_member : boolean;      { reading members of an symtable }
 
-       aktprocsym : pprocsym;      { pointer to the symbol for the
-                                     currently be parsed procedure }
-
-       aktcallprocsym : pprocsym;  { pointer to the symbol for the
-                                     currently be called procedure,
-                                     only set/unset in firstcall }
-
-       aktvarsym : pvarsym;     { pointer to the symbol for the
-                                     currently read var, only used
-                                     for variable directives }
-
-       procprefix : string;     { eindeutige Namen bei geschachtel- }
-                                   { ten Unterprogrammen erzeugen      }
-
        lexlevel : longint;       { level of code                     }
                                    { 1 for main procedure             }
                                    { 2 for normal function or proc     }
@@ -2366,7 +2352,10 @@ implementation
 end.
 {
   $Log$
-  Revision 1.14  2000-11-04 14:25:22  florian
+  Revision 1.15  2000-11-06 15:54:15  florian
+    * fixed two bugs to get make cycle work, but it's not enough
+
+  Revision 1.14  2000/11/04 14:25:22  florian
     + merged Attila's changes for interfaces, not tested yet
 
   Revision 1.13  2000/11/01 23:04:38  peter
@@ -2409,4 +2398,4 @@ end.
 
   Revision 1.2  2000/07/13 11:32:50  michael
   + removed logs
-}
+}