Fixed incmpatible interface

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@8073 8c9fc860-2736-0410-a75d-ab315db34111

source/BIOS.AMD64.Machine.Mod

@@ -765,9 +765,9 @@ BEGIN
 END GetDiskCHS;
 
 (** Get parameter values from Init string. If n = 0, return val = ASH(bx, 16) + ax, and if n = 1, return val = ASH(dx, 16) + cx, where ax, bx, cx, dx are the register values after the OBL boot loader or noboot.exe have executed the 16-bit x86 code in the Init string. *)
-PROCEDURE GetInit* (n: LONGINT; VAR val: HUGEINT);
+PROCEDURE GetInit* (n: LONGINT; VAR val: LONGINT);
 BEGIN
-	val := initRegs[n]
+	val := LONGINT(initRegs[n])
 END GetInit;
 
 (** Convert a string to an integer. Parameter i specifies where in the string scanning should begin (usually 0 in the first call). Scanning stops at the first non-valid character, and i returns the updated position. Parameter s is the string to be scanned. The value is returned as result, or 0 if not valid. Syntax: number = ["-"] digit {digit} ["H" | "h"] . digit = "0" | ... "9" | "A" .. "F" | "a" .. "f" . If the number contains any hexdecimal letter, or if it ends in "H" or "h", it is interpreted as hexadecimal. *)

source/EFI.AMD64.Machine.Mod

@@ -764,9 +764,9 @@ BEGIN
 END GetDiskCHS;
 
 (** Get parameter values from Init string. If n = 0, return val = ASH(bx, 16) + ax, and if n = 1, return val = ASH(dx, 16) + cx, where ax, bx, cx, dx are the register values after the OBL boot loader or noboot.exe have executed the 16-bit x86 code in the Init string. *)
-PROCEDURE GetInit* (n: LONGINT; VAR val: HUGEINT);
+PROCEDURE GetInit* (n: LONGINT; VAR val: LONGINT);
 BEGIN
-	val := initRegs[n]
+	val := LONGINT(initRegs[n])
 END GetInit;
 
 (** Convert a string to an integer. Parameter i specifies where in the string scanning should begin (usually 0 in the first call). Scanning stops at the first non-valid character, and i returns the updated position. Parameter s is the string to be scanned. The value is returned as result, or 0 if not valid. Syntax: number = ["-"] digit {digit} ["H" | "h"] . digit = "0" | ... "9" | "A" .. "F" | "a" .. "f" . If the number contains any hexdecimal letter, or if it ends in "H" or "h", it is interpreted as hexadecimal. *)