From 9e75ab37609167bfe83755481471d85727bd7508 Mon Sep 17 00:00:00 2001
From: "zik.saleeba" <zik.saleeba@21eae674-98b7-11dd-bd71-f92a316d2d60>
Date: Wed, 8 Apr 2009 12:00:45 +0000
Subject: [PATCH] Temporarily added some test for the parameter passing problem
 Howard found.

git-svn-id: http://picoc.googlecode.com/svn/trunk@222 21eae674-98b7-11dd-bd71-f92a316d2d60
---
 expression.c   |  3 +++
 library_unix.c | 68 ++++++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 71 insertions(+)

diff --git a/expression.c b/expression.c
index 48c4a97..cca1739 100644
--- a/expression.c
+++ b/expression.c
@@ -274,7 +274,10 @@ int ExpressionParse(struct ParseState *Parser, struct Value **Result)
                         ProgramFail(Parser, "can't assign incompatible types");
 
                     if (TotalValue->Typ->Base != TypeArray)
+                    {
+                        // XXX printf("assigning to 0x%lx\n", (long)TotalValue->Val);
                         memcpy((void *)TotalValue->Val, (void *)CurrentValue->Val, TotalValue->Typ->Sizeof);
+                    }
                     else
                     { /* array assignment */
                         if (TotalValue->Val->Array.Size != CurrentValue->Val->Array.Size)
diff --git a/library_unix.c b/library_unix.c
index 47b455b..b39071f 100644
--- a/library_unix.c
+++ b/library_unix.c
@@ -41,10 +41,78 @@ void ShowComplex(struct ParseState *Parser, struct Value *ReturnValue, struct Va
     PrintInt(ComplexPart, PlatformPutc);
 }
 
+void Cpeek(struct ParseState *Parser, struct Value *ReturnValue, struct Value **Param, int NumArgs)
+{
+    int size, ptr;
+    unsigned char *cp;
+    unsigned short *sp;
+    unsigned int *ip;
+    
+    /* x = peek(addr, size);
+       mask ptr to align with word size */
+    ptr = Param[0]->Val->Integer;
+    size = Param[1]->Val->Integer;
+    switch (size) {
+        case 1: // char *
+            cp = (unsigned char *)ptr;
+            ReturnValue->Val->Integer = (int)((unsigned int)*cp);
+            break;
+        case 2: // short *
+            sp = (unsigned short *)(ptr & 0xFFFFFFFE);  // align with even boundary
+            ReturnValue->Val->Integer = (int)((unsigned short)*sp);
+            break;
+        case 4: // int *
+            ip = (unsigned int *)(ptr & 0xFFFFFFFC);  // aling with quad boundary
+            ReturnValue->Val->Integer = 0 /*(int)*ip*/;
+            break;
+        default:
+            ReturnValue->Val->Integer = 0;
+            break;
+    }
+}
+
+void Crandom(struct ParseState *Parser, struct Value *ReturnValue, struct Value **Param, int NumArgs)
+{
+    ReturnValue->Val->Integer = 1234;
+}
+
+void Cpoke(struct ParseState *Parser, struct Value *ReturnValue, struct Value **Param, int NumArgs)
+{
+    int size, ptr, val;
+    unsigned char *cp;
+    unsigned short *sp;
+    unsigned int *ip;
+    
+    /* x = poke(addr, size, val);
+       mask ptr to align with word size */
+    ptr = Param[0]->Val->Integer;
+    size = Param[1]->Val->Integer;
+    val = Param[2]->Val->Integer;
+    switch (size) {
+        case 1: // char *
+            cp = (unsigned char *)ptr;
+            *cp = (unsigned char)(val & 0x000000FF);
+            break;
+        case 2: // short *
+            sp = (unsigned short *)(ptr & 0xFFFFFFFE);
+            *sp = (unsigned short)(val & 0x0000FFFF);
+            break;
+        case 4: // int *
+            ip = (unsigned int *)(ptr & 0xFFFFFFFC);
+            *ip = val;
+            break;
+        default: // don't bother with bad value
+            break;
+    }
+}
+
 /* list of all library functions and their prototypes */
 struct LibraryFunction PlatformLibrary[] =
 {
     { ShowComplex,   "void ShowComplex(struct complex *)" },
+    { Cpeek,        "int peak(int, int)" },
+    { Cpoke,        "void poke(int, int, int)" },
+    { Crandom,      "int random(int, int)" },
     { NULL,         NULL }
 };