Hashmap added.

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

src/include/md5.pas

@@ -39,6 +39,8 @@ procedure MD5Update(context : PMD5Context; buffer : PuInt8; bufferLen : uInt32);
 function MD5Final(context : PMD5Context) : PMD5Digest;
 function MD5Buffer(buffer : PuInt8; bufferLen : uInt32) : PMD5Digest;
 
+function MD5To32(Input : PuInt128) : uint32;
+
 implementation
 
 procedure Invert(Source : PuInt8; Dest : PuInt32; Count : uInt32);
@@ -234,4 +236,13 @@ begin
     kfree(void(context));
 end;
 
+function MD5To32(Input : PuInt128) : uint32;
+var
+    MD5To64 : uint64;
+    i       : uint8;
+
+begin
+    MD5To32:= Input^.DWords[0] xor Input^.DWords[1] xor Input^.DWords[2] xor Input^.DWords[3];
+end;
+
 end.

src/include/multiboot.pas

@@ -43,7 +43,7 @@ type
           vbe_interface_seg : uint16;
           vbe_interface_off : uint16;
           vbe_interface_len : uint16;
-          framebuffer_addr : uint64;
+          framebuffer_addr  : uint64;
           framebuffer_pitch : uint32;
           framebuffer_width : uint32;
           framebuffer_height: uint32;

src/include/system.pas

@@ -28,6 +28,22 @@ type
     uInt16 = WORD;
     uInt32 = DWORD;
     uInt64 = QWORD;
+    uint128 = packed record
+      case Integer of
+        0: (
+            Hi : uint64;
+            Lo : uint64;
+        );
+        1: (
+            DWords : array [0..3] of uint32;
+        );
+        2: (
+            Words : array [0..7] of uint16;
+        );
+        3: (
+            Bytes : array [0..15] of uint8;
+        );
+    end;
 
     sInt8 = shortint;
     sInt16 = smallint;
@@ -42,6 +58,7 @@ type
     PuInt16 = ^uInt16;
     PuInt32 = ^uInt32;
     PuInt64 = ^uInt64;
+    PuInt128 = ^uint128;
 
     PsInt8 = ^sInt8;
     PsInt16 = ^sInt16;