Commit b28e5231 authored by John van Groningen's avatar John van Groningen
Browse files

Merge branch 'fix-copy-from-string-on-ARRAY-relative-systems' into 'master'

Fix copy_from_string for unboxed arrays of records on systems with USE_DESC_RELATIVE_TO_ARRAY

See merge request !13
parents 7fbaaee9 3d724e8f
......@@ -106,8 +106,12 @@ void remove_forwarding_pointers_from_string (Int *string_p,Int *end_forwarding_p
elem_desc=string_p[2];
string_p+=3;
if (elem_desc==0){
} else if (elem_desc==(Int)&INT+2
if (elem_desc!=0){
#if defined (USE_DESC_RELATIVE_TO_ARRAY)
elem_desc+=(Int)&__ARRAY__;
#endif
if (elem_desc==(Int)&INT+2
#if ARCH_64
|| elem_desc==(Int)&REAL+2
#else
......@@ -141,6 +145,7 @@ void remove_forwarding_pointers_from_string (Int *string_p,Int *end_forwarding_p
string_p+=n_non_field_pointers*array_size;
}
}
} else {
++string_p;
}
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment