Author: coke
Date: Fri Oct 7 11:30:07 2005
New Revision: 9396
Modified:
trunk/languages/BASIC/compiler/RT_io.imc
trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.imc
trunk/languages/LANGUAGES.STATUS
Log:
Minor fixes to basic compiler (remove explicit 'call'), note that the
basic implementation is currently broken in respect to PIR.
Modified: trunk/languages/BASIC/compiler/RT_io.imc
==============================================================================
--- trunk/languages/BASIC/compiler/RT_io.imc (original)
+++ trunk/languages/BASIC/compiler/RT_io.imc Fri Oct 7 11:30:07 2005
@@ -7,7 +7,7 @@
.param int numchar
.param int fd
ne fd, 0, NORESET
- call _line_read
+ _line_read()
NORESET:find_global $P0, "FDS"
$P1=$P0[fd]
set $S0, ""
Modified: trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.imc
==============================================================================
--- trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.imc (original)
+++ trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.imc Fri Oct 7
11:30:07 2005
@@ -180,8 +180,7 @@ ANSI_BG:find_global $P0, "ANSI_bgcolors"
find_global $P0, "scankey"
set I0, $P0["value"]
eq I0, 1, END
- #call _set_nonblock
- call _set_noecho_cbreak
+ _set_noecho_cbreak()
END: set $P0["value"], 1
store_global "scankey", $P0
.end
@@ -189,8 +188,7 @@ END: set $P0["value"], 1
find_global $P0, "scankey"
set I0, $P0["value"]
eq I0, 0, END
- #call _unset_nonblock
- call _set_echo_nocbreak
+ _set_echo_nocbreak()
END: set $P0["value"], 0
store_global "scankey", $P0
.end
Modified: trunk/languages/LANGUAGES.STATUS
==============================================================================
--- trunk/languages/LANGUAGES.STATUS (original)
+++ trunk/languages/LANGUAGES.STATUS Fri Oct 7 11:30:07 2005
@@ -20,9 +20,11 @@ N: BASIC/compiler
A: Clint Pierce
A: Will Coleda (work with parrot 0.1.0+)
D: BASIC Compiler
-S: Cautiously Optimistic - wumpus & screen examples seem to work again.
+S: Broken. Using PIR, but deprecated "invoke" and manually managing
+S: old-sylte calling conventions: needs to be updated to work with new
+S: calling conventions
M: Yes
-V: 0.0.11
+V: N/A
N: BASIC/interpreter
A: Clint Pierce
