Browse Source

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 years ago
parent
commit
27230c6eb3
2 changed files with 3 additions and 3 deletions
  1. 1 1
      source/Debugging.Mod
  2. 2 2
      source/Strings.Mod

+ 1 - 1
source/Debugging.Mod

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

+ 2 - 2
source/Strings.Mod

@@ -359,8 +359,8 @@ BEGIN ConcatX (s, appendix, s)
 END AppendX;
 END AppendX;
 
 
 (** appends an integer number to a string *)
 (** 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
 BEGIN
 	IntToStr(num,number); Append(s,number);
 	IntToStr(num,number); Append(s,number);
 END AppendInt;
 END AppendInt;