Fixed bugs in Strings.pas

git-svn-id: https://spexeah.com:8443/svn/Asuro@234 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
2017-10-23 19:01:50 +00:00
parent 94d7b621ec
commit 1606144c4c
7 changed files with 5 additions and 4 deletions
--- a/Asuro.iso
+++ b/Asuro.iso
--- a/lib/kernel.ppu
+++ b/lib/kernel.ppu
--- a/lib/libpconsole.a
+++ b/lib/libpconsole.a
--- a/lib/libpmultiboot.a
+++ b/lib/libpmultiboot.a
--- a/lib/libpsystem.a
+++ b/lib/libpsystem.a
--- a/src/kernel.pas
+++ b/src/kernel.pas
@@ -29,7 +29,8 @@ uses
     tss,
     scheduler,
     PCI,
-     Terminal;
+     Terminal,
+     strings;
 
 procedure kmain(mbinfo: Pmultiboot_info_t; mbmagic: uint32); stdcall;
 
--- a/src/strings.pas
+++ b/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;