Small example, 2.5.1 trunk from today
---
program Project2;
{$APPTYPE CONSOLE}
uses windows;
{$DEFINE SHOULD_COMPILE_IN_FPC } // add dot after "{"
{$IFDEF SHOULD_COMPILE_IN_FPC}
type
PPValueA = ^TPValueA;
PPValue = PPValueA;
pvalueA = packed record
pv_valuename: PAnsiChar; { The value name pointer }
pv_valuelen: BOOL;
pv_value_context: Pointer;
pv_type: DWORD;
end;
pvalue = pvalueA;
TPValueA = pvalueA;
TPValue = TPValueA;
{$ELSE WILL_COMPILE_IN_FPC}
type
pvalueA = packed record
pv_valuename: PAnsiChar;
pv_valuelen: BOOL;
pv_value_context: Pointer;
pv_type: DWORD;
end;
TPValueA = pvalueA;
TPValue = TPValueA;
PPValueA = ^TPValueA;
PPValue = PPValueA;
pvalue = pvalueA;
{$ENDIF}
begin
//
end.
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
