1 //===-- GPU Implementation of fclose --------------------------------------===// 2 // 3 // Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions. 4 // See https://llvm.org/LICENSE.txt for license information. 5 // SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception 6 // 7 //===----------------------------------------------------------------------===// 8 9 #include "src/stdio/fclose.h" 10 #include "src/__support/macros/config.h" 11 #include "src/stdio/gpu/file.h" 12 13 #include "hdr/stdio_macros.h" 14 #include "hdr/types/FILE.h" 15 16 namespace LIBC_NAMESPACE_DECL { 17 18 LLVM_LIBC_FUNCTION(int, fclose, (::FILE * stream)) { 19 uint64_t ret = 0; 20 uintptr_t file = reinterpret_cast<uintptr_t>(stream); 21 rpc::Client::Port port = rpc::client.open<RPC_CLOSE_FILE>(); 22 port.send_and_recv( __anon41ac78a90102(rpc::Buffer *buffer, uint32_t) 23 [=](rpc::Buffer *buffer, uint32_t) { buffer->data[0] = file; }, __anon41ac78a90202(rpc::Buffer *buffer, uint32_t) 24 [&](rpc::Buffer *buffer, uint32_t) { ret = buffer->data[0]; }); 25 port.close(); 26 27 if (ret != 0) 28 return EOF; 29 return static_cast<int>(ret); 30 } 31 32 } // namespace LIBC_NAMESPACE_DECL 33