Permalink
Browse files

got some of the symbol framework (in sml mostly) to exist.

  • Loading branch information...
lxmonk committed Feb 11, 2012
1 parent 573c3f0 commit 52e9679cf525f598bad4397d377331146d59453b
Showing with 388 additions and 62 deletions.
  1. +1 −0 .gitignore
  2. +2 −10 hw4/arch/Intro.c
  3. +2 −1 hw4/arch/cisc.h
  4. +310 −42 hw4/arch/compiler.sml
  5. +42 −9 hw4/arch/inFile.scm
  6. +28 −0 hw4/arch/lib/scheme/make_sob_symbol.asm
  7. +3 −0 hw4/arch/scheme.lib
View
@@ -32,3 +32,4 @@ build/
/hw4/arch/gn
/hw3/.#hw32.sml
/hw4/arch/working_param.c
+/hw4/arch/in0.scm
View
@@ -41,15 +41,7 @@ int main()
CONTINUE:
- /* initialize the 4 singletons */
- PUSH(IMM(1));
- CALL(MAKE_SOB_BOOL); /* define SOB_BOOL_TRUE */
- DROP(1);
- PUSH(IMM(0));
- CALL(MAKE_SOB_BOOL); /* define SOB_BOOL_FALSE */
- DROP(1);
- CALL(MAKE_SOB_NIL); /* define nil */
- CALL(MAKE_SOB_VOID);
-
START_OF_GENERATED_CODE:
+
+ /* code for auto generated constants */
View
@@ -23,7 +23,7 @@ typedef struct Machine {
long mem[RAM_SIZE];
long stack[STACK_SIZE];
long r0, r1, r2, r3, r4, r5, r6, r7,
- r8, r9, r10, r11, r12, r13, r14, r15;
+ r8, r9, r10, r11, r12, r13, r14, r15, r16;
long sp, fp;
long test_result;
} Machine;
@@ -52,6 +52,7 @@ extern Machine *machine;
#define R13 (M(r13))
#define R14 (M(r14))
#define R15 (M(r15))
+#define R16 (M(r16))
#define SP (M(sp))
#define FP (M(fp))
Oops, something went wrong.

0 comments on commit 52e9679

Please sign in to comment.