Fixed bugs in Strings.pas

git-svn-id: https://spexeah.com:8443/svn/Asuro@234 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c

src/kernel.pas

@@ -29,7 +29,8 @@ uses
      tss,
      scheduler,
      PCI,
-     Terminal;
+     Terminal,
+     strings;
  
 procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall;
  

src/strings.pas

@@ -3,8 +3,8 @@ unit strings;
 interface
 
 uses
-    system,
-    util;
+    util,
+    lmemorymanager;
 
 function stringToUpper(str : pchar) : pchar;
 function stringToLower(str : pchar) : pchar;
@@ -54,7 +54,7 @@ var
 begin
     size:= stringSize(str);
     result:= stringNew(size);
-    memcpy(str, result, size);    
+    memcpy(uint32(str), uint32(result), size);    
 end;
 
 function stringNew(size : uint32) : pchar;