mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 17:28:14 +02:00
f746d9603a
respect more location combinations than just LOC_CONSTANT and LOC_REGISTER * added test git-svn-id: trunk@22786 -
28 lines
514 B
ObjectPascal
28 lines
514 B
ObjectPascal
{ %NORUN }
|
|
|
|
program tb0585;
|
|
|
|
{$mode objfpc}
|
|
|
|
type
|
|
tobjectoptions = set of (oo_is_external, oo_is_forward, oo_is_formal);
|
|
|
|
tobjectdef = class
|
|
objectoptions: tobjectoptions;
|
|
end;
|
|
|
|
procedure finalize_class_external_status(od: tobjectdef);
|
|
begin
|
|
if [oo_is_external,oo_is_forward] <= od.objectoptions then
|
|
begin
|
|
{ formal definition: x = objcclass external; }
|
|
exclude(od.objectoptions,oo_is_forward);
|
|
include(od.objectoptions,oo_is_formal);
|
|
end;
|
|
end;
|
|
|
|
|
|
begin
|
|
|
|
end.
|