lazarus-ccr/wst/trunk/wst_rtl_imp.inc

function wst_GetMem(Size : PtrInt) : Pointer;{$IFDEF USE_INLINE}inline;{$ENDIF}
begin
  {$IFDEF FPC}
  Result := GetMem(Size);
  {$ELSE}
  GetMem(Result,Size);
  {$ENDIF}
end;
client : new TCP transport implementation ( using synapse library ) in synapse_tcp_protocol.pas server : TCP server implementatiion ( using synapse library ) in synapse_tcp_server.pas Delphi : first binary format support bugs fix in the WSDL generation for the server side git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@158 8e941d3f-bd1b-0410-a28a-d453659cc2b4 2007-05-02 22:55:35 +00:00			`function wst_GetMem(Size : PtrInt) : Pointer;{$IFDEF USE_INLINE}inline;{$ENDIF}`
			`begin`
			`{$IFDEF FPC}`
			`Result := GetMem(Size);`
			`{$ELSE}`
			`GetMem(Result,Size);`
			`{$ENDIF}`
			`end;`