mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-05-01 01:33:41 +02:00
23 lines
366 B
ObjectPascal
23 lines
366 B
ObjectPascal
unit my4_sys;
|
|
|
|
interface
|
|
|
|
uses
|
|
ctypes;
|
|
|
|
type
|
|
st_dynamic_array = record
|
|
buffers : pchar;
|
|
elements : cuint;
|
|
max_elements : cuint;
|
|
alloc_increment : cuint;
|
|
size_of_element : cuint;
|
|
end;
|
|
|
|
tst_dynamic_array = st_dynamic_array;
|
|
pst_dynamic_array = ^tst_dynamic_array;
|
|
|
|
implementation
|
|
|
|
end.
|