Ver código fonte

* GetMaxMode() now returns a smallint instead of a word (since the type
of the modenumbers is smallint too) (merged)

Jonas Maebe 24 anos atrás
pai
commit
5bf4a7f9fc
2 arquivos alterados com 13 adições e 4 exclusões
  1. 7 2
      rtl/inc/graph/graphh.inc
  2. 6 2
      rtl/inc/graph/modes.inc

+ 7 - 2
rtl/inc/graph/graphh.inc

@@ -1,5 +1,6 @@
 {
     $Id$
+
     This file is part of the Free Pascal run time library.
     Copyright (c) 1999-2000 by the Free Pascal development team
 
@@ -731,7 +732,7 @@ Function  GraphResult: smallint;
 function  GetModeName(ModeNumber: smallint): string;
 procedure SetGraphMode(Mode: smallint);
 function GetGraphMode: smallint;
-function GetMaxMode: word;
+function GetMaxMode: smallint;
 procedure RestoreCrtMode;
 procedure GetModeRange(GraphDriver: smallint; var LoMode, HiMode: smallint);
 Function  GetX: smallint;
@@ -807,7 +808,11 @@ Function GetDriverName: string;
 
 {
   $Log$
-  Revision 1.4  2000-08-12 12:27:14  jonas
+  Revision 1.5  2001-06-01 11:13:22  jonas
+    * GetMaxMode() now returns a smallint instead of a word (since the type
+      of the modenumbers is smallint too) (merged)
+
+  Revision 1.4  2000/08/12 12:27:14  jonas
     + setallpalette hook
     + setallpalette implemented for standard vga and VESA 2.0+
 

+ 6 - 2
rtl/inc/graph/modes.inc

@@ -343,7 +343,7 @@ end;
       GetGraphMode := IntCurrentMode;
      end;
 
-   function GetMaxMode: word;
+   function GetMaxMode: smallint;
    { I know , i know, this routine is very slow, and it would }
    { be much easier to sort the linked list of possible modes }
    { instead of doing this, but I'm lazy!! And anyways, the   }
@@ -598,7 +598,11 @@ end;
 
 {
   $Log$
-  Revision 1.6  2001-04-14 16:06:03  jonas
+  Revision 1.7  2001-06-01 11:13:22  jonas
+    * GetMaxMode() now returns a smallint instead of a word (since the type
+      of the modenumbers is smallint too) (merged)
+
+  Revision 1.6  2001/04/14 16:06:03  jonas
     * fixed problem with new modes system (reported by Vladimir Ravodin) (merged)
 
   Revision 1.5  2001/04/13 23:49:48  peter