|
@@ -1019,6 +1019,8 @@ const
|
|
|
|
|
|
CMD_NONSTD = 9;
|
|
|
|
|
|
+{$PUSH}
|
|
|
+{$PACKRECORDS C}
|
|
|
//**********************************************************************
|
|
|
// The interface is the new way for exec libraries.
|
|
|
// Basically, the interface is embedded in a table of
|
|
@@ -1026,7 +1028,6 @@ const
|
|
|
//
|
|
|
// FIXME: Add some more documentation
|
|
|
type
|
|
|
-
|
|
|
TInterfaceData = record
|
|
|
Link: TNode; // Node for linking several interfaces
|
|
|
LibBase: PLibrary; // Library this interface belongs to
|
|
@@ -1048,6 +1049,7 @@ type
|
|
|
// some functions, calling convention?
|
|
|
end;
|
|
|
PInterface = ^TInterface;
|
|
|
+{$POP}
|
|
|
|
|
|
const
|
|
|
// Flags for the Flags field in interfaces and as flags parameter for GetInterface
|