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

* fixed crash with resourcestring

Browse Source
This commit is contained in:
peter 1999-07-23 21:31:42 +00:00
parent 6c00bfc702
commit 62273909ca
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
compiler/pexpr.pas
View File

@ -1120,7 +1120,7 @@ unit pexpr;
constresourcestring: constresourcestring:
begin begin
p1:=genloadnode(pvarsym(srsym),srsymtable); p1:=genloadnode(pvarsym(srsym),srsymtable);
pd:=cansistringdef; p1^.resulttype:=cansistringdef;
end; end;
end; end;
pd:=p1^.resulttype; pd:=p1^.resulttype;
@ -2056,7 +2056,10 @@ unit pexpr;
end. end.
{ {
$Log$ $Log$
Revision 1.123 1999-07-23 11:37:46 peter Revision 1.124 1999-07-23 21:31:42 peter
* fixed crash with resourcestring
Revision 1.123 1999/07/23 11:37:46 peter
* error for illegal type reference, instead of 10998 * error for illegal type reference, instead of 10998
Revision 1.122 1999/07/22 09:37:52 florian Revision 1.122 1999/07/22 09:37:52 florian