mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 21:07:58 +02:00
c1e93bd2c2
+ compiler/sysmsym.pas: Do the same for for all tsym constructors.
+ compiler/symtype.pas: Generate internalerror in tcompilerppufile.putderef
if a deref field has index -1, as this means that buildderef was not called
while it should have been called.
+ compiler/symtable.pas: Fix bug report itself by adding an extra local variable
CHANGED to add extra cycles in tstoredsymtable.buildderef_referenced method.
New tests for this bug report: tests/webtbs/tw35139.pp and tests/webtbs/tw35139a.pp
git-svn-id: trunk@41425 -
17 lines
167 B
ObjectPascal
17 lines
167 B
ObjectPascal
{
|
|
Check a fix for a bug that appeared in
|
|
utils/fppkg/lnet/lTelnet.pp
|
|
}
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
program tw35139a;
|
|
|
|
|
|
uses
|
|
Classes, SysUtils, tw35139;
|
|
|
|
begin
|
|
end.
|
|
|