mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 10:18:22 +02:00
64740049bf
hidden parameters while parsing the interface, because they may depend on
the padded size (since the size was not yet padded in the interface and
padded in the implementation, this could result in differences)
git-svn-id: trunk@22414 -
27 lines
469 B
ObjectPascal
27 lines
469 B
ObjectPascal
{ %norun }
|
|
|
|
program CompileError;
|
|
|
|
{$mode delphi}{$H+}
|
|
|
|
//uses Classes;
|
|
|
|
type
|
|
TWordTagValue = record
|
|
strict private
|
|
FValue: Word;
|
|
FMissingOrInvalid: Boolean; // Try to disable this line !
|
|
public
|
|
class function CreateFromString(const AString: string): TWordTagValue; static;
|
|
property Value: Word read FValue;
|
|
end;
|
|
|
|
class function TWordTagValue.CreateFromString(const AString: string): TWordTagValue;
|
|
begin
|
|
Result.FValue := 0;
|
|
end;
|
|
|
|
begin
|
|
end.
|
|
|