QP/C: qs_f64.c Source File

Go to the documentation of this file.
00001 /*****************************************************************************
00002 * Product:  QS/C
00003 * Last Updated for Version: 4.4.00
00004 * Date of the Last Update:  Jan 16, 2012
00005 *
00006 *                    Q u a n t u m     L e a P s
00007 *                    ---------------------------
00008 *                    innovating embedded systems
00009 *
00010 * Copyright (C) 2002-2012 Quantum Leaps, LLC. All rights reserved.
00011 *
00012 * This software may be distributed and modified under the terms of the GNU
00013 * General Public License version 2 (GPL) as published by the Free Software
00014 * Foundation and appearing in the file GPL.TXT included in the packaging of
00015 * this file. Please note that GPL Section 2[b] requires that all works based
00016 * on this software must also be made publicly available under the terms of
00017 * the GPL ("Copyleft").
00018 *
00019 * Alternatively, this software may be distributed and modified under the
00020 * terms of Quantum Leaps commercial licenses, which expressly supersede
00021 * the GPL and are specifically designed for licensees interested in
00022 * retaining the proprietary status of their code.
00023 *
00024 * Contact information:
00025 * Quantum Leaps Web site:  http://www.quantum-leaps.com
00026 * e-mail:                  info@quantum-leaps.com
00027 *****************************************************************************/
00028 #include "qs_pkg.h"
00029 
00036 /*..........................................................................*/
00037 void QS_f64(uint8_t format, float64_t d) {
00038     union F64Rep {
00039         float64_t d;
00040         struct UInt2 {
00041             uint32_t u1, u2;
00042         } i;
00043     } fu64;
00044     fu64.d = d;
00045 
00046     QS_INSERT_ESC_BYTE(format)
00047 
00048     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u1)
00049     fu64.i.u1 >>= 8;
00050     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u1)
00051     fu64.i.u1 >>= 8;
00052     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u1)
00053     fu64.i.u1 >>= 8;
00054     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u1)
00055 
00056     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u2)
00057     fu64.i.u2 >>= 8;
00058     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u2)
00059     fu64.i.u2 >>= 8;
00060     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u2)
00061     fu64.i.u2 >>= 8;
00062     QS_INSERT_ESC_BYTE((uint8_t)fu64.i.u2)
00063 }