|
|
|
@ -327,7 +327,7 @@ lappend(List *list, void *datum) |
|
|
|
else |
|
|
|
else |
|
|
|
new_tail_cell(list); |
|
|
|
new_tail_cell(list); |
|
|
|
|
|
|
|
|
|
|
|
lfirst(list_tail(list)) = datum; |
|
|
|
llast(list) = datum; |
|
|
|
check_list_invariants(list); |
|
|
|
check_list_invariants(list); |
|
|
|
return list; |
|
|
|
return list; |
|
|
|
} |
|
|
|
} |
|
|
|
@ -345,7 +345,7 @@ lappend_int(List *list, int datum) |
|
|
|
else |
|
|
|
else |
|
|
|
new_tail_cell(list); |
|
|
|
new_tail_cell(list); |
|
|
|
|
|
|
|
|
|
|
|
lfirst_int(list_tail(list)) = datum; |
|
|
|
llast_int(list) = datum; |
|
|
|
check_list_invariants(list); |
|
|
|
check_list_invariants(list); |
|
|
|
return list; |
|
|
|
return list; |
|
|
|
} |
|
|
|
} |
|
|
|
@ -363,7 +363,7 @@ lappend_oid(List *list, Oid datum) |
|
|
|
else |
|
|
|
else |
|
|
|
new_tail_cell(list); |
|
|
|
new_tail_cell(list); |
|
|
|
|
|
|
|
|
|
|
|
lfirst_oid(list_tail(list)) = datum; |
|
|
|
llast_oid(list) = datum; |
|
|
|
check_list_invariants(list); |
|
|
|
check_list_invariants(list); |
|
|
|
return list; |
|
|
|
return list; |
|
|
|
} |
|
|
|
} |
|
|
|
@ -459,7 +459,7 @@ lcons(void *datum, List *list) |
|
|
|
else |
|
|
|
else |
|
|
|
new_head_cell(list); |
|
|
|
new_head_cell(list); |
|
|
|
|
|
|
|
|
|
|
|
lfirst(list_head(list)) = datum; |
|
|
|
linitial(list) = datum; |
|
|
|
check_list_invariants(list); |
|
|
|
check_list_invariants(list); |
|
|
|
return list; |
|
|
|
return list; |
|
|
|
} |
|
|
|
} |
|
|
|
@ -477,7 +477,7 @@ lcons_int(int datum, List *list) |
|
|
|
else |
|
|
|
else |
|
|
|
new_head_cell(list); |
|
|
|
new_head_cell(list); |
|
|
|
|
|
|
|
|
|
|
|
lfirst_int(list_head(list)) = datum; |
|
|
|
linitial_int(list) = datum; |
|
|
|
check_list_invariants(list); |
|
|
|
check_list_invariants(list); |
|
|
|
return list; |
|
|
|
return list; |
|
|
|
} |
|
|
|
} |
|
|
|
@ -495,7 +495,7 @@ lcons_oid(Oid datum, List *list) |
|
|
|
else |
|
|
|
else |
|
|
|
new_head_cell(list); |
|
|
|
new_head_cell(list); |
|
|
|
|
|
|
|
|
|
|
|
lfirst_oid(list_head(list)) = datum; |
|
|
|
linitial_oid(list) = datum; |
|
|
|
check_list_invariants(list); |
|
|
|
check_list_invariants(list); |
|
|
|
return list; |
|
|
|
return list; |
|
|
|
} |
|
|
|
} |
|
|
|
|