* gets64bit was not returning an int64!

tests/test/cg/tcalcst1.pp

@@ -201,9 +201,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -846,7 +846,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:40  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst2.pp

@@ -191,9 +191,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -476,7 +476,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:40  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst3.pp

@@ -202,9 +202,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -847,7 +847,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:40  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst4.pp

@@ -202,9 +202,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: unt64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -847,7 +847,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:40  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst5.pp

@@ -202,9 +202,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -847,7 +847,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:40  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst6.pp

@@ -202,9 +202,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -847,7 +847,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst7.pp

@@ -202,9 +202,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -847,7 +847,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst8.pp

@@ -202,9 +202,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -847,7 +847,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:50  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:50  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalcst9.pp

@@ -203,9 +203,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -848,7 +848,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:51  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:51  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:36  peter

tests/test/cg/tcalval1.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1289,7 +1289,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:37  peter

tests/test/cg/tcalval2.pp

@@ -192,9 +192,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 

tests/test/cg/tcalval3.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1291,7 +1291,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:37  peter

tests/test/cg/tcalval4.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1291,7 +1291,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:37  peter

tests/test/cg/tcalval5.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1291,7 +1291,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:37  peter

tests/test/cg/tcalval6.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1291,7 +1291,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalval7.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1291,7 +1291,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalval8.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1291,7 +1291,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalval9.pp

@@ -204,9 +204,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -1291,7 +1291,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar1.pp

@@ -192,9 +192,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -815,7 +815,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar2.pp

@@ -192,9 +192,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -485,7 +485,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar3.pp

@@ -199,9 +199,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -822,7 +822,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar4.pp

@@ -201,9 +201,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -824,7 +824,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar5.pp

@@ -201,9 +201,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -824,7 +824,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar6.pp

@@ -201,9 +201,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -824,7 +824,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar7.pp

@@ -201,9 +201,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -824,7 +824,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar8.pp

@@ -201,12 +201,11 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
-
    function gets32real: single;
     begin
       gets32real:=RESULT_S32REAL;
@@ -824,7 +823,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/tcalvar9.pp

@@ -201,9 +201,9 @@ var
       gets32bit:=RESULT_S32BIT;
     end;
 
-   function gets64bit: longint;
+   function gets64bit: int64;
     begin
-      gets64bit:=RESULT_S32BIT;
+      gets64bit:=RESULT_S64BIT;
     end;
 
 
@@ -824,7 +824,10 @@ end.
 
 {
   $Log$
-  Revision 1.3  2002-09-07 15:40:55  peter
+  Revision 1.4  2002-09-22 09:08:41  carl
+    * gets64bit was not returning an int64!
+
+  Revision 1.3  2002/09/07 15:40:55  peter
     * old logs removed and tabs fixed
 
   Revision 1.2  2002/05/13 13:45:38  peter

tests/test/cg/texit.pp

@@ -88,7 +88,7 @@ var
   end;
 
 
-  function gets64bit : longint;
+  function gets64bit : int64;
    begin
      gets64bit := RET_S64BIT;
    end;
@@ -478,7 +478,10 @@ end.
 
 {
  $Log$
- Revision 1.4  2002-09-07 15:40:56  peter
+ Revision 1.5  2002-09-22 09:08:41  carl
+   * gets64bit was not returning an int64!
+
+ Revision 1.4  2002/09/07 15:40:56  peter
    * old logs removed and tabs fixed
 
  Revision 1.3  2002/09/01 14:45:54  peter