paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-18 00:09:23 +02:00
Code Issues Packages Projects Releases Wiki Activity

* give IE when st is not assigned in deref

Browse Source
This commit is contained in:
peter 2003-09-14 12:58:29 +00:00
parent 8dd0a4027a
commit 836dc5f062
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
compiler/symtype.pas
View File

@ -750,12 +750,16 @@ implementation
end; end;
deref_sym : deref_sym :
begin begin
if not assigned(st) then
internalerror(200309141);
idx:=(data[i] shl 8) or data[i+1]; idx:=(data[i] shl 8) or data[i+1];
inc(i,2); inc(i,2);
result:=st.getsymnr(idx); result:=st.getsymnr(idx);
end; end;
deref_def : deref_def :
begin begin
if not assigned(st) then
internalerror(200309142);
idx:=(data[i] shl 8) or data[i+1]; idx:=(data[i] shl 8) or data[i+1];
inc(i,2); inc(i,2);
result:=st.getdefnr(idx); result:=st.getdefnr(idx);
@ -861,7 +865,10 @@ finalization
end. end.
{ {
$Log$ $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 * sym,def resolving partly rewritten to support also parent objects
not directly available through the uses clause not directly available through the uses clause