From e5fd4f2702588459ee48635239e01c60600ab866 Mon Sep 17 00:00:00 2001 From: Wizzup? Date: Wed, 2 Dec 2009 00:30:05 +0000 Subject: [PATCH] Minor fix. var -> out so it won't throw a warning. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@262 3f818213-9676-44b0-a9b4-5e4c4e03d09d --- Units/MMLCore/dtmutil.pas | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/Units/MMLCore/dtmutil.pas b/Units/MMLCore/dtmutil.pas index b33c485..e004f70 100644 --- a/Units/MMLCore/dtmutil.pas +++ b/Units/MMLCore/dtmutil.pas @@ -35,7 +35,7 @@ Function pDTMToTDTM(Const DTM: pDTM): TDTM; Function tDTMTopDTM(Const DTM: TDTM): pDTM; Procedure PrintpDTM(tDTM : pDTM); -procedure initdtm(var d: pdtm; len: integer); +procedure initdtm(out d: pdtm; len: integer); function ValidMainPointBox(var dtm: pDTM; const x1, y1, x2, y2: Integer): TBox; function ValidMainPointBoxRotated(var dtm: pDTM; const x1, y1, x2, y2: Integer): TBox; function DTMConsistent(var dtm: pdtm): boolean; @@ -52,7 +52,7 @@ implementation uses math; // macro -procedure initdtm(var d: pdtm; len: integer); +procedure initdtm(out d: pdtm; len: integer); var i: integer; begin