hedgewars/uFLTypes.pas
branchqmlfrontend
changeset 10420 02c573d19224
parent 10418 091d2c0216c3
child 10428 7c25297720f1
equal deleted inserted replaced
10418:091d2c0216c3 10420:02c573d19224
     4 type TIPCMessage = record
     4 type TIPCMessage = record
     5                    str: shortstring;
     5                    str: shortstring;
     6                    len: Longword;
     6                    len: Longword;
     7                    buf: Pointer
     7                    buf: Pointer
     8                end;
     8                end;
     9     TIPCCallback = procedure (p: pointer; len: byte; msg: PChar);
     9     TIPCCallback = procedure (p: pointer; msg: PChar; len: Longword);
    10 
    10 
    11 implementation
    11 implementation
    12 
    12 
    13 end.
    13 end.