Преглед на файлове

Typo and whitespace fix.

Martijn Laan преди 6 години
родител
ревизия
72939c7b5a
променени са 1 файла, в които са добавени 1 реда и са изтрити 2 реда
  1. 1 2
      Projects/ScriptFunc_R.pas

+ 1 - 2
Projects/ScriptFunc_R.pas

@@ -1698,7 +1698,7 @@ function OtherProc(Caller: TPSExec; Proc: TPSExternalProcRec; Global, Stack: TPS
     ParamCount, SwapFirst, SwapLast: Integer;
     ParamCount, SwapFirst, SwapLast: Integer;
     S: tbtstring;
     S: tbtstring;
   begin
   begin
-    { Calculate parameter count of our proc, will will need this later. }
+    { Calculate parameter count of our proc, will need this later. }
     ProcRec := Caller.GetProcNo(P.ProcNo) as TPSInternalProcRec;
     ProcRec := Caller.GetProcNo(P.ProcNo) as TPSInternalProcRec;
     S := ProcRec.ExportDecl;
     S := ProcRec.ExportDecl;
     GRFW(S);
     GRFW(S);
@@ -1722,7 +1722,6 @@ function OtherProc(Caller: TPSExec; Proc: TPSExternalProcRec; Global, Stack: TPS
       http://www.sherlocksoftware.org/page.php?id=54 and
       http://www.sherlocksoftware.org/page.php?id=54 and
       https://github.com/thenickdude/InnoCallback. }
       https://github.com/thenickdude/InnoCallback. }
     Inliner := TASMInline.create;
     Inliner := TASMInline.create;
-
     try
     try
       Inliner.Pop(EAX); //get the retptr off the stack
       Inliner.Pop(EAX); //get the retptr off the stack