fix return value type

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

source/I386.UsbKeyboard.Mod

@@ -486,7 +486,7 @@ END UsbScanTab;
 
 (* Maps USB key code to X11 keysym (/usr/include/X11/keysymdef.h). *)
 PROCEDURE KeySym*(VAR ch : CHAR; VAR leds : SET): LONGINT;
-VAR res: WORD;
+VAR res: LONGINT;
 BEGIN
 	CASE ch OF
 		028X: res := Inputs.KsReturn (* Return *)
@@ -557,7 +557,7 @@ BEGIN
 END KeySym;
 
 PROCEDURE GetModifierKeysym(modifier : LONGINT) : LONGINT;
-VAR res : WORD;
+VAR res : LONGINT;
 BEGIN
 	CASE modifier OF
 		|Inputs.LeftCtrl: res := Inputs.KsControlL;