[Git][ghc/ghc][master] Update JavaScript fileStat to match Emscripten layout
Marge Bot (@marge-bot)
gitlab at gitlab.haskell.org
Mon Feb 6 14:43:18 UTC 2023
Marge Bot pushed to branch master at Glasgow Haskell Compiler / GHC
Commits:
b18fbf52 by Josh Meredith at 2023-02-06T07:47:57+00:00
Update JavaScript fileStat to match Emscripten layout
- - - - -
4 changed files:
- libraries/base/jsbits/base.js
- testsuite/tests/callarity/unittest/all.T
- testsuite/tests/corelint/all.T
- testsuite/tests/ghc-api/all.T
Changes:
=====================================
libraries/base/jsbits/base.js
=====================================
@@ -452,48 +452,91 @@ function h$base_c_s_isfifo(mode) {
}
#ifndef GHCJS_BROWSER
+// The `fileStat` is filled according to the layout of Emscripten's `stat`
+// struct - defined in stat.h. We must use this layout due to this header
+// file being used to retrieve the offsets for hsc files that peek into
+// memory locations of structs directly. For more information see:
+// https://gitlab.haskell.org/ghc/ghc/-/issues/22573
function h$base_fillStat(fs, b, off) {
if(off%4) throw "h$base_fillStat: not aligned";
var o = off>>2;
- b.i3[o+0] = fs.mode;
+
+ b.i3[o+0] = fs.dev;
+ b.i3[o+1] = 0; // __st_dev_padding;
+ b.i3[o+2] = 0; // __st_ino_truncated;
+ b.i3[o+3] = fs.mode;
+ h$long_from_number(fs.nlink, (h,l) => {
+ b.i3[o+4] = h;
+ b.i3[o+5] = l;
+ });
+ b.i3[o+6] = fs.uid;
+ b.i3[o+7] = fs.gid;
+ b.i3[o+8] = fs.rdev;
+ b.i3[o+9] = 0; // __st_rdev_padding;
h$long_from_number(fs.size, (h,l) => {
- b.i3[o+1] = h;
- b.i3[o+2] = l;
+ b.i3[o+10] = h;
+ b.i3[o+11] = l;
+ });
+ b.i3[o+12] = fs.blksize;
+ b.i3[o+13] = fs.blocks;
+ atimeS = Math.floor(fs.atimeMs/1000);
+ h$long_from_number(atimeS, (h,l) => {
+ b.i3[o+14] = h;
+ b.i3[o+15] = l;
+ });
+ atimeNs = (fs.atimeMs/1000 - atimeS) * 1000000000;
+ h$long_from_number(atimeNs, (h,l) => {
+ b.i3[o+16] = h;
+ b.i3[o+17] = l;
+ });
+ mtimeS = Math.floor(fs.mtimeMs/1000);
+ h$long_from_number(mtimeS, (h,l) => {
+ b.i3[o+18] = h;
+ b.i3[o+19] = l;
+ });
+ mtimeNs = (fs.mtimeMs/1000 - mtimeS) * 1000000000;
+ h$long_from_number(mtimeNs, (h,l) => {
+ b.i3[o+20] = h;
+ b.i3[o+21] = l;
+ });
+ ctimeS = Math.floor(fs.ctimeMs/1000);
+ h$long_from_number(ctimeS, (h,l) => {
+ b.i3[o+22] = h;
+ b.i3[o+23] = l;
+ });
+ ctimeNs = (fs.ctimeMs/1000 - ctimeS) * 1000000000;
+ h$long_from_number(ctimeNs, (h,l) => {
+ b.i3[o+24] = h;
+ b.i3[o+25] = l;
});
-
- b.i3[o+3] = 0; // fixme
- b.i3[o+4] = 0; // fixme
- b.i3[o+5] = fs.dev;
h$long_from_number(fs.ino, (h,l) => {
- b.i3[o+6] = h;
- b.i3[o+7] = l;
+ b.i3[o+26] = h;
+ b.i3[o+27] = l;
});
- b.i3[o+8] = fs.uid;
- b.i3[o+9] = fs.gid;
}
#endif
// [mode,size1,size2,mtime1,mtime2,dev,ino1,ino2,uid,gid] all 32 bit
-/** @const */ var h$base_sizeof_stat = 40;
+/** @const */ var h$base_sizeof_stat = 112;
function h$base_st_mtime(stat, stat_off) {
- RETURN_UBX_TUP2(stat.i3[(stat_off>>2)+3], stat.i3[(stat_off>>2)+4]);
+ RETURN_UBX_TUP2(stat.i3[(stat_off>>2)+18], stat.i3[(stat_off>>2)+19]);
}
function h$base_st_size(stat, stat_off) {
- RETURN_UBX_TUP2(stat.i3[(stat_off>>2)+1], stat.i3[(stat_off>>2)+2]);
+ RETURN_UBX_TUP2(stat.i3[(stat_off>>2)+10], stat.i3[(stat_off>>2)+11]);
}
function h$base_st_mode(stat, stat_off) {
- return stat.i3[stat_off>>2];
+ return stat.i3[(stat_off>>2)+3];
}
function h$base_st_dev(stat, stat_off) {
- return stat.i3[(stat_off>>2)+5];
+ return stat.i3[(stat_off>>2)+0];
}
function h$base_st_ino(stat, stat_off) {
- RETURN_UBX_TUP2(stat.i3[(stat_off>>2)+6], stat.i3[(stat_off>>2)+7]);
+ RETURN_UBX_TUP2(stat.i3[(stat_off>>2)+26], stat.i3[(stat_off>>2)+27]);
}
/** @const */ var h$base_echo = 1;
=====================================
testsuite/tests/callarity/unittest/all.T
=====================================
@@ -5,4 +5,4 @@ setTestOpts(f)
setTestOpts(extra_hc_opts('-package ghc'))
setTestOpts(extra_run_opts('"' + config.libdir + '"'))
-test('CallArity1', js_broken(22362), compile_and_run, [''])
+test('CallArity1', normal, compile_and_run, [''])
=====================================
testsuite/tests/corelint/all.T
=====================================
@@ -7,6 +7,6 @@ test('T21152', normal, compile, ['-g3'])
setTestOpts(extra_hc_opts('-package ghc'))
setTestOpts(extra_run_opts('"' + config.libdir + '"'))
-test('LintEtaExpand', js_broken(22362), compile_and_run, [''])
+test('LintEtaExpand', normal, compile_and_run, [''])
## These tests use the GHC API.
## Test cases which don't use the GHC API should be added nearer the top.
=====================================
testsuite/tests/ghc-api/all.T
=====================================
@@ -4,14 +4,14 @@ test('T8639_api', req_rts_linker,
makefile_test, ['T8639_api'])
test('T8628', req_rts_linker,
makefile_test, ['T8628'])
-test('T9595', [extra_run_opts('"' + config.libdir + '"'), js_broken(22362)],
+test('T9595', [extra_run_opts('"' + config.libdir + '"')],
compile_and_run,
['-package ghc'])
test('T10508_api', [ extra_run_opts('"' + config.libdir + '"'),
req_rts_linker ],
compile_and_run,
['-package ghc'])
-test('T10942', [extra_run_opts('"' + config.libdir + '"'), js_broken(22362)],
+test('T10942', [extra_run_opts('"' + config.libdir + '"')],
compile_and_run,
['-package ghc'])
test('T9015', extra_run_opts('"' + config.libdir + '"'),
@@ -26,7 +26,7 @@ test('T18181',
compile_and_run,
['-package ghc'])
test('T18522-dbg-ppr',
- [extra_run_opts('"' + config.libdir + '"'), js_broken(22362)],
+ [extra_run_opts('"' + config.libdir + '"'), fragile(22362)],
compile_and_run,
['-package ghc'])
test('T19156', [ extra_run_opts('"' + config.libdir + '"')
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/b18fbf52f98d0128c52b3a90ddca727a6d5d4d45
--
View it on GitLab: https://gitlab.haskell.org/ghc/ghc/-/commit/b18fbf52f98d0128c52b3a90ddca727a6d5d4d45
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/20230206/b50a4198/attachment-0001.html>
More information about the ghc-commits
mailing list