Explorar o código

* give IE when st is not assigned in deref

peter %!s(int64=22) %!d(string=hai) anos
pai
achega
836dc5f062
Modificáronse 1 ficheiros con 8 adicións e 1 borrados
  1. 8 1
      compiler/symtype.pas

+ 8 - 1
compiler/symtype.pas

@@ -750,12 +750,16 @@ implementation
                 end;
               deref_sym :
                 begin
+                  if not assigned(st) then
+                    internalerror(200309141);
                   idx:=(data[i] shl 8) or data[i+1];
                   inc(i,2);
                   result:=st.getsymnr(idx);
                 end;
               deref_def :
                 begin
+                  if not assigned(st) then
+                    internalerror(200309142);
                   idx:=(data[i] shl 8) or data[i+1];
                   inc(i,2);
                   result:=st.getdefnr(idx);
@@ -861,7 +865,10 @@ finalization
 end.
 {
   $Log$
-  Revision 1.26  2003-06-25 18:31:23  peter
+  Revision 1.27  2003-09-14 12:58:29  peter
+    * give IE when st is not assigned in deref
+
+  Revision 1.26  2003/06/25 18:31:23  peter
     * sym,def resolving partly rewritten to support also parent objects
       not directly available through the uses clause