From 17fe4d048d809cb83cab67ed02bc2706bd0ef6ff Mon Sep 17 00:00:00 2001 From: mattias Date: Sat, 3 Mar 2012 19:04:36 +0000 Subject: [PATCH] lazutils: clean up: invalid compiler directive git-svn-id: trunk@35683 - --- components/lazutils/ttraster_sweep.inc | 24 +++++++++++------------- 1 file changed, 11 insertions(+), 13 deletions(-) diff --git a/components/lazutils/ttraster_sweep.inc b/components/lazutils/ttraster_sweep.inc index edd5d86125..4c9186cb73 100644 --- a/components/lazutils/ttraster_sweep.inc +++ b/components/lazutils/ttraster_sweep.inc @@ -9,7 +9,7 @@ (* *) (***********************************************************************) -procedure Vertical_Sweep_Init( var min, max : Int ); +procedure Vertical_Sweep_Init( var min, {%H-}max : Int ); begin case Cible.flow of @@ -28,11 +28,11 @@ end; -procedure Vertical_Sweep_Span( y : Int; +procedure Vertical_Sweep_Span( {%H-}y : Int; x1, x2 : TT_F26dot6; - Left, - Right : TProfile ); + {%H-}Left, + {%H-}Right : TProfile ); var e1, e2 : Longint; 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 (* Nothing, really *) end; @@ -320,8 +320,8 @@ end; procedure Horizontal_Sweep_Span( y : Int; x1, x2 : TT_F26dot6; - Left, - Right : TProfile ); + {%H-}Left, + {%H-}Right : TProfile ); var e1, e2 : Longint; 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 case Cible.flow of @@ -525,7 +525,7 @@ begin gray_max_x := -Cible.Cols; end; -procedure Vertical_Gray_Sweep_Init_HQ( var min, max : Int ); +procedure Vertical_Gray_Sweep_Init_HQ( var min, {%H-}max : Int ); begin case Cible.flow of @@ -672,8 +672,8 @@ end; procedure Horizontal_Gray_Sweep_Span( y : Int; x1, x2 : TT_F26dot6; - Left, - Right : TProfile ); + {%H-}Left, + {%H-}Right : TProfile ); var e1, e2 : TT_F26Dot6; j : Int; @@ -792,5 +792,3 @@ begin end; end; -{$F- End of dispatching functions definitions } -