[Git][ghc/ghc][wip/js-staging] fix javascript FFI calls for read and write

[Luite Stegeman (@luite)]

Luite Stegeman pushed to branch wip/js-staging at Glasgow Haskell Compiler / GHC


Commits:
add3cfd9 by Luite Stegeman at 2022-09-02T11:55:09+02:00
fix javascript FFI calls for read and write

- - - - -


1 changed file:

- libraries/base/System/Posix/Internals.hs


Changes:

=====================================
libraries/base/System/Posix/Internals.hs
=====================================
@@ -462,17 +462,17 @@ foreign import javascript interruptible "(($1_1,$1_2,$2,$3,$c) => { return h$bas
    c_interruptible_open_ :: CFilePath -> CInt -> CMode -> IO CInt
 foreign import javascript interruptible "(($1_1,$1_2,$2,$3,$c) => { return h$base_open($1_1,$1_2,$2,$3,$c); })"
    c_safe_open_ :: CFilePath -> CInt -> CMode -> IO CInt
-foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$4,$c) => { return h$base_read($1,$2_1,$2_2,$3,$4,$c); })"
+foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$c) => { return h$base_read($1,$2_1,$2_2,$3,$c); })"
    c_read :: CInt -> Ptr Word8 -> CSize -> IO CSsize
-foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$4,$c) => { return h$base_read($1,$2_1,$2_2,$3,$4,$c); })"
+foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$c) => { return h$base_read($1,$2_1,$2_2,$3,$c); })"
    c_safe_read :: CInt -> Ptr Word8 -> CSize -> IO CSsize
 foreign import javascript interruptible "(($1_1,$1_2,$2_1,$2_2,$c) => { return h$base_stat($1_1,$1_2,$2_1,$2_2,$c); })" -- fixme wrong type
    c_stat :: CFilePath -> Ptr CStat -> IO CInt
 foreign import javascript unsafe "(($1) => { return h$base_umask($1); })"
    c_umask :: CMode -> IO CMode
-foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$4,$c) => { return h$base_write($1,$2_1,$2_2,$3,$4,$c); })"
+foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$c) => { return h$base_write($1,$2_1,$2_2,$3,$c); })"
    c_write :: CInt -> Ptr Word8 -> CSize -> IO CSsize
-foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$4,$c) => { return h$base_write($1,$2_1,$2_2,$3,$4,$c); })"
+foreign import javascript interruptible "(($1,$2_1,$2_2,$3,$c) => { return h$base_write($1,$2_1,$2_2,$3,$c); })"
    c_safe_write :: CInt -> Ptr Word8 -> CSize -> IO CSsize
 foreign import javascript interruptible "(($1,$2_1,$2_2,$c) => { return h$base_ftruncate($1,$2_1,$2_2,$c); })" -- fixme COff
    c_ftruncate :: CInt -> FileOffset -> IO CInt



View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/add3cfd9bf129cfd8eeddafc17116c3b99beb91d

-- 
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/add3cfd9bf129cfd8eeddafc17116c3b99beb91d
You're receiving this email because of your account on gitlab.haskell.org.


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://mail.haskell.org/pipermail/ghc-commits/attachments/20220902/2c1e3c85/attachment-0001.html>