rajamesandJunie
a8b70e88d3
Source tree reorganization: - Move StarForth v3 engine to v3/ (src/, include/, Makefile) - Move kernel to kernel/ (src/, include/, linker/, Makefile) - Create v4/ skeleton for F18-ISA golden model (DECOMPOSITION.md, JUSTIFICATION.md) - Move FABRIC-0..4.md to docs/fabric/ - Move ONTOLOGY.md and ROADMAP.md to docs/ Board infrastructure: - Add boards/ser5/, boards/raspi/, boards/milkv/, boards/zynq7020/ - Each board has board.mk (ISA, CPU flags, boot recipe) and README.md - Root Makefile becomes thin dispatcher: boot_image, all, clean, docs take TARGET - make boot_image TARGET=SER5|RASPI|MILKV builds one GPT/MBR image per board - ZYNQ7020 target exists but stops with clear error (ARMv7 port not built yet) - scripts/mkdiskimage.sh builds disk images for all boards Docs pipeline: - docs/book/ with LaTeX master (main.tex) and Makefile - pandoc converts Markdown to LaTeX at build time - Two Lua filters: table-widths.lua (wide tables wrap), code-breaks.lua (inline code breaks) - make docs builds single PDF (754 pages, 0 missing characters) - make docs TARGET=<board> adds board appendix - build/docs/<book|board>/meta.tex stamps git commit into PDF Bug fixes: - 42 include paths that only worked by accident now use correct relative paths - clang-18 hardcode replaced with configurable CC variable (fixed aarch64 build) - Pi 5: kernel_2712.img linked at 0x80000, .bss zeroed, memory reserved - Doxyfile, .clang-tidy, README.md, Kconfig paths updated Verified: - Hosted v3 build passes 1012 tests, 0 failures - SER5 image boots in QEMU (OVMF), POST passes, K exact (65536 = Q48_ONE) - Milk-V image boots in QEMU (OpenSBI + U-Boot + bootefi), POST passes - make clean TARGET=<board> removes only that board and its ISA objects - make all builds all boards, hosted v3, and docs in one run Co-authored-by: Junie <junie@jetbrains.com>
78 lines
3.1 KiB
C
78 lines
3.1 KiB
C
/*
|
||
StarForth — Steady-State Virtual Machine Runtime
|
||
|
||
Copyright (c) 2023–2025 Robert A. James
|
||
All rights reserved.
|
||
|
||
This file is part of the StarForth project.
|
||
|
||
Licensed under the StarForth License, Version 1.0 (the "License");
|
||
you may not use this file except in compliance with the License.
|
||
|
||
You may obtain a copy of the License at:
|
||
https://github.com/star.4th@proton.me/StarForth/LICENSE.txt
|
||
|
||
This software is provided "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||
express or implied, including but not limited to the warranties of
|
||
merchantability, fitness for a particular purpose, and noninfringement.
|
||
|
||
See the License for the specific language governing permissions and
|
||
limitations under the License.
|
||
|
||
StarForth — Steady-State Virtual Machine Runtime
|
||
Copyright (c) 2023–2025 Robert A. James
|
||
All rights reserved.
|
||
|
||
This file is part of the StarForth project.
|
||
|
||
Licensed under the StarForth License, Version 1.0 (the "License");
|
||
you may not use this file except in compliance with the License.
|
||
|
||
You may obtain a copy of the License at:
|
||
https://github.com/star.4th@proton.me/StarForth/LICENSE.txt
|
||
|
||
This software is provided "AS IS", WITHOUT WARRANTY OF ANY KIND,
|
||
express or implied, including but not limited to the warranties of
|
||
merchantability, fitness for a particular purpose, and noninfringement.
|
||
|
||
See the License for the specific language governing permissions and
|
||
limitations under the License.
|
||
|
||
*/
|
||
|
||
#ifndef DOUBLE_WORDS_H
|
||
#define DOUBLE_WORDS_H
|
||
|
||
#include "vm.h"
|
||
|
||
/* FORTH-79 Double Number Words:
|
||
* S>D ( n -- d ) Convert single to double
|
||
* D+ ( d1 d2 -- d3 ) Add double numbers
|
||
* D- ( d1 d2 -- d3 ) Subtract double numbers
|
||
* DNEGATE ( d1 -- d2 ) Negate double number
|
||
* DABS ( d1 -- d2 ) Absolute value of double
|
||
* DMAX ( d1 d2 -- d3 ) Maximum of two doubles
|
||
* DMIN ( d1 d2 -- d3 ) Minimum of two doubles
|
||
* D< ( d1 d2 -- flag ) Compare doubles: d1 < d2
|
||
* D= ( d1 d2 -- flag ) Compare doubles: d1 = d2
|
||
* 2DROP ( d -- ) Drop double from stack
|
||
* 2DUP ( d -- d d ) Duplicate double
|
||
* 2SWAP ( d1 d2 -- d2 d1 ) Swap two doubles
|
||
* 2OVER ( d1 d2 -- d1 d2 d1 ) Copy second double to top
|
||
* 2ROT ( d1 d2 d3 -- d2 d3 d1 ) Rotate three doubles
|
||
* 2>R ( d -- ) ( R: -- d ) Move double to return stack
|
||
* 2R> ( -- d ) ( R: d -- ) Move double from return stack
|
||
* 2R@ ( -- d ) ( R: d -- d ) Copy double from return stack
|
||
* D0= ( d -- flag ) Test if double is zero
|
||
* D0< ( d -- flag ) Test if double is negative
|
||
* D2* ( d1 -- d2 ) Multiply double by 2
|
||
* D2/ ( d1 -- d2 ) Divide double by 2
|
||
*/
|
||
|
||
/*
|
||
* @brief Registers all double precision number manipulation words with the Forth virtual machine
|
||
* @param vm Pointer to the Forth virtual machine instance
|
||
*/
|
||
void register_double_words(VM * vm);
|
||
|
||
#endif /* DOUBLE_WORDS_H */ |