js/src/lock_sparcv9.il

   1 !
   2 ! ***** BEGIN LICENSE BLOCK *****
   3 ! Version: MPL 1.1/GPL 2.0/LGPL 2.1
   4 !
   5 ! The contents of this file are subject to the Mozilla Public License Version
   6 ! 1.1 (the "License"); you may not use this file except in compliance with
   7 ! the License. You may obtain a copy of the License at
   8 ! http://www.mozilla.org/MPL/
   9 !
  10 ! Software distributed under the License is distributed on an "AS IS" basis,
  11 ! WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
  12 ! for the specific language governing rights and limitations under the
  13 ! License.
  14 !
  15 ! The Original Code is Mozilla Communicator client code, released
  16 ! March 31, 1998.
  17 !
  18 ! The Initial Developer of the Original Code is
  19 ! Netscape Communications Corporation.
  20 ! Portions created by the Initial Developer are Copyright (C) 1998-1999
  21 ! the Initial Developer. All Rights Reserved.
  22 !
  23 ! Contributor(s):
  24 !
  25 ! Alternatively, the contents of this file may be used under the terms of
  26 ! either the GNU General Public License Version 2 or later (the "GPL"), or
  27 ! the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
  28 ! in which case the provisions of the GPL or the LGPL are applicable instead
  29 ! of those above. If you wish to allow use of your version of this file only
  30 ! under the terms of either the GPL or the LGPL, and not to allow others to
  31 ! use your version of this file under the terms of the MPL, indicate your
  32 ! decision by deleting the provisions above and replace them with the notice
  33 ! and other provisions required by the GPL or the LGPL. If you do not delete
  34 ! the provisions above, a recipient may use your version of this file under
  35 ! the terms of any one of the MPL, the GPL or the LGPL.
  36 !
  37 ! ***** END LICENSE BLOCK *****
  38
  39 !
  40 !  atomic compare-and-swap routines for V9 (ultrasparc)
  41 !
  42 !  ======================================================================
  43 !
  44 !  Perform the sequence *a = b atomically with respect to previous value
  45 !  of a (a0). If *a==a0 then assign *a to b, all in one atomic operation.
  46 !  Returns 1 if assignment happened, and 0 otherwise.
  47 !
  48 !  usage : old_val = compare_and_swap(address, oldval, newval)
  49 !
  50 !  -----------------------
  51 !  Note on REGISTER USAGE:
  52 !  as this is a LEAF procedure, a new stack frame is not created;
  53 !  we use the caller stack frame so what would normally be %i (input)
  54 !  registers are actually %o (output registers).  Also, we must not
  55 !  overwrite the contents of %l (local) registers as they are not
  56 !  assumed to be volatile during calls.
  57 !
  58 !  So, the registers used are:
  59 !     %o0  [input]   - the address of the value to increment
  60 !     %o1  [input]   - the old value to compare with
  61 !     %o2  [input]   - the new value to set for [%o0]
  62 !     %o3  [local]   - work register
  63 !  -----------------------
  64 !  ======================================================================
  65 !
  66 !  v9
  67
  68     .inline NativeCompareAndSwap,3
  69
  70         stbar
  71         casx [%o0],%o1,%o2              ! compare *w with old value and set to new if equal
  72         cmp %o1,%o2                     ! did we succeed?
  73         be,a 1f                         ! yes
  74         mov 1,%o0                       ! return true (annulled when no jump)
  75         mov 0,%o0                       ! return false
  76 1:
  77
  78     .end
  79
  80 !
  81 !  end
  82 !
  83 !  ======================================================================
  84 !