paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 16:19:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

lazutils: clean up: invalid compiler directive

Browse Source 
git-svn-id: trunk@35683 -
This commit is contained in:
mattias 2012-03-03 19:04:36 +00:00
parent 2f4a32e176
commit 17fe4d048d
1 changed files with 11 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
components/lazutils/ttraster_sweep.inc
View File

@ -9,7 +9,7 @@
(* *) (* *)
(***********************************************************************) (***********************************************************************)
procedure Vertical_Sweep_Init( var min, max : Int ); procedure Vertical_Sweep_Init( var min, {%H-}max : Int );
begin begin
case Cible.flow of case Cible.flow of
@ -28,11 +28,11 @@ end;
procedure Vertical_Sweep_Span( y : Int; procedure Vertical_Sweep_Span( {%H-}y : Int;
x1, x1,
x2 : TT_F26dot6; x2 : TT_F26dot6;
Left, {%H-}Left,
Right : TProfile ); {%H-}Right : TProfile );
var var
e1, e2 : Longint; e1, e2 : Longint;
c1, c2 : Int; c1, c2 : Int;
@ -311,7 +311,7 @@ end;
(* *) (* *)
(***********************************************************************) (***********************************************************************)
procedure Horizontal_Sweep_Init( var min, max : Int ); procedure Horizontal_Sweep_Init( var {%H-}min, {%H-}max : Int );
begin begin
(* Nothing, really *) (* Nothing, really *)
end; end;
@ -320,8 +320,8 @@ end;
procedure Horizontal_Sweep_Span( y : Int; procedure Horizontal_Sweep_Span( y : Int;
x1, x1,
x2 : TT_F26dot6; x2 : TT_F26dot6;
Left, {%H-}Left,
Right : TProfile ); {%H-}Right : TProfile );
var var
e1, e2 : Longint; e1, e2 : Longint;
c1 : Int; c1 : Int;
@ -506,7 +506,7 @@ end;
(* *) (* *)
(***********************************************************************) (***********************************************************************)
procedure Vertical_Gray_Sweep_Init( var min, max : Int ); procedure Vertical_Gray_Sweep_Init( var min, {%H-}max : Int );
begin begin
case Cible.flow of case Cible.flow of
@ -525,7 +525,7 @@ begin
gray_max_x := -Cible.Cols; gray_max_x := -Cible.Cols;
end; end;
procedure Vertical_Gray_Sweep_Init_HQ( var min, max : Int ); procedure Vertical_Gray_Sweep_Init_HQ( var min, {%H-}max : Int );
begin begin
case Cible.flow of case Cible.flow of
@ -672,8 +672,8 @@ end;
procedure Horizontal_Gray_Sweep_Span( y : Int; procedure Horizontal_Gray_Sweep_Span( y : Int;
x1, x1,
x2 : TT_F26dot6; x2 : TT_F26dot6;
Left, {%H-}Left,
Right : TProfile ); {%H-}Right : TProfile );
var var
e1, e2 : TT_F26Dot6; e1, e2 : TT_F26Dot6;
j : Int; j : Int;
@ -792,5 +792,3 @@ begin
end; end;
end; end;
{$F- End of dispatching functions definitions }