Spexeah/Asuro
Spexeah/Asuro
3
1
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed bugs in Strings.pas

Browse Source 
git-svn-id: https://spexeah.com:8443/svn/Asuro@234 6dbc8c32-bb84-406f-8558-d1cf31a0ab0c
This commit is contained in:
kieron 2017-10-23 19:01:50 +00:00
parent 94d7b621ec
commit 1606144c4c
7 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Asuro.iso
View File

Binary file not shown.

BIN
lib/kernel.ppu
View File

Binary file not shown.

BIN
lib/libpconsole.a
View File

Binary file not shown.

BIN
lib/libpmultiboot.a
View File

Binary file not shown.

BIN
lib/libpsystem.a
View File

Binary file not shown.

3
src/kernel.pas
View File

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

6
src/strings.pas
View File

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