[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