/*-------------------------------------------------------------------------
 *
 * s_lock.c--
 *	  buffer manager interface routines
 *
 * Copyright (c) 1994, Regents of the University of California
 *
 *
 * IDENTIFICATION
 *	  $Header: /cvsroot/pgsql/src/backend/storage/buffer/Attic/s_lock.c,v 1.1 1997/12/30 04:03:01 scrappy Exp $
 *
 *-------------------------------------------------------------------------
 */
/*
 * S_LOCK() -- Implements the S_LOCK function for the Linux/Alpha platform.
 *         This function is usually an inlined macro for all other platforms,
 *         but must be a seperate function for the Linux/Alpha platform, due
 *         to the assembly code involved.
 */

#if defined(__alpha__) && defined(linux)

#include <sys/types.h>
#include <sys/file.h>
#include <stdio.h>
#include <string.h>
#include <math.h>
#include <signal.h>

#include "postgres.h"

/* declarations split between these three files */
#include "storage/buf.h"
#include "storage/buf_internals.h"
#include "storage/bufmgr.h"

#include "storage/fd.h"
#include "storage/ipc.h"
#include "storage/s_lock.h"

void S_LOCK(slock_t* lock)
{
  do
  {
    slock_t _res;
    do
    {
      __asm__("    ldq   $0, %0              \n\
                   bne   $0, already_set     \n\
                   ldq_l $0, %0	             \n\
                   bne   $0, already_set     \n\
                   or    $31, 1, $0          \n\
                   stq_c $0, %0	             \n\
                   beq   $0, stqc_fail       \n\
          success: bis   $31, $31, %1        \n\
                   mb		             \n\
                   jmp   $31, end	     \n\
        stqc_fail: or    $31, 1, $0	     \n\
      already_set: bis   $0, $0, %1	     \n\
              end: nop      ": "=m"(*lock), "=r"(_res): :"0");
    } while (_res != 0);
  } while (0);
}

#endif
