Clinton A Pierce wrote:
>
> At 09:17 AM 5/26/2002 +0200, Sebastian Bergmann wrote:
> >Jeff wrote:
> > > newasm has been completely rewritten. Three surprises lurk within.
> >
> >sb@wopr-mobile:/usr/src/parrot> newasm
> >Can't locate auto/Parrot/PakFile2/autosplit.ix
>
> Go into lib/Parrot and perl Makfile.pl && make and then try it
> again. Works okay for me.
>
> Well, almost. Still can't get BASIC to assemble. Looking at that probably
> tonight...
No need. diff attached :) With the included patches it runs eliza.bas. I
probably should have attached a log :)
(If the diff doesn't make it to the list, email me privately)
The 'PerlHash' and 'PerlArray' definitions were removed along with
macros. Until the macro processor is added back in you'll have to use
numeric references, unfortunately. I'll fix this problem later this
weekend, hopefully after adding a perl-only version of the bytecode
packer.
--
Jeff <[EMAIL PROTECTED]>
Only in parrot/languages/BASIC/: basic.pbc
diff -ru parrot/languages/BASIC/basic.pl parrot_foo/languages/BASIC/basic.pl
--- parrot/languages/BASIC/basic.pl Sun May 26 13:34:17 2002
+++ parrot_foo/languages/BASIC/basic.pl Fri May 24 22:36:14 2002
@@ -20,8 +20,8 @@
# I5 Stack Depth?
- new P20, 6 # PerlHash # PerlHash # Numerics
- new P21, 6 # PerlHash # Alphabetics.
+ new P20, PerlHash # PerlHash # Numerics
+ new P21, PerlHash # Alphabetics.
time I24 # Seed the random number generator
branch MAIN
diff -ru parrot/languages/BASIC/basicvar.pasm parrot_foo/languages/BASIC/basicvar.pasm
--- parrot/languages/BASIC/basicvar.pasm Sun May 26 13:36:25 2002
+++ parrot_foo/languages/BASIC/basicvar.pasm Wed May 22 15:59:59 2002
@@ -245,9 +245,9 @@
CINIT: save I5
# Initialize program area
- new P22, 6 # PerlHash # The lines themselves (Keyed on Line #)
- new P23, 6 # PerlHash # Pointers from the lines to the array (Keyed on
Line #)
- new P24, 5 # PerlArray # Array of line numbers
+ new P22, PerlHash # The lines themselves (Keyed on Line #)
+ new P23, PerlHash # Pointers from the lines to the array (Keyed on Line
+#)
+ new P24, PerlArray # Array of line numbers
set I28, -1
CENDLOAD: # Entry point for LOAD
diff -ru parrot/languages/BASIC/expr.pasm parrot_foo/languages/BASIC/expr.pasm
--- parrot/languages/BASIC/expr.pasm Sun May 26 13:36:45 2002
+++ parrot_foo/languages/BASIC/expr.pasm Wed May 22 13:22:22 2002
@@ -66,7 +66,7 @@
popi
ret
INITOPSTACK:
- new P25, 5 # PerlArray
+ new P25, PerlArray
set_keyed P25, 0, 0
ret
diff -ru parrot/languages/BASIC/instructions.pasm
parrot_foo/languages/BASIC/instructions.pasm
--- parrot/languages/BASIC/instructions.pasm Sun May 26 13:37:21 2002
+++ parrot_foo/languages/BASIC/instructions.pasm Fri May 24 22:36:14 2002
@@ -959,9 +959,9 @@
bsr CLEAR
restore I10
# Initialize program area
- new P22, 6 # PerlHash # The lines themselves (Keyed on Line #)
- new P23, 6 # PerlHash # Pointers from the lines to the array (Keyed on
Line #)
- new P24, 5 # PerlArray # Array of line numbers
+ new P22, PerlHash # The lines themselves (Keyed on Line #)
+ new P23, PerlHash # Pointers from the lines to the array (Keyed on Line
+#)
+ new P24, PerlArray # Array of line numbers
set I28, -1 # Array length
set I22, 1 # Please stop executing
save I28
@@ -1034,9 +1034,9 @@
eq I20, 1, ENDLINES2
# Initialize program area
- new P22, 6 # PerlHash # The lines themselves (Keyed on Line #)
- new P23, 6 # PerlHash # Pointers from the lines to the array (Keyed on
Line #)
- new P24, 5 # PerlArray # Array of line numbers
+ new P22, PerlHash # The lines themselves (Keyed on Line #)
+ new P23, PerlHash # Pointers from the lines to the array (Keyed on Line
+#)
+ new P24, PerlArray # Array of line numbers
set I28, -1
ENDLINES2:
Only in parrot/languages/BASIC/: merged_basic.pasm
