moparisthebest/Simba
1
0
Fork 0
mirror of https://github.com/moparisthebest/Simba synced 2024-11-22 01:02:17 -05:00
Code Issues Releases Wiki Activity

Merge branch 'ExportTypes' of https://github.com/Dgby714/Simba into Dgby714-ExportTypes

Browse Source
This commit is contained in:
Merlijn Wajer 2010-12-26 13:37:46 +01:00
commit 33df4011e4
1 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Units/MMLAddon/plugins.pas
View File

@ -123,17 +123,14 @@ begin
begin begin
if (GetTypeInfo(I, Plugins[NumPlugins].Types[I].TypeName, Plugins[NumPlugins].Types[I].TypeDef) < 0) then if (GetTypeInfo(I, Plugins[NumPlugins].Types[I].TypeName, Plugins[NumPlugins].Types[I].TypeDef) < 0) then
begin begin
WriteLn('Failed...');
Plugins[NumPlugins].Types[I].TypeName := ''; Plugins[NumPlugins].Types[I].TypeName := '';
Plugins[NumPlugins].Types[I].TypeDef := ''; Plugins[NumPlugins].Types[I].TypeDef := '';
end; end;
WriteLn(Plugins[NumPlugins].Types[I].TypeName + ' = ' + Plugins[NumPlugins].Types[I].TypeDef);
end; end;
end; end;
end; end;
ArrC := GetFuncCount(); ArrC := GetFuncCount();
WriteLn(ArrC);
Plugins[NumPlugins].MethodLen := ArrC; Plugins[NumPlugins].MethodLen := ArrC;
SetLength(Plugins[NumPlugins].Methods, ArrC); SetLength(Plugins[NumPlugins].Methods, ArrC);
@ -142,7 +139,6 @@ begin
begin; begin;
if (GetFuncInfo(I, pntr, PD) < 0) then if (GetFuncInfo(I, pntr, PD) < 0) then
Continue; Continue;
WriteLn(PD);
Plugins[NumPlugins].Methods[I].FuncPtr := pntr; Plugins[NumPlugins].Methods[I].FuncPtr := pntr;
Plugins[NumPlugins].Methods[I].FuncStr := PD; Plugins[NumPlugins].Methods[I].FuncStr := PD;