Browse Source

+ enabled the asm version of PutPixelX

git-svn-id: trunk@41039 -
nickysn 6 years ago
parent
commit
933dd5b0cc
1 changed files with 1 additions and 4 deletions
  1. 1 4
      packages/graph/src/msdos/graph.pp

+ 1 - 4
packages/graph/src/msdos/graph.pp

@@ -2563,10 +2563,6 @@ const CrtAddress: word = 0;
     { Now Set Display Starting Address                     }
     { Now Set Display Starting Address                     }
   end;
   end;
 
 
-{$ifdef fpc}
-  {$undef asmgraph}
-{$endif fpc}
-
   begin
   begin
     Case page of
     Case page of
       0: SetVisibleStart(0);
       0: SetVisibleStart(0);
@@ -2673,6 +2669,7 @@ const CrtAddress: word = 0;
 {$endif asmgraph}
 {$endif asmgraph}
 
 
 
 
+{$undef asmgraph}
  Procedure DirectPutPixelX(X,Y: smallint);
  Procedure DirectPutPixelX(X,Y: smallint);
  { x,y -> must be in global coordinates. No clipping. }
  { x,y -> must be in global coordinates. No clipping. }
 {$ifndef asmgraph}
 {$ifndef asmgraph}