mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-13 14:49:47 +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 -
31 lines
470 B
ObjectPascal
31 lines
470 B
ObjectPascal
{
|
|
Check a fix for a bug that appeared in
|
|
utils/fppkg/lnet/lTelnet.pp
|
|
}
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
unit tw35139;
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils;
|
|
|
|
implementation
|
|
|
|
var
|
|
zz: Char;
|
|
TNames: array[Char] of string;
|
|
initialization
|
|
for zz := #0 to #255 do
|
|
TNames[zz] := IntToStr(Ord(zz));
|
|
TNames[#1] := 'TS_ECHO';
|
|
TNames[#133] := 'TS_HYI';
|
|
TNames[#251] := 'TS_WILL';
|
|
TNames[#252] := 'TS_WONT';
|
|
TNames[#253] := 'TS_DO';
|
|
TNames[#254] := 'TS_DONT';
|
|
end.
|
|
|