2
0
Эх сурвалжийг харах

Prepared some signatures for 64-bit values

git-svn-id: https://svn.inf.ethz.ch/svn/lecturers/a2/trunk@7763 8c9fc860-2736-0410-a75d-ab315db34111
eth.negelef 7 жил өмнө
parent
commit
27230c6eb3

+ 1 - 1
source/Debugging.Mod

@@ -129,7 +129,7 @@ VAR
 		Log.Float( r, len );
 	END Float;
 
-	PROCEDURE Hex*( i,j: LONGINT );
+	PROCEDURE Hex*( i: HUGEINT; j: LONGINT );
 	BEGIN
 		Log.Hex( i, j );
 	END Hex;

+ 2 - 2
source/Strings.Mod

@@ -359,8 +359,8 @@ BEGIN ConcatX (s, appendix, s)
 END AppendX;
 
 (** appends an integer number to a string *)
-PROCEDURE AppendInt*(VAR s: ARRAY OF CHAR; num: LONGINT);
-VAR number: ARRAY 16 OF CHAR;
+PROCEDURE AppendInt*(VAR s: ARRAY OF CHAR; num: HUGEINT);
+VAR number: ARRAY 21 OF CHAR;
 BEGIN
 	IntToStr(num,number); Append(s,number);
 END AppendInt;