database/postgres
1
0
Fork 0
mirror of https://github.com/postgres/postgres.git synced 2025-11-12 05:01:15 +03:00
Code Activity

From: Dan McGuirk <mcguirk@indirect.com>

Browse Source 
Subject: [HACKERS] linux/alpha patches

These patches lay the groundwork for a Linux/Alpha port.  The port doesn't
actually work unless you tweak the linker to put all the pointers in the
first 32 bits of the address space, but it's at least a start.  It
implements the test-and-set instruction in Alpha assembly, and also fixes
a lot of pointer-to-integer conversions, which is probably good anyway.
This commit is contained in:
Marc G. Fournier
1997-03-12 21:00:17 +00:00
parent 127826978a
commit b66569e41f
6 changed files with 50 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
src/backend/nodes/list.c
View File

@@ -7,7 +7,7 @@
*
*
* IDENTIFICATION
* $Header: /cvsroot/pgsql/src/backend/nodes/list.c,v 1.2 1996/12/20 20:31:31 momjian Exp $
* $Header: /cvsroot/pgsql/src/backend/nodes/list.c,v 1.3 1997/03/12 20:59:27 scrappy Exp $
*
* NOTES
* XXX a few of the following functions are duplicated to handle
@@ -65,12 +65,27 @@ lcons(void *obj, List *list)
return l;
}
List *
lconsi(int datum, List *list)
{
List *l = makeNode(List);
lfirsti(l) = datum;
lnext(l) = list;
return l;
}
List *
lappend(List *list, void *obj)
{
return nconc(list, lcons(obj, NIL));
}
List *
lappendi(List *list, int datum)
{
return nconc(list, lconsi(datum, NIL));
}
Value *
makeInteger(long i)
{
@@ -110,6 +125,17 @@ nth(int n, List *l)
return lfirst(l);
}
int
nthi(int n, List *l)
{
/* XXX assume list is long enough */
while(n > 0) {
l = lnext(l);
n--;
}
return lfirsti(l);
}
/* this is here solely for rt_store. Get rid of me some day! */
void
set_nth(List *l, int n, void *elem)
@@ -244,7 +270,7 @@ same(List *foo, List *bar)
return (foo==NULL);
if (length(foo) == length(bar)) {
foreach (temp,foo) {
if (!intMember((int)lfirst(temp),bar))
if (!intMember(lfirsti(temp),bar))
return(false);
}
return(true);
@@ -297,7 +323,7 @@ LispUnioni(List *foo, List *bar)
foreach (i,foo) {
foreach (j,bar) {
if (lfirsti(i) != lfirsti(j)) {
retval = lappendi(retval,lfirst(i));
retval = lappendi(retval,lfirsti(i));
break;
}
}
@@ -329,7 +355,7 @@ intMember(int foo, List *bar)
{
List *i;
foreach (i,bar)
if (foo == (int)lfirst(i))
if (foo == lfirsti(i))
return(true);
return(false);
}
@@ -388,13 +414,13 @@ intLispRemove(int elem, List *list)
List *temp = NIL;
List *prev = NIL;
if (elem == (int)lfirst(list))
if (elem == lfirsti(list))
return lnext(list);
temp = lnext(list);
prev = list;
while(temp!=NIL) {
if (elem == (int)lfirst(temp)) {
if (elem == lfirsti(temp)) {
lnext(prev) = lnext(temp);
break;
}
@@ -431,7 +457,7 @@ set_differencei(List *list1, List *list2)
foreach (temp1, list1) {
if (!intMember(lfirsti(temp1), list2))
result = lappendi(result, lfirst(temp1));
result = lappendi(result, lfirsti(temp1));
}
return(result);
}