mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-22 11:49:23 +02:00
663c97ed23
------------------------------------------------------------------------
r41425 | pierre | 2019-02-23 23:03:29 +0000 (Sat, 23 Feb 2019) | 11 lines
+ compiler/symdef.pas: Add missing call to tderef.reset methods in all tdef constructors.
+ 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
------------------------------------------------------------------------
--- Merging r41425 into '.':
U compiler/symtype.pas
U compiler/symdef.pas
U compiler/symsym.pas
U compiler/symtable.pas
A tests/webtbs/tw35139.pp
A tests/webtbs/tw35139a.pp
--- Recording mergeinfo for merge of r41425 into '.':
U .
git-svn-id: branches/fixes_3_2@41620 -
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.
|
|
|