Martijn Laan преди 4 години
родител
ревизия
08c6beb88c
променени са 1 файла, в които са добавени 1 реда и са изтрити 1 реда
  1. 1 1
      Projects/ScriptFunc_C.pas

+ 1 - 1
Projects/ScriptFunc_C.pas

@@ -34,7 +34,7 @@ procedure ScriptFuncLibraryRegister_C(ScriptCompiler: TPSPascalCompiler;
 
 
   procedure RegisterType(const Name, Value: tbtstring);
   procedure RegisterType(const Name, Value: tbtstring);
   begin
   begin
-    ScriptCompiler.AddTypes(Name, Value);
+    ScriptCompiler.AddTypeS(Name, Value);
   end;
   end;
 
 
   procedure RegisterFunctionTable(const FunctionTable: array of tbtstring);
   procedure RegisterFunctionTable(const FunctionTable: array of tbtstring);