/packages/mysql/src/my4_sys.pp

https://github.com/slibre/freepascal · Puppet · 22 lines · 16 code · 6 blank · 0 comment · 0 complexity · aa78f1151405d26523d73429932f2f09 MD5 · raw file 

    

  1. unit my4_sys;
    2. 

  2. 

  3.   interface
    4. 

  4. 

  5.     uses
    6. 

  6.       ctypes;
    7. 

  7. 

  8.     type
    9. 

  9.       st_dynamic_array = record
    10. 

  10.         buffers : pchar;
    11. 

  11.         elements : cuint;
    12. 

  12.         max_elements : cuint;
    13. 

  13.         alloc_increment : cuint;
    14. 

  14.         size_of_element : cuint;
    15. 

  15.       end;
    16. 

  16. 

  17.       tst_dynamic_array = st_dynamic_array;
    18. 

  18.       pst_dynamic_array = ^tst_dynamic_array;
    19. 

  19. 

  20.   implementation
    21. 

  21. 

  22. end.
    23.