| 2849 | } |
| 2850 | |
| 2851 | void fxPrepareCompartmentFunction(txMachine* the, txSlot* program, txSlot* instance) |
| 2852 | { |
| 2853 | txSlot* property = mxFunctionInstanceHome(instance); |
| 2854 | property->value.home.module = program; |
| 2855 | if (mxCompartmentGlobal.kind != XS_UNDEFINED_KIND) { |
| 2856 | instance->flag |= XS_DONT_PATCH_FLAG; |
| 2857 | property = property->next; |
| 2858 | while (property) { |
| 2859 | if (!(property->flag & XS_INTERNAL_FLAG)) |
| 2860 | property->flag |= XS_DONT_DELETE_FLAG | XS_DONT_SET_FLAG; |
| 2861 | property = property->next; |
| 2862 | } |
| 2863 | } |
| 2864 | } |
| 2865 | |
| 2866 | void fx_Compartment(txMachine* the) |
| 2867 | { |