Home Explore Help
Sign In
pascal
/
freepascal.compiler
mirror of https://gitlab.com/freepascal.org/fpc/source.git
2
0
Fork 0
Files Issues 0 Wiki
Browse Source

* reenabled the asm version of InitModeX

git-svn-id: trunk@40982 -
nickysn 6 years ago
parent
596c1e7efa
commit
81aea037ec
1 changed files with 1 additions and 1 deletions
Unified View Show Diff Stats
  1. 1 1
      packages/graph/src/msdos/graph.pp

+ 1 - 1
packages/graph/src/msdos/graph.pp
View File 

@@ -2387,7 +2387,6 @@ End;
 
  {************************************************************************}
 
  {************************************************************************}
 
 const CrtAddress: word = 0;
 
 const CrtAddress: word = 0;
 
 
 
-{$undef asmgraph}
 
 {$ifndef asmgraph}
 
 {$ifndef asmgraph}
 
  procedure InitModeX;
 
  procedure InitModeX;
 
    begin
 
    begin
 
@@ -2509,6 +2508,7 @@ const CrtAddress: word = 0;
 
 {$endif asmgraph}
 
 {$endif asmgraph}
 
 
 
 
 
+{$undef asmgraph}
 
  Function GetPixelX(X,Y: smallint): ColorType;
 
  Function GetPixelX(X,Y: smallint): ColorType;
 
 {$ifndef asmgraph}
 
 {$ifndef asmgraph}
 
  var offset: word;
 
  var offset: word;