Browse Source

* rename result -> result_

peter 27 years ago
parent
commit
1c05265640
1 changed files with 13 additions and 10 deletions
  1. 13 10
      rtl/dos/ppi/ibm.ppi

+ 13 - 10
rtl/dos/ppi/ibm.ppi

@@ -13,11 +13,11 @@
  **********************************************************************}
 
 function DetectVESA:Boolean;
-var Result:longint;
+var Result_:longint;
 begin
-  Result:=Global_dos_alloc($0200);
-     Sel:=word(Result);
-     Seg:=word(Result shr 16);
+  Result_:=Global_dos_alloc($0200);
+     Sel:=word(Result_);
+     Seg:=word(Result_ shr 16);
      dregs.RealSP:=0;      dregs.RealSS:=0;
      dregs.RealES:=Seg;    dregs.RealEDI:=0;
      dregs.RealEAX:=$4F00; RealIntr($10,dregs);  
@@ -30,11 +30,11 @@ begin
 end;
 
 function GetVESAInfo( Mode : WORD ):Boolean;
-var Result:longint;
+var Result_:longint;
 begin
-  Result:=Global_dos_alloc($0200);
-     Sel:=word(Result);
-     Seg:=word(Result shr 16);
+  Result_:=Global_dos_alloc($0200);
+     Sel:=word(Result_);
+     Seg:=word(Result_ shr 16);
      dregs.RealECX:=mode;
      dregs.RealSP:=0;      dregs.RealSS:=0;
      dregs.RealES:=Seg;    dregs.RealEDI:=0;
@@ -166,8 +166,11 @@ end;
 
 {
   $Log$
-  Revision 1.1  1998-03-25 11:18:42  root
-  Initial revision
+  Revision 1.2  1998-10-09 10:26:36  peter
+    * rename result -> result_
+
+  Revision 1.1.1.1  1998/03/25 11:18:42  root
+  * Restored version
 
   Revision 1.6  1998/01/26 11:58:09  michael
   + Added log at the end