[flang] Accept polymorphic component element in storage_size
[llvm-project.git] / libc / src / stdio / flockfile.cpp
blob3b13a6f4d813da539aee41a6b09b9c1b13f06513
1 //===-- Implementation of flockfile ---------------------------------------===//
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 //===----------------------------------------------------------------------===//
9 #include "src/stdio/flockfile.h"
10 #include "src/__support/File/file.h"
12 #include <stdio.h>
14 namespace __llvm_libc {
16 LLVM_LIBC_FUNCTION(void, flockfile, (::FILE * stream)) {
17 reinterpret_cast<__llvm_libc::File *>(stream)->lock();
20 } // namespace __llvm_libc