mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2026-01-20 06:44:38 +01:00
0b4f3f01b3
tabstractrecordsymtable.has_single_field(), due to always looking in the
symlist of the original record rather than properly recursing into those
of nested ones (mantis #28641)
git-svn-id: trunk@32618 -
28 lines
433 B
ObjectPascal
28 lines
433 B
ObjectPascal
{ %norun }
|
|
|
|
{$mode delphi}
|
|
|
|
program Test;
|
|
|
|
type
|
|
TMD5DigestHelper = record
|
|
public type
|
|
TMD5Buffer = array[0..63] of Byte;
|
|
|
|
TMD5Context = record
|
|
Buffer: TMD5Buffer;
|
|
end;
|
|
private
|
|
function Func_F(const X, Y, Z: LongWord): LongWord;
|
|
public
|
|
Context: TMD5Context;
|
|
end;
|
|
|
|
function TMD5DigestHelper.Func_F(const X, Y, Z: LongWord): LongWord;
|
|
begin
|
|
Result := (X and Y) or ((not X) and Z);
|
|
end;
|
|
|
|
begin
|
|
end.
|