Просмотр исходного кода

+ enabled the asm version of PutPixelX

git-svn-id: trunk@41039 -
nickysn 6 лет назад
Родитель
Сommit
933dd5b0cc
1 измененных файлов с 1 добавлено и 4 удалено
  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                     }
   end;
 
-{$ifdef fpc}
-  {$undef asmgraph}
-{$endif fpc}
-
   begin
     Case page of
       0: SetVisibleStart(0);
@@ -2673,6 +2669,7 @@ const CrtAddress: word = 0;
 {$endif asmgraph}
 
 
+{$undef asmgraph}
  Procedure DirectPutPixelX(X,Y: smallint);
  { x,y -> must be in global coordinates. No clipping. }
 {$ifndef asmgraph}