/ Replace all array pointers by offsets. */ /
| 1875 | /* Replace all array pointers by offsets. */ |
| 1876 | /***********************************************************************/ |
| 1877 | size_t SWAP::MoffArray(PJAR jarp) |
| 1878 | { |
| 1879 | if (jarp->First) { |
| 1880 | for (int i = 0; i < jarp->Size; i++) |
| 1881 | jarp->Mvals[i] = (PJVAL)MakeOff(Base, jarp->Mvals[i]); |
| 1882 | |
| 1883 | jarp->Mvals = (PJVAL*)MakeOff(Base, jarp->Mvals); |
| 1884 | jarp->First = (PJVAL)MoffJValue(jarp->First); |
| 1885 | jarp->Last = (PJVAL)MakeOff(Base, jarp->Last); |
| 1886 | } // endif First |
| 1887 | |
| 1888 | return MakeOff(Base, jarp); |
| 1889 | } // end of MoffArray |
| 1890 | |
| 1891 | /***********************************************************************/ |
| 1892 | /* Replace all object pointers by offsets. */ |