Skip to content

Commit

Permalink
Code cleanup, version bump to 0.5.1
Browse files Browse the repository at this point in the history
  • Loading branch information
oco committed May 31, 2018
1 parent 22aa2e1 commit 5d21325
Show file tree
Hide file tree
Showing 5 changed files with 5 additions and 25 deletions.
6 changes: 3 additions & 3 deletions m3forth.spf
Original file line number Diff line number Diff line change
@@ -1,8 +1,8 @@
\ m3forth
DECIMAL

C" 0.5" CONSTANT _VERSION
.( m3forth by Oleg Voronin, David Kuehling. Version )
C" 0.5.1" CONSTANT _VERSION
.( m3forth by Oleg Voronin, David Kuehling 2013-2018. Version )
_VERSION COUNT TYPE CR

S" lib/include/double.f" INCLUDED
Expand All @@ -17,7 +17,7 @@ S" lib/include/place.f" INCLUDED
S" src/hex.spf" INCLUDED
CREATE FILENAME 255 ALLOT \ temp buffer

\ ================= контроллер
\ ================= device
S" devices/devices.spf" INCLUDED \ device types
FNAME 2@ FILENAME PLACE
S" .elf" FILENAME +PLACE
Expand Down
11 changes: 0 additions & 11 deletions src/cross.spf
Original file line number Diff line number Diff line change
Expand Up @@ -1082,16 +1082,5 @@ INTERPRETER
SWAP 0 REG: +
;

\ ~ COMPILER
\ ~
\ ~ : BITS{
\ ~ ( [ ) 0 TSTATE !H ;
\ ~
\ ~ INTERPRETER
\ ~
\ ~ : }BITS
\ ~ BIT [ ALSO COMPILING ] POSTPONE LITERAL POSTPONE ] ;
\ ~

HOST

2 changes: 1 addition & 1 deletion src/hex.spf
Original file line number Diff line number Diff line change
Expand Up @@ -22,7 +22,7 @@ VARIABLE H-SUM
0 0 R> WRITE-LINE THROW
;

: HEX-SAVE ( taddr count a u -- ) \ в формате intel.hex
: HEX-SAVE ( taddr count a u -- ) \ intel.hex
BASE @ >R HEX
R/W CREATE-FILE THROW
-ROT
Expand Down
2 changes: 1 addition & 1 deletion src/interpreter.spf
Original file line number Diff line number Diff line change
Expand Up @@ -286,7 +286,7 @@ CDATA
!SP !RP DECIMAL
0 STATE ! 0 TO SOURCE-ID
(TIB) 0 SOURCE!
CR ." M3Forth (C) Oleg Voronin, David Kuehling 2013"
CR ." M3Forth (C) Oleg Voronin, David Kuehling 2013-2018"
QUIT ;
' (ABORT) IS ABORT

Expand Down
9 changes: 0 additions & 9 deletions src/kernel.spf
Original file line number Diff line number Diff line change
Expand Up @@ -290,15 +290,6 @@ COMPILER
[END-ASM]
;

\ symmetric
\ ~ : /
\ ~ [ASM]
\ ~ poptmp
\ ~ tos tmp tos sdiv
\ ~ [END-ASM]
\ ~ ;


: UNLOOP
[ASM]
8 # sp sp add
Expand Down

0 comments on commit 5d21325

Please sign in to comment.