atomic.c revision 677833bc953b6cb418c701facbdcf4aa18d6c44e
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou/* ***** BEGIN LICENSE BLOCK *****
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * Version: MPL 1.1/GPL 2.0/LGPL 2.1
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou *
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * The contents of this file are subject to the Mozilla Public License Version
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * 1.1 (the "License"); you may not use this file except in compliance with
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * the License. You may obtain a copy of the License at
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * http://www.mozilla.org/MPL/
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou *
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * Software distributed under the License is distributed on an "AS IS" basis,
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * for the specific language governing rights and limitations under the
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * License.
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou *
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * The Original Code is the Netscape Portable Runtime (NSPR).
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou *
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * The Initial Developer of the Original Code is
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * Netscape Communications Corporation.
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * Portions created by the Initial Developer are Copyright (C) 1998-2000
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * the Initial Developer. All Rights Reserved.
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou *
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * Contributor(s):
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou *
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * Alternatively, the contents of this file may be used under the terms of
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * either the GNU General Public License Version 2 or later (the "GPL"), or
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * in which case the provisions of the GPL or the LGPL are applicable instead
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * of those above. If you wish to allow use of your version of this file only
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * under the terms of either the GPL or the LGPL, and not to allow others to
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * use your version of this file under the terms of the MPL, indicate your
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * decision by deleting the provisions above and replace them with the notice
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * and other provisions required by the GPL or the LGPL. If you do not delete
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * the provisions above, a recipient may use your version of this file under
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * the terms of any one of the MPL, the GPL or the LGPL.
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou *
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou * ***** END LICENSE BLOCK ***** */
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou#include "prio.h"
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou#include "prprf.h"
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou#include "pratom.h"
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic PoitouPRIntn main(PRIntn argc, char **argv)
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou{
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PRInt32 rv, oldval, test, result = 0;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PRFileDesc *output = PR_GetSpecialFD(PR_StandardOutput);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test = -2;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicIncrement(&test);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == -1) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicIncrement(%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, rv, (rv == -1) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicIncrement(&test);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == 0) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicIncrement(%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, rv, (rv == 0) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicIncrement(&test);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == 1) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicIncrement(%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, rv, (rv == 1) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test = -2;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicAdd(&test,1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == -1) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicAdd(%d,%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, 1, rv, (rv == -1) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicAdd(&test, 4);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == 3) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicAdd(%d,%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, 4, rv, (rv == 3) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicAdd(&test, -6);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == -3) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicAdd(%d,%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, -6, rv, (rv == -3) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test = 2;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicDecrement(&test);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == 1) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicDecrement(%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, rv, (rv == 1) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicDecrement(&test);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == 0) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicDecrement(%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, rv, (rv == 0) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicDecrement(&test);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | ((rv == -1) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicDecrement(%d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, rv, (rv == -1) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou /* set to a different value */
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test = -2;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicSet(&test, 2);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | (((rv == -2) && (test == 2)) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicSet(%d, %d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, 2, rv, ((rv == -2) && (test == 2)) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou /* set to the same value */
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval = test = -2;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou rv = PR_AtomicSet(&test, -2);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou result = result | (((rv == -2) && (test == -2)) ? 0 : 1);
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "PR_AtomicSet(%d, %d) == %d: %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou oldval, -2, rv, ((rv == -2) && (test == -2)) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou PR_fprintf(
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou output, "Atomic operations test %s\n",
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou (result == 0) ? "PASSED" : "FAILED");
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou return result;
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou} /* main */
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou/* atomic.c */
5e5acc733bf20faa22d4e9be582f555bbda0867bLudovic Poitou