Commit 49fade2d authored by pazsan's avatar pazsan

Added see for flits

Improved alignment of fp lits (now noops compiled before flit)
added crs at end of configure.bat (command.com needs them)
parent 51639d4a
@ECHO OFF
REM Copyright 1994 by the GNU FORTH Team
ECHO *** Configuring for MS-DOS with DJGPP GNU C ***
COPY MAKEFILE.DOS MAKEFILE
COPY KERNL32L.FI GFORTH.FI
COPY 386.H MACHINE.H
COPY STARTUP.DOS STARTUP.FS
@ECHO OFF
REM Copyright 1994 by the GNU FORTH Team
ECHO *** Configuring for MS-DOS with DJGPP GNU C ***
COPY MAKEFILE.DOS MAKEFILE
COPY KERNL32L.FI GFORTH.FI
COPY 386.H MACHINE.H
COPY STARTUP.FS STARTUP.UNX
COPY STARTUP.DOS STARTUP.FS
\ CROSS.FS The Cross-Compiler 06oct92py
\ $Id: cross.fs,v 1.22 1995-02-06 18:14:30 anton Exp $
\ $Id: cross.fs,v 1.23 1995-02-08 13:38:50 pazsan Exp $
\ Idea and implementation: Bernd Paysan (py)
\ Copyright 1992-94 by the GNU Forth Development Group
......@@ -23,6 +23,10 @@
\ include other.fs \ ansforth extentions for cross
: string, ( c-addr u -- )
\ puts down string as cstring
dup c, here swap chars dup allot move ;
' falign Alias cfalign
: comment? ( c-addr u -- c-addr u )
2dup s" (" compare 0=
IF postpone (
......
......@@ -32,8 +32,10 @@
: fdepth ( -- n ) f0 @ fp@ - [ 1 floats ] Literal / ;
: FLit ( -- r ) r> faligned dup f@ float+ >r ;
: FLiteral ( r -- ) postpone FLit falign f, ; immediate
: FLit ( -- r ) r> dup f@ float+ >r ;
: FLiteral ( r -- )
BEGIN here cell+ dup faligned <> WHILE postpone noop REPEAT
postpone FLit f, ; immediate
&15 Value precision
: set-precision to precision ;
......
......@@ -191,6 +191,16 @@ VARIABLE C-Pass
Display? IF dup @ dup abs 0 <# #S rot sign #> 0 .string bl cemit THEN
cell+ ;
: c-flit
Display? IF dup f@ scratch represent 0=
IF 2drop scratch 3 min 0 .string
ELSE IF '- cemit THEN 1-
scratch over c@ cemit '. cemit 1 /string 0 .string
'E cemit
dup abs 0 <# #S rot sign #> 0 .string bl cemit
THEN THEN
float+ ;
: c-s"
count 2dup + aligned -rot
Display?
......@@ -373,6 +383,7 @@ VARIABLE C-Pass
CREATE C-Table
' lit A, ' c-lit A,
' flit A, ' c-flit A,
' (s") A, ' c-s" A,
' (.") A, ' c-." A,
' "lit A, ' c-c" A,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment