Browse Source

Fix typo.

Martijn Laan 5 months ago
parent
commit
8af2494ca1
3 changed files with 9 additions and 9 deletions
  1. 1 1
      Projects/Compil32.dpr
  2. 1 1
      Projects/ISCC.dpr
  3. 7 7
      Projects/Src/Shared.CompilerInt.pas

+ 1 - 1
Projects/Compil32.dpr

@@ -203,7 +203,7 @@ end;
 
 
 begin
 begin
   {$IFNDEF STATICCOMPILER}
   {$IFNDEF STATICCOMPILER}
-  if ISCmplrLibary = 0 then begin
+  if ISCmplrLibrary = 0 then begin
     MessageBox(0, PChar(Format('Could not load %s.', [ISCmplrDLL])), nil, MB_OK or MB_ICONSTOP);
     MessageBox(0, PChar(Format('Could not load %s.', [ISCmplrDLL])), nil, MB_OK or MB_ICONSTOP);
     Halt(3);
     Halt(3);
   end;
   end;

+ 1 - 1
Projects/ISCC.dpr

@@ -561,7 +561,7 @@ begin
   end;
   end;
 
 
   {$IFNDEF STATICCOMPILER}
   {$IFNDEF STATICCOMPILER}
-  if ISCmplrLibary = 0 then begin
+  if ISCmplrLibrary = 0 then begin
     WriteStdErr(Format('Could not load %s.', [ISCmplrDLL]), True);
     WriteStdErr(Format('Could not load %s.', [ISCmplrDLL]), True);
     Halt(1);
     Halt(1);
   end;
   end;

+ 7 - 7
Projects/Src/Shared.CompilerInt.pas

@@ -18,7 +18,7 @@ const
   ISCmplrDLL = 'ISCmplr.dll';
   ISCmplrDLL = 'ISCmplr.dll';
 
 
 var
 var
-  ISCmplrLibary: HMODULE;
+  ISCmplrLibrary: HMODULE;
 
 
 { The ISDllCompileScript function begins compilation of a script. See the above
 { The ISDllCompileScript function begins compilation of a script. See the above
   description of the TCompileScriptParams record. Return value is one of the
   description of the TCompileScriptParams record. Return value is one of the
@@ -39,13 +39,13 @@ uses
 initialization
 initialization
   var FileName := AddBackslash(PathExtractPath(ParamStr(0))) + ISCmplrDLL;
   var FileName := AddBackslash(PathExtractPath(ParamStr(0))) + ISCmplrDLL;
   if TrustedFile(FileName) then begin
   if TrustedFile(FileName) then begin
-    ISCmplrLibary := SafeLoadLibrary(PChar(FileName), SEM_NOOPENFILEERRORBOX);
-    if ISCmplrLibary <> 0 then begin
-      ISDllCompileScript := GetProcAddress(ISCmplrLibary, 'ISDllCompileScriptW');
-      ISDllGetVersion := GetProcAddress(ISCmplrLibary, 'ISDllGetVersion');
+    ISCmplrLibrary := SafeLoadLibrary(PChar(FileName), SEM_NOOPENFILEERRORBOX);
+    if ISCmplrLibrary <> 0 then begin
+      ISDllCompileScript := GetProcAddress(ISCmplrLibrary, 'ISDllCompileScriptW');
+      ISDllGetVersion := GetProcAddress(ISCmplrLibrary, 'ISDllGetVersion');
       if not Assigned(ISDllCompileScript) or not Assigned(ISDllGetVersion) then begin
       if not Assigned(ISDllCompileScript) or not Assigned(ISDllGetVersion) then begin
-        FreeLibrary(ISCmplrLibary);
-        ISCmplrLibary := 0;
+        FreeLibrary(ISCmplrLibrary);
+        ISCmplrLibrary := 0;
         ISDllCompileScript := nil;
         ISDllCompileScript := nil;
         ISDllGetVersion := nil;
         ISDllGetVersion := nil;
       end;
       end;