[Vm-dev] [OpenSmalltalk/opensmalltalk-vm] Insufficient Object Memory: Building on Alpine (#519)
Pierce Ng
notifications at github.com
Mon Sep 7 02:06:20 UTC 2020
Eliot,
Thank you. I made the below changes to FileAttributesPlugin.c. With these changes, ```File primFileMasks``` on
Pharo 8 produces output and no longer throws primitive failed error.
```
--- a/src/plugins/FileAttributesPlugin/FileAttributesPlugin.c
+++ b/src/plugins/FileAttributesPlugin/FileAttributesPlugin.c
@@ -97,7 +97,7 @@ EXPORT(sqInt) primitiveClosedir(void);
EXPORT(sqInt) primitiveFileAttribute(void);
EXPORT(sqInt) primitiveFileAttributes(void);
EXPORT(sqInt) primitiveFileExists(void);
-static sqInt primitiveFileMasks(void);
+EXPORT(sqInt) primitiveFileMasks(void);
EXPORT(sqInt) primitiveLogicalDrives(void);
EXPORT(sqInt) primitiveOpendir(void);
EXPORT(sqInt) primitivePathMax(void);
@@ -746,7 +746,7 @@ primitiveFileExists(void)
/* Answer an array (or word array) of well known file masks */
/* FileAttributesPlugin>>#primitiveFileMasks */
-static sqInt
+EXPORT(sqInt)
primitiveFileMasks(void)
{
sqInt * masks;
@@ -765,6 +765,7 @@ primitiveFileMasks(void)
}
masks = ((sqInt *) (firstIndexableField(masksArray)));
nilObj = nilObject();
+ masks[0] = (integerObjectOf(S_IFMT));
# if defined(S_IFSOCK)
masks[1] = (integerObjectOf(S_IFSOCK));
# else
```
--
You are receiving this because you commented.
Reply to this email directly or view it on GitHub:
https://github.com/OpenSmalltalk/opensmalltalk-vm/issues/519#issuecomment-687978877
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/vm-dev/attachments/20200906/fa65a534/attachment-0001.html>
More information about the Vm-dev
mailing list