paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 20:09:10 +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
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 }