소스 검색

* Better signature for Initialize/Finalize dummies

Michaël Van Canneyt 2 년 전
부모
커밋
db729e4c2b
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      rtl/inc/system.fpd

+ 2 - 2
rtl/inc/system.fpd

@@ -97,8 +97,8 @@ Procedure Fail;
 Function TypeOf(T : TObjectType) : Pointer;
 Function IsManagedType(T : TType) : Boolean;
 Function IsConstValue(V : TAnyType) : Boolean;
-Procedure Initialize(Var T : TAnyType; ACount : SizeInt = 1);
-Procedure Finalize(Var T : TAnyType; ACount : SizeInt = 1);
+Procedure Initialize(Var T : TManagedType; ACount : SizeInt = 1);
+Procedure Finalize(Var T : TManagedType; ACount : SizeInt = 1);
 
 {$IFNDEF GO32V2}
 Var