equal
deleted
inserted
replaced
132 end |
132 end |
133 end; |
133 end; |
134 |
134 |
135 procedure SendIPCRaw(p: pointer; len: Longword); |
135 procedure SendIPCRaw(p: pointer; len: Longword); |
136 begin |
136 begin |
137 SDLNet_TCP_Send(IPCSock, p, len) |
137 if IPCSock <> nil then |
|
138 begin |
|
139 SDLNet_TCP_Send(IPCSock, p, len) |
|
140 end |
138 end; |
141 end; |
139 |
142 |
140 procedure SendIPCXY(cmd: char; X, Y: SmallInt); |
143 procedure SendIPCXY(cmd: char; X, Y: SmallInt); |
141 var s: shortstring; |
144 var s: shortstring; |
142 begin |
145 begin |