Skip to content

Commit 7b9ada2

Browse files
pyscripterpyscripter
committed
ob_refcnt should be unsigned integer (NativeUInt)
1 parent 4025534 commit 7b9ada2

File tree

4 files changed

+26
-26
lines changed

4 files changed

+26
-26
lines changed

‎Demos/Demo06/Unit1.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -42,7 +42,7 @@ TForm1 = class(TForm)
4242
end;
4343

4444
PyPointRec = record
45-
ob_refcnt : NativeInt;
45+
ob_refcnt : NativeUInt;
4646
ob_type : PPyTypeObject;
4747
po_x : Integer;
4848
po_y : Integer;

‎Demos/Demo07/Unit1.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -48,7 +48,7 @@ TForm1 = class(TForm)
4848
end;
4949

5050
PyPointRec = record
51-
ob_refcnt : NativeInt;
51+
ob_refcnt : NativeUInt;
5252
ob_type : PPyTypeObject;
5353
po_x : Integer;
5454
po_y : Integer;

‎Demos/FPC/Demo06/Unit1.pas

+1-1
Original file line numberDiff line numberDiff line change
@@ -47,7 +47,7 @@ TForm1 = class(TForm)
4747
end;
4848

4949
PyPointRec = record
50-
ob_refcnt : NativeInt;
50+
ob_refcnt : NativeUInt;
5151
ob_type : PPyTypeObject;
5252
po_x : Integer;
5353
po_y : Integer;

‎Source/PythonEngine.pas

+23-23
Original file line numberDiff line numberDiff line change
@@ -474,7 +474,7 @@ TPythonVersionProp = record
474474
end;
475475

476476
PyObject = {$IFDEF CPUX86}packed{$ENDIF} record
477-
ob_refcnt: NativeInt;
477+
ob_refcnt: NativeUInt;
478478
ob_type: PPyTypeObject;
479479
end;
480480

@@ -485,7 +485,7 @@ TPythonVersionProp = record
485485
end;
486486

487487
PySliceObject = {$IFDEF CPUX86}packed{$ENDIF} record
488-
ob_refcnt: NativeInt;
488+
ob_refcnt: NativeUInt;
489489
ob_type: PPyTypeObject;
490490
start, stop, step: PPyObject;
491491
end;
@@ -544,7 +544,7 @@ TPythonVersionProp = record
544544
PPyDescrObject = ^PyDescrObject;
545545
PyDescrObject = {$IFDEF CPUX86}packed{$ENDIF} record
546546
// Start of the Head of an object
547-
ob_refcnt : NativeInt;
547+
ob_refcnt : NativeUInt;
548548
ob_type : PPyTypeObject;
549549
// End of the Head of an object
550550
d_type : PPyTypeObject;
@@ -555,7 +555,7 @@ TPythonVersionProp = record
555555
PyMethodDescrObject = {$IFDEF CPUX86}packed{$ENDIF} record
556556
// Start of PyDescr_COMMON
557557
// Start of the Head of an object
558-
ob_refcnt : NativeInt;
558+
ob_refcnt : NativeUInt;
559559
ob_type : PPyTypeObject;
560560
// End of the Head of an object
561561
d_type : PPyTypeObject;
@@ -568,7 +568,7 @@ TPythonVersionProp = record
568568
PyMemberDescrObject = {$IFDEF CPUX86}packed{$ENDIF} record
569569
// Start of PyDescr_COMMON
570570
// Start of the Head of an object
571-
ob_refcnt : NativeInt;
571+
ob_refcnt : NativeUInt;
572572
ob_type : PPyTypeObject;
573573
// End of the Head of an object
574574
d_type : PPyTypeObject;
@@ -581,7 +581,7 @@ TPythonVersionProp = record
581581
PyGetSetDescrObject = {$IFDEF CPUX86}packed{$ENDIF} record
582582
// Start of PyDescr_COMMON
583583
// Start of the Head of an object
584-
ob_refcnt : NativeInt;
584+
ob_refcnt : NativeUInt;
585585
ob_type : PPyTypeObject;
586586
// End of the Head of an object
587587
d_type : PPyTypeObject;
@@ -594,7 +594,7 @@ TPythonVersionProp = record
594594
PyWrapperDescrObject = {$IFDEF CPUX86}packed{$ENDIF} record
595595
// Start of PyDescr_COMMON
596596
// Start of the Head of an object
597-
ob_refcnt : NativeInt;
597+
ob_refcnt : NativeUInt;
598598
ob_type : PPyTypeObject;
599599
// End of the Head of an object
600600
d_type : PPyTypeObject;
@@ -607,7 +607,7 @@ TPythonVersionProp = record
607607
PPyModuleDef_Base = ^PyModuleDef_Base;
608608
PyModuleDef_Base = {$IFDEF CPUX86}packed{$ENDIF} record
609609
// Start of the Head of an object
610-
ob_refcnt : NativeInt;
610+
ob_refcnt : NativeUInt;
611611
ob_type : PPyTypeObject;
612612
// End of the Head of an object
613613
m_init : function( ) : PPyObject; cdecl;
@@ -667,7 +667,7 @@ PyBufferProcs = record
667667
// object.h
668668

669669
PyTypeObject = {$IFDEF CPUX86}packed{$ENDIF} record
670-
ob_refcnt: NativeInt;
670+
ob_refcnt: NativeUInt;
671671
ob_type: PPyTypeObject;
672672
ob_size: NativeInt; // Number of items in variable part
673673
tp_name: PAnsiChar; // For printing
@@ -814,7 +814,7 @@ PyBufferProcs = record
814814
type
815815
PyDateTime_Delta = {$IFDEF CPUX86}packed{$ENDIF} record
816816
// Start of the Head of an object
817-
ob_refcnt : NativeInt;
817+
ob_refcnt : NativeUInt;
818818
ob_type : PPyTypeObject;
819819
// End of the Head of an object
820820
hashcode : NativeInt; // -1 when unknown
@@ -826,7 +826,7 @@ PyBufferProcs = record
826826

827827
PyDateTime_TZInfo = {$IFDEF CPUX86}packed{$ENDIF} record // a pure abstract base clase
828828
// Start of the Head of an object
829-
ob_refcnt : NativeInt;
829+
ob_refcnt : NativeUInt;
830830
ob_type : PPyTypeObject;
831831
// End of the Head of an object
832832
end;
@@ -849,7 +849,7 @@ PyBufferProcs = record
849849
_PyDateTime_BaseTZInfo = {$IFDEF CPUX86}packed{$ENDIF} record
850850
// Start of _PyTZINFO_HEAD
851851
// Start of the Head of an object
852-
ob_refcnt : NativeInt;
852+
ob_refcnt : NativeUInt;
853853
ob_type : PPyTypeObject;
854854
// End of the Head of an object
855855
hashcode : Integer;
@@ -873,7 +873,7 @@ PyBufferProcs = record
873873
// Start of _PyDateTime_TIMEHEAD
874874
// Start of _PyTZINFO_HEAD
875875
// Start of the Head of an object
876-
ob_refcnt : NativeInt;
876+
ob_refcnt : NativeUInt;
877877
ob_type : PPyTypeObject;
878878
// End of the Head of an object
879879
hashcode : Integer;
@@ -888,7 +888,7 @@ PyBufferProcs = record
888888
// Start of _PyDateTime_TIMEHEAD
889889
// Start of _PyTZINFO_HEAD
890890
// Start of the Head of an object
891-
ob_refcnt : NativeInt;
891+
ob_refcnt : NativeUInt;
892892
ob_type : PPyTypeObject;
893893
// End of the Head of an object
894894
hashcode : Integer;
@@ -910,7 +910,7 @@ PyBufferProcs = record
910910
PyDateTime_Date = {$IFDEF CPUX86}packed{$ENDIF} record
911911
// Start of _PyTZINFO_HEAD
912912
// Start of the Head of an object
913-
ob_refcnt : NativeInt;
913+
ob_refcnt : NativeUInt;
914914
ob_type : PPyTypeObject;
915915
// End of the Head of an object
916916
hashcode : Integer;
@@ -929,7 +929,7 @@ PyBufferProcs = record
929929
_PyDateTime_BaseDateTime = {$IFDEF CPUX86}packed{$ENDIF} record // hastzinfo false
930930
// Start of _PyTZINFO_HEAD
931931
// Start of the Head of an object
932-
ob_refcnt : NativeInt;
932+
ob_refcnt : NativeUInt;
933933
ob_type : PPyTypeObject;
934934
// End of the Head of an object
935935
hashcode : Integer;
@@ -943,7 +943,7 @@ PyBufferProcs = record
943943
// Start of _PyDateTime_DATETIMEHEAD
944944
// Start of _PyTZINFO_HEAD
945945
// Start of the Head of an object
946-
ob_refcnt : NativeInt;
946+
ob_refcnt : NativeUInt;
947947
ob_type : PPyTypeObject;
948948
// End of the Head of an object
949949
hashcode : Integer;
@@ -958,7 +958,7 @@ PyBufferProcs = record
958958
//bytearrayobject.h
959959

960960
PyByteArrayObject = {$IFDEF CPUX86}packed{$ENDIF} record
961-
ob_refcnt: NativeInt;
961+
ob_refcnt: NativeUInt;
962962
ob_type: PPyTypeObject;
963963
ob_alloc: Py_ssize_t;
964964
ob_bytes: PAnsiChar;
@@ -2576,9 +2576,9 @@ TPythonModule = class(TMethodsContainer)
25762576
// The base class of all new Python types
25772577
TPyObject = class
25782578
private
2579-
function Get_ob_refcnt: NativeInt;
2579+
function Get_ob_refcnt: NativeUInt;
25802580
function Get_ob_type: PPyTypeObject;
2581-
procedure Set_ob_refcnt(const Value: NativeInt);
2581+
procedure Set_ob_refcnt(const Value: NativeUInt);
25822582
procedure Set_ob_type(const Value: PPyTypeObject);
25832583
public
25842584
PythonType : TPythonType;
@@ -2599,7 +2599,7 @@ TPyObject = class
25992599
procedure Adjust(PyPointer: Pointer);
26002600
function GetModule : TPythonModule;
26012601

2602-
property ob_refcnt : NativeInt read Get_ob_refcnt write Set_ob_refcnt;
2602+
property ob_refcnt : NativeUInt read Get_ob_refcnt write Set_ob_refcnt;
26032603
property ob_type : PPyTypeObject read Get_ob_type write Set_ob_type;
26042604

26052605
// Type services
@@ -7816,7 +7816,7 @@ function TPyObject.GetModule : TPythonModule;
78167816
Result := nil;
78177817
end;
78187818

7819-
function TPyObject.Get_ob_refcnt: NativeInt;
7819+
function TPyObject.Get_ob_refcnt: NativeUInt;
78207820
begin
78217821
Result := GetSelf^.ob_refcnt;
78227822
end;
@@ -7826,7 +7826,7 @@ function TPyObject.Get_ob_type: PPyTypeObject;
78267826
Result := GetSelf^.ob_type;
78277827
end;
78287828

7829-
procedure TPyObject.Set_ob_refcnt(const Value: NativeInt);
7829+
procedure TPyObject.Set_ob_refcnt(const Value: NativeUInt);
78307830
begin
78317831
GetSelf^.ob_refcnt := Value;
78327832
end;

0 commit comments

Comments
 (0)