浏览代码

* fixed runtime

peter 22 年之前
父节点
当前提交
dacd24d1d0
共有 1 个文件被更改,包括 1 次插入1 次删除
  1. 1 1
      tests/webtbs/tw2666.pp

+ 1 - 1
tests/webtbs/tw2666.pp

@@ -8,7 +8,7 @@
 
 
 function GetDynamicMethod(AClass: TClass; Index: Integer): Pointer; assembler;
 function GetDynamicMethod(AClass: TClass; Index: Integer): Pointer; assembler;
 asm
 asm
-        CALL    System.@Halt
+        CALL    System.@Paramcount
 end;
 end;
 
 
 begin
 begin