products/sources/formale sprachen/Java/openjdk-20-36_src/test/jdk/java/foreign image not shown  

Quellcode-Bibliothek

© Kompilation durch diese Firma

[Weder Korrektheit noch Funktionsfähigkeit der Software werden zugesichert.]

Datei: libVarArgs.c   Sprache: C

/*
 * Copyright (c) 2020, Oracle and/or its affiliates. All rights reserved.
 *  DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
 *
 *  This code is free software; you can redistribute it and/or modify it
 *  under the terms of the GNU General Public License version 2 only, as
 *  published by the Free Software Foundation.
 *
 *  This code is distributed in the hope that it will be useful, but WITHOUT
 *  ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
 *  FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 *  version 2 for more details (a copy is included in the LICENSE file that
 *  accompanied this code).
 *
 *  You should have received a copy of the GNU General Public License version
 *  2 along with this work; if not, write to the Free Software Foundation,
 *  Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 *   Please contact Oracle, 500 Oracle Parkway, Redwood Shores, CA 94065 USA
 *  or visit www.oracle.com if you need additional information or have any
 *  questions.
 *
 */


#include <stdarg.h>
#include <stdlib.h>

#include "shared.h"

typedef void (*writeback_t)(int,void*);

typedef struct {
    writeback_t writeback;
    int* argids;
} call_info;

#define CASE(num, type) case num: { \
  type x = va_arg(a_list, type); \
  writeback(i, &x); \
break;

enum NativeType {
    T_INT,
    T_FLOAT,
    T_DOUBLE,
    T_POINTER,
    T_S_I,
    T_S_F,
    T_S_D,
    T_S_P,
    T_S_II,
    T_S_IF,
    T_S_ID,
    T_S_IP,
    T_S_FI,
    T_S_FF,
    T_S_FD,
    T_S_FP,
    T_S_DI,
    T_S_DF,
    T_S_DD,
    T_S_DP,
    T_S_PI,
    T_S_PF,
    T_S_PD,
    T_S_PP,
    T_S_III,
    T_S_IIF,
    T_S_IID,
    T_S_IIP,
    T_S_IFI,
    T_S_IFF,
    T_S_IFD,
    T_S_IFP,
    T_S_IDI,
    T_S_IDF,
    T_S_IDD,
    T_S_IDP,
    T_S_IPI,
    T_S_IPF,
    T_S_IPD,
    T_S_IPP,
    T_S_FII,
    T_S_FIF,
    T_S_FID,
    T_S_FIP,
    T_S_FFI,
    T_S_FFF,
    T_S_FFD,
    T_S_FFP,
    T_S_FDI,
    T_S_FDF,
    T_S_FDD,
    T_S_FDP,
    T_S_FPI,
    T_S_FPF,
    T_S_FPD,
    T_S_FPP,
    T_S_DII,
    T_S_DIF,
    T_S_DID,
    T_S_DIP,
    T_S_DFI,
    T_S_DFF,
    T_S_DFD,
    T_S_DFP,
    T_S_DDI,
    T_S_DDF,
    T_S_DDD,
    T_S_DDP,
    T_S_DPI,
    T_S_DPF,
    T_S_DPD,
    T_S_DPP,
    T_S_PII,
    T_S_PIF,
    T_S_PID,
    T_S_PIP,
    T_S_PFI,
    T_S_PFF,
    T_S_PFD,
    T_S_PFP,
    T_S_PDI,
    T_S_PDF,
    T_S_PDD,
    T_S_PDP,
    T_S_PPI,
    T_S_PPF,
    T_S_PPD,
    T_S_PPP,
};

// need to pass `num` separately as last argument preceding varargs according to spec (and for MSVC)
EXPORT void varargs(call_info* info, int num, ...) {
    va_list a_list;
    va_start(a_list, num);
    writeback_t writeback = info->writeback;

    for (int i = 0; i < num; i++) {
        int id = info->argids[i];
        switch (id) {
            CASE(T_INT, int)
            CASE(T_FLOAT, double// vararg float is promoted to double per C spec
            CASE(T_DOUBLE, double)
            CASE(T_POINTER, void*)
            CASE(T_S_I,   struct S_I)
            CASE(T_S_F,   struct S_F)
            CASE(T_S_D,   struct S_D)
            CASE(T_S_P,   struct S_P)
            CASE(T_S_II,  struct S_II)
            CASE(T_S_IF,  struct S_IF)
            CASE(T_S_ID,  struct S_ID)
            CASE(T_S_IP,  struct S_IP)
            CASE(T_S_FI,  struct S_FI)
            CASE(T_S_FF,  struct S_FF)
            CASE(T_S_FD,  struct S_FD)
            CASE(T_S_FP,  struct S_FP)
            CASE(T_S_DI,  struct S_DI)
            CASE(T_S_DF,  struct S_DF)
            CASE(T_S_DD,  struct S_DD)
            CASE(T_S_DP,  struct S_DP)
            CASE(T_S_PI,  struct S_PI)
            CASE(T_S_PF,  struct S_PF)
            CASE(T_S_PD,  struct S_PD)
            CASE(T_S_PP,  struct S_PP)
            CASE(T_S_III, struct S_III)
            CASE(T_S_IIF, struct S_IIF)
            CASE(T_S_IID, struct S_IID)
            CASE(T_S_IIP, struct S_IIP)
            CASE(T_S_IFI, struct S_IFI)
            CASE(T_S_IFF, struct S_IFF)
            CASE(T_S_IFD, struct S_IFD)
            CASE(T_S_IFP, struct S_IFP)
            CASE(T_S_IDI, struct S_IDI)
            CASE(T_S_IDF, struct S_IDF)
            CASE(T_S_IDD, struct S_IDD)
            CASE(T_S_IDP, struct S_IDP)
            CASE(T_S_IPI, struct S_IPI)
            CASE(T_S_IPF, struct S_IPF)
            CASE(T_S_IPD, struct S_IPD)
            CASE(T_S_IPP, struct S_IPP)
            CASE(T_S_FII, struct S_FII)
            CASE(T_S_FIF, struct S_FIF)
            CASE(T_S_FID, struct S_FID)
            CASE(T_S_FIP, struct S_FIP)
            CASE(T_S_FFI, struct S_FFI)
            CASE(T_S_FFF, struct S_FFF)
            CASE(T_S_FFD, struct S_FFD)
            CASE(T_S_FFP, struct S_FFP)
            CASE(T_S_FDI, struct S_FDI)
            CASE(T_S_FDF, struct S_FDF)
            CASE(T_S_FDD, struct S_FDD)
            CASE(T_S_FDP, struct S_FDP)
            CASE(T_S_FPI, struct S_FPI)
            CASE(T_S_FPF, struct S_FPF)
            CASE(T_S_FPD, struct S_FPD)
            CASE(T_S_FPP, struct S_FPP)
            CASE(T_S_DII, struct S_DII)
            CASE(T_S_DIF, struct S_DIF)
            CASE(T_S_DID, struct S_DID)
            CASE(T_S_DIP, struct S_DIP)
            CASE(T_S_DFI, struct S_DFI)
            CASE(T_S_DFF, struct S_DFF)
            CASE(T_S_DFD, struct S_DFD)
            CASE(T_S_DFP, struct S_DFP)
            CASE(T_S_DDI, struct S_DDI)
            CASE(T_S_DDF, struct S_DDF)
            CASE(T_S_DDD, struct S_DDD)
            CASE(T_S_DDP, struct S_DDP)
            CASE(T_S_DPI, struct S_DPI)
            CASE(T_S_DPF, struct S_DPF)
            CASE(T_S_DPD, struct S_DPD)
            CASE(T_S_DPP, struct S_DPP)
            CASE(T_S_PII, struct S_PII)
            CASE(T_S_PIF, struct S_PIF)
            CASE(T_S_PID, struct S_PID)
            CASE(T_S_PIP, struct S_PIP)
            CASE(T_S_PFI, struct S_PFI)
            CASE(T_S_PFF, struct S_PFF)
            CASE(T_S_PFD, struct S_PFD)
            CASE(T_S_PFP, struct S_PFP)
            CASE(T_S_PDI, struct S_PDI)
            CASE(T_S_PDF, struct S_PDF)
            CASE(T_S_PDD, struct S_PDD)
            CASE(T_S_PDP, struct S_PDP)
            CASE(T_S_PPI, struct S_PPI)
            CASE(T_S_PPF, struct S_PPF)
            CASE(T_S_PPD, struct S_PPD)
            CASE(T_S_PPP, struct S_PPP)
            defaultexit(-1); // invalid id
        }
    }

    va_end(a_list);
}

¤ Dauer der Verarbeitung: 0.18 Sekunden  (vorverarbeitet)  ¤





aufgebrochen in jeweils 16 Zeichen
Quellennavigators
aufgebrochen in jeweils 16 Zeichen
sprechenden Kalenders

in der Quellcodebibliothek suchen




Haftungshinweis

Die Informationen auf dieser Webseite wurden nach bestem Wissen sorgfältig zusammengestellt. Es wird jedoch weder Vollständigkeit, noch Richtigkeit, noch Qualität der bereit gestellten Informationen zugesichert.


Bemerkung:

Die farbliche Syntaxdarstellung ist noch experimentell.


Bot Zugriff