mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-10 10:09:22 +02:00
ba75fd62f0
symdef.pas: * tprocdef.defaultmangledname: add some kind of differentiator to the result def, so that x(integer;integer) and x(integer):integer generate different mangled names * make_mangledname: also use the returndef instead of a potentially uninitialized variable like was done for tprocdef.defaultmangledname and also add a prefix (so that the two are compatible) + added test git-svn-id: trunk@29579 -
51 lines
742 B
ObjectPascal
51 lines
742 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tw27348;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
TRect = record
|
|
xyz: LongInt;
|
|
end;
|
|
|
|
TControl = class
|
|
end;
|
|
|
|
TWinControl = class(TControl)
|
|
procedure AlignControls(AControl: TControl; var RemainingClientRect: TRect);
|
|
end;
|
|
|
|
TAlign = (
|
|
alNone
|
|
);
|
|
|
|
{ TWinControl }
|
|
|
|
procedure TWinControl.AlignControls(AControl: TControl;
|
|
var RemainingClientRect: TRect);
|
|
|
|
procedure DoPosition(Control: TControl; AAlign: TAlign; AControlIndex: Integer);
|
|
|
|
function ConstraintHeight(NewHeight: integer): Integer;
|
|
begin
|
|
Result:=NewHeight;
|
|
end;
|
|
|
|
procedure ConstraintHeight(var NewTop, NewHeight: integer);
|
|
begin
|
|
NewHeight:=ConstraintHeight(NewHeight);
|
|
end;
|
|
|
|
begin
|
|
|
|
end;
|
|
|
|
begin
|
|
|
|
end;
|
|
|
|
|
|
begin
|
|
end.
|