Changeset 11748 for trunk/source/lisp-kernel/x86-gc.c
- Timestamp:
- Feb 17, 2009, 3:09:46 PM (12 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/lisp-kernel/x86-gc.c
r11623 r11748 1859 1859 1860 1860 i = ((unsigned short *)node)[2]; 1861 offset = node[--i]; 1862 while (offset) { 1863 *(LispObj *)(p + offset) = fn; 1861 if (i) { 1864 1862 offset = node[--i]; 1863 while (offset) { 1864 *(LispObj *)(p + offset) = fn; 1865 offset = node[--i]; 1866 } 1865 1867 } 1866 1868 } … … 1935 1937 #endif 1936 1938 *dest++ = node; 1937 elements -= skip; 1938 while(skip--) { 1939 *dest++ = *src++; 1940 } 1939 if (skip) { 1940 elements -= skip; 1941 while(skip--) { 1942 *dest++ = *src++; 1943 } 1941 1944 #ifdef X8632 1942 update_self_references(f); 1943 #endif 1945 update_self_references(f); 1946 #endif 1947 } 1944 1948 while(elements--) { 1945 1949 *dest++ = node_forwarding_address(*src++);
Note: See TracChangeset
for help on using the changeset viewer.