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

rtl-console/amicommon: trying harder to not break this for AROS.

git-svn-id: trunk@30539 -
Károly Balogh 10 years ago
parent
e6a73ed531
commit
1877ce5d07
1 changed files with 2 additions and 3 deletions
Unified View Show Diff Stats
  1. 2 3
      packages/rtl-console/src/amicommon/video.pp

+ 2 - 3
packages/rtl-console/src/amicommon/video.pp
View File 

@@ -228,11 +228,10 @@ end;
 
 
 
 
 
 procedure SysInitVideo;
 
 procedure SysInitVideo;
 
-{$IFNDEF AROS}
 
 var
 
 var
 
-  Counter, Counter2: LongInt;
 
+  Counter,
 
+  Counter2: LongInt;
 
   P: PWord;
 
   P: PWord;
 
-{$ENDIF}
 
 begin
 
 begin
 
 {$IFDEF MORPHOS}
 
 {$IFDEF MORPHOS}
 
   InitGraphicsLibrary;
 
   InitGraphicsLibrary;