[svn:parrot] r35384 - trunk/languages/BASIC/compiler

Author: coke
Date: Sat Jan 10 21:41:08 2009
New Revision: 35384

Modified:
   trunk/languages/BASIC/compiler/COMP_parsefuncs.pm
   trunk/languages/BASIC/compiler/RT_debugger.pir
   trunk/languages/BASIC/compiler/RT_initialize.pir
   trunk/languages/BASIC/compiler/RT_io.pir
   trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.pir
   trunk/languages/BASIC/compiler/RT_platform_win32.pir
   trunk/languages/BASIC/compiler/compile.pl

Log:
[BASIC] - integer type ids are no longer available



Modified: trunk/languages/BASIC/compiler/COMP_parsefuncs.pm
==============================================================================
--- trunk/languages/BASIC/compiler/COMP_parsefuncs.pm	(original)
+++ trunk/languages/BASIC/compiler/COMP_parsefuncs.pm	Sat Jan 10 21:41:08 2009
@@ -1182,9 +1182,9 @@
         #print STDERR "Marking ${var}${seg}\n";
         push @{ $code{$seg}->{code} }, <<DIMARR;
         # Set aside storage for Array $var
-        \$P0 = new .Hash
-        \$P2 = new .ResizablePMCArray
-        \$P3 = new .Hash
+        \$P0 = new 'Hash'
+        \$P2 = new 'ResizablePMCArray'
+        \$P3 = new 'Hash'
         \$P3["index"]=\$P2
         \$P3["hash"]=\$P0
         find_global \$P1, "BASICARR"

Modified: trunk/languages/BASIC/compiler/RT_debugger.pir
==============================================================================
--- trunk/languages/BASIC/compiler/RT_debugger.pir	(original)
+++ trunk/languages/BASIC/compiler/RT_debugger.pir	Sat Jan 10 21:41:08 2009
@@ -104,7 +104,7 @@
 	branch DEBUGGER_COMMAND
 
 DEBUGGER_DELALLWATCH:
-	$P0=new .ResizablePMCArray
+	$P0=new 'ResizablePMCArray'
 	set $P25["watch"], $P0
 	print "All watches cleared.\n"
 	branch DEBUGGER_COMMAND

Modified: trunk/languages/BASIC/compiler/RT_initialize.pir
==============================================================================
--- trunk/languages/BASIC/compiler/RT_initialize.pir	(original)
+++ trunk/languages/BASIC/compiler/RT_initialize.pir	Sat Jan 10 21:41:08 2009
@@ -3,26 +3,26 @@
 .const int TYPE = 0
 .const int VALUE = 1
 .sub _main :main
-	$P0 = new .Hash
+	$P0 = new 'Hash'
 	store_global "BASICARR", $P0
-	$P0 = new .ResizablePMCArray
+	$P0 = new 'ResizablePMCArray'
 	store_global "READDATA", $P0
-	$P0 = new .Hash
+	$P0 = new 'Hash'
 	store_global "RESTOREINFO", $P0
-	$P0=new .Hash
+	$P0=new 'Hash'
 	$P0["value"]=0
 	store_global "READPOINTER", $P0
-	$P0=new .Hash
+	$P0=new 'Hash'
 	$P0["value"]=20021107
 	store_global "RANDSEED", $P0
-	$P0=new .Hash
+	$P0=new 'Hash'
 	$P0["value"]=0
 	store_global "PRINTCOL", $P0
-	$P0=new .Hash
+	$P0=new 'Hash'
 	store_global "DEBUGGER", $P0
-	$P0=new .Hash
+	$P0=new 'Hash'
 	store_global "COMMON", $P0
-	$P0=new .ResizablePMCArray
+	$P0=new 'ResizablePMCArray'
 	fdopen $P1, 0, "r"	# STDIN and friends...
         $P1 = getstdin
 	$P0[0]=$P1

Modified: trunk/languages/BASIC/compiler/RT_io.pir
==============================================================================
--- trunk/languages/BASIC/compiler/RT_io.pir	(original)
+++ trunk/languages/BASIC/compiler/RT_io.pir	Sat Jan 10 21:41:08 2009
@@ -90,7 +90,7 @@
 	.local string token
 	line  = _CHOMP(line)
 
-	$P1=new .ResizablePMCArray
+	$P1=new 'ResizablePMCArray'
 	eq splitflag, 0, SPLITSINGLE
 
 SPLITAGAIN:

Modified: trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.pir
==============================================================================
--- trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.pir	(original)
+++ trunk/languages/BASIC/compiler/RT_platform_ANSIscreen.pir	Sat Jan 10 21:41:08 2009
@@ -19,7 +19,7 @@
 .const int STDIN = 0
 
 .sub _ansi_setup
-	$P0=new .ResizablePMCArray
+	$P0=new 'ResizablePMCArray'
 	$P0[0]= BLACK
 	$P0[1]= BLUE
 	$P0[2]= GREEN
@@ -30,7 +30,7 @@
 	$P0[7]= WHITE
 	store_global "ANSI_fgcolors", $P0
 
-	$P0=new .ResizablePMCArray
+	$P0=new 'ResizablePMCArray'
 	$P0[0]= BLACK
 	$P0[1]= BLUE
 	$P0[2]= GREEN
@@ -49,7 +49,7 @@
 	$P0[15]= 8
 	store_global "ANSI_bgcolors", $P0
 
-	$P0=new .Hash
+	$P0=new 'Hash'
 	$P0["value"]=0
 	store_global "scankey", $P0
 .end
@@ -131,10 +131,10 @@
         .local pmc ioctl
 	ioctl = dlfunc $P1, "ioctl", "iiip"
 
-	$P9 = new .ManagedStruct    # Saved
+	$P9 = new 'ManagedStruct'    # Saved
 	$P9 = 20
 
-	$P10 = new .ManagedStruct   # New
+	$P10 = new 'ManagedStruct'   # New
 	$P10 = 20
 
         ioctl(0, TCGETA, $P9)
@@ -182,7 +182,7 @@
 	#invoke		# nmode=fcntl(0, F_SETFL, mode | O_NONBLOCK)
 	fcntl(STDIN, F_SETFL, $I7)
 
-	$P0=new .Hash
+	$P0=new 'Hash'
 	$P0["value"]= old_value
 	store_global "fcntl_mode", $P0
 .end

Modified: trunk/languages/BASIC/compiler/RT_platform_win32.pir
==============================================================================
--- trunk/languages/BASIC/compiler/RT_platform_win32.pir	(original)
+++ trunk/languages/BASIC/compiler/RT_platform_win32.pir	Sat Jan 10 21:41:08 2009
@@ -16,7 +16,7 @@
 	set I5, -10
 	invoke
 	store_global "Win32Inputhandle", P5
-	$P0= new .Hash
+	$P0= new 'Hash'
 	store_global "Win32console", $P0
 	_WIN32_CONSOLE_INFO()
 .end
@@ -26,7 +26,7 @@
 	find_global P1, "kernel32"
 	dlfunc P0, P1, "GetConsoleScreenBufferInfo", "ipp"
 	find_global P5, "Win32handle"
-	P6=new .ManagedStruct
+	P6=new 'ManagedStruct'
 	set P6, SIZEOF_CONSOLE_SCREEN_BUFFER_INFO
 	set I0, 1
 	invoke
@@ -79,7 +79,7 @@
 	dlfunc P0, P2, "FillConsoleOutputCharacterA", "ipcilp"
 	set I0, 1
 	find_global P5, "Win32handle"
-	P6=new .ManagedStruct
+	P6=new 'ManagedStruct'
 	set P6, SIZEOF_DWORD
 	set I5, 32			# Char (space)
 	set I1, P1["xbuf"]
@@ -92,7 +92,7 @@
 	dlfunc P0, P2, "FillConsoleOutputAttribute", "ipiilp"
 	set I0, 1
 	find_global P5, "Win32handle"
-	P6= new .ManagedStruct
+	P6= new 'ManagedStruct'
 	set P6, SIZEOF_DWORD
 	set I5, P1["attr"]		# Attrib
 	set I1, P1["xbuf"]
@@ -202,8 +202,8 @@
 	dlfunc P9, P1,  "PeekConsoleInputA",  "ippip"
         dlfunc P10, P1, "ReadConsoleInputA", "ippip"
 	find_global P5, "Win32Inputhandle"
-	P6=new .ManagedStruct
-	P7=new .ManagedStruct
+	P6=new 'ManagedStruct'
+	P7=new 'ManagedStruct'
 	set P6, INPUT_BUFFER
 	set P7, SIZEOF_DWORD
 

Modified: trunk/languages/BASIC/compiler/compile.pl
==============================================================================
--- trunk/languages/BASIC/compiler/compile.pl	(original)
+++ trunk/languages/BASIC/compiler/compile.pl	Sat Jan 10 21:41:08 2009
@@ -173,7 +173,7 @@
                 exists \$I0, \$P1[\$S0]
                 eq \$I0, 0, DEBUGGER_DONE        # This breakpoint doesn't exist
         DEBUGGER_STOP:
-                \$P1=new .Hash
+                \$P1=new 'Hash'
 @debdecl                .set_arg \$P1
                 .set_arg debline
                 _DEBUGGER_STOP_FOR_REAL()
@@ -186,7 +186,7 @@
     print CODE<<FOO;
 .sub _DEBUG_INIT
         saveall
-        \$P0=new .ResizablePMCArray
+        \$P0=new 'ResizablePMCArray'
         find_global \$P1, "DEBUGGER"
 FOO
     foreach ( 0 .. @main::basic - 1 ) {
@@ -197,9 +197,9 @@
     print CODE<<FOO;
         \$P1["code"]= \$P0
         \$P1["step"]= 1   # Turn on stepping mode
-        \$P0=new .Hash
+        \$P0=new 'Hash'
         \$P1["break"]= \$P0  # Breakpoints
-        \$P0=new .ResizablePMCArray
+        \$P0=new 'ResizablePMCArray'
         \$P1["watch"]= \$P0  # Watch
         store_global "DEBUGGER", \$P1
 .end

• [svn:parrot] r35384 - trunk/languages/BASIC/compiler by coke