Skip to content

Commit 0d5644d

Browse files
author
fnecati
committed
update
git-svn-id: https://www.ocp.inf.ethz.ch/svn/ocp/trunk@960 ee0346a5-954a-46bf-9309-d26f15615825
1 parent e767caf commit 0d5644d

File tree

1 file changed

+8
-10
lines changed

1 file changed

+8
-10
lines changed

FreeImage/FreeImageDll.Mod

+8-10
Original file line numberDiff line numberDiff line change
@@ -846,16 +846,14 @@ VAR
846846
(* miscellaneous algorithms -------------------------------- *)
847847
MultigridPoissonSolver-: PROCEDURE {PlatformCC} (Laplacian: FIBITMAP; ncycle:SIGNED32): FIBITMAP;
848848

849-
850-
PROCEDURE GetProcAddress*( lib: HostLibs.LibHandle; CONST procName: ARRAY OF CHAR; adr: ADDRESS );
851-
VAR res: BOOLEAN;
852-
BEGIN
853-
res := HostLibs.GetProcedure(lib, procName, adr);
854-
IF adr = NIL THEN
855-
KernelLog.String("NOT FOUND: "); KernelLog.String(procName); KernelLog.Ln;
856-
END;
857-
END GetProcAddress;
858-
849+
PROCEDURE GetProcAddress*( lib: HostLibs.LibHandle; CONST procName: ARRAY OF CHAR; adr: ADDRESS );
850+
VAR res: BOOLEAN;
851+
BEGIN
852+
res := HostLibs.GetProcedure(lib, procName, adr);
853+
IF adr = NIL THEN
854+
KernelLog.String("NOT FOUND: "); KernelLog.String(procName); KernelLog.Ln;
855+
END;
856+
END GetProcAddress;
859857

860858
PROCEDURE InitFunctions;
861859
VAR res: BOOLEAN;

0 commit comments

Comments
 (0)