Fix compilation

spirv/srCacheOp.pas

@@ -15,9 +15,10 @@ uses
 type
  PsrCacheOp=^TsrCacheOp;
  TsrCacheOp=object
-  private
+  public
    pLeft,pRight:PsrCacheOp;
-   //----
+   function  c(n1,n2:PsrCacheOp):Integer; static;
+  private
    key:packed record
     place:PsrOpBlock;
     OpId:DWORD;
@@ -25,7 +26,6 @@ type
     count:DWORD;
    end;
    pData:PPsrRegNode;
-   function  c(n1,n2:PsrCacheOp):Integer; static;
   public
    pDst:PsrNode;
  end;

spirv/srConst.pas

@@ -32,15 +32,15 @@ type
  PPsrConst=^PsrConst;
  PsrConst=^TsrConst;
  TsrConst=packed object(TsrNode)
-  private
+  public
    pPrev,pNext,pLeft,pRight:PsrConst;
-   //--
+   function  c(n1,n2:PsrConst):Integer; static;
+  private
    ID:TsrRefId; //post id
    fOpId:WORD;
    fCount:WORD;
    FType:PsrType;
    pData:PPsrNode;
-   function  c(n1,n2:PsrConst):Integer; static;
   public
    property  pType:PsrType     read FType;
    property  OpId:WORD         read fOpId;

spirv/srDecorate.pas

@@ -19,14 +19,14 @@ type
 
  PsrDecorate=^TsrDecorate;
  TsrDecorate=object
-  private
+  public
    pLeft,pRight:PsrDecorate;
-   //----
+   function  c(n1,n2:PsrDecorate):Integer; static;
+  private
    key:packed record
     data:PsrNode;
     param:array[0..2] of DWORD;
    end;
-   function  c(n1,n2:PsrDecorate):Integer; static;
   public
    node:PSpirvOp;
  end;

spirv/srFragLayout.pas

@@ -33,11 +33,11 @@ type
 
  PsrFragLayout=^TsrFragLayout;
  TsrFragLayout=object(TsrDescriptor)
-  private
+  public
    pLeft,pRight:PsrFragLayout;
-   //----
-   itype:TpsslInputType;
    function  c(n1,n2:PsrFragLayout):Integer; static;
+  private
+   itype:TpsslInputType;
   public
    pReg:PsrRegNode;
    Procedure Init; inline;

spirv/srInput.pas

@@ -69,14 +69,14 @@ type
  PsrInput=^TsrInput;
 
  TsrInput=object(TsrDescriptor)
-  private
+  public
    pLeft,pRight:PsrInput;
-   //----
+   function  c(n1,n2:PsrInput):Integer; static;
+  private
    key:packed record
     itype:TpsslInputType;
     typeid:Byte;
    end;
-   function  c(n1,n2:PsrInput):Integer; static;
   public
    pReg:PsrRegNode;
    property  itype:TpsslInputType read key.itype;

spirv/srLayout.pas

@@ -73,9 +73,10 @@ type
     pLine:PspirvOp;
    end;
    TNodeList=specialize TNodeList<PVNode>;
-  private
+  public
    pLeft,pRight:PsrChain;
-   //--
+   function  c(n1,n2:PsrChain):Integer; static;
+  private
    fwrite_count:DWORD;
    //--
    ID:TsrRefId; //post id
@@ -88,7 +89,6 @@ type
    FWriter:PsrNode;
    Fdtype:TsrDataType;
    FList:TNodeList;
-   function  c(n1,n2:PsrChain):Integer; static;
    Procedure SetWriter(t:PsrNode);
    Function  GetWriter:PsrNode;
    Procedure SetBuffer(t:PsrNode);

spirv/srLiteral.pas

@@ -29,7 +29,7 @@ type
 
  PsrLiteral=^TsrLiteral;
  TsrLiteral=object(TsrNode)
-  private
+  public
    pLeft,pRight:PsrLiteral;
   public
    dtype:TsrDataType;

spirv/srOp.pas

@@ -50,8 +50,9 @@ type
 
  POpParamNode=^TOpParamNode;
  TOpParamNode=packed object
-  private
+  public
    pNext:POpParamNode;
+  private
    pParent:PspirvOp;
    pValue:PsrNode;
    procedure SetValue(v:PsrNode);
@@ -69,8 +70,9 @@ type
 
  PsrOpCustom=^TsrOpCustom;
  TsrOpCustom=object(TsrNode)
-  private
+  public
    pPrev,pNext:PsrOpCustom;
+  private
    pParent:PsrOpBlock;
  end;
 
@@ -181,14 +183,14 @@ type
 
  PSpirvFunc=^TSpirvFunc;
  TSpirvFunc=object(TsrNode)
-  private
+  public
    pPrev,pNext,pLeft,pRight:PSpirvFunc;
-   //----
+   function  c(n1,n2:PSpirvFunc):Integer; static;
+  private
    FName:RawByteString;
    FTop:TsrOpBlock;
    FBlock:PsrOpBlock;
    ID:TsrRefId; //post id
-   function  c(n1,n2:PSpirvFunc):Integer; static;
   public
    property  Name:RawByteString read FName;
    property  pBlock:PsrOpBlock  read FBlock;

spirv/srPrivate.pas

@@ -66,16 +66,16 @@ type
    end;
    TNodeList=specialize TNodeList<PVNode>;
    TVoltList=specialize TNodeList<PsrVolatile>;
-  private
+  public
    pLeft,pRight:PsrPrivate;
-   //----
+   function  c(n1,n2:PsrPrivate):Integer; static;
+  private
    fwrite_count:DWORD;
    //
    FSource:PsrRegSlot;
    //
    FLineList:TNodeList;
    FVoltList:TVoltList;
-   function  c(n1,n2:PsrPrivate):Integer; static;
    Procedure SetRegType(rtype:TsrDataType);
    function  GetRegType:TsrDataType;
   public

spirv/srReg.pas

@@ -46,9 +46,9 @@ type
  TRegDNodeList=specialize TNodeStack<PRegDNode>;
 
  TsrRegNode=packed object(TsrNode)
-  private
+  public
    pPrev,pNext:PsrRegNode;
-   //
+  private
    ID:TsrRefId;            //post id
    F:bitpacked record
     dtype:TsrDataType;

spirv/srTypes.pas

@@ -26,16 +26,16 @@ type
  PPsrType=^PsrType;
  PsrType=^TsrType;
  TsrType=packed object(TsrNode)
-  private
+  public
    pPrev,pNext,pLeft,pRight:PsrType;
-   //
+   function  c(n1,n2:PsrType):Integer; static;
+  private
    ID:TsrRefId; //post id
    fdtype:TsrDataType;
    fsize:DWORD;
    fOpId:WORD;
    fcount:WORD;
    pData:PPsrNode;
-   function  c(n1,n2:PsrType):Integer; static;
   public
    property  size:DWORD        read fsize;
    property  OpId:WORD         read fOpId;

spirv/srUniform.pas

@@ -52,15 +52,15 @@ type
 
  PsrUniform=^TsrUniform;
  TsrUniform=object(TsrDescriptor)
-  private
+  public
    pLeft,pRight:PsrUniform;
-   //----
+   function  c(n1,n2:PsrUniform):Integer; static;
+  private
    pLayout:PsrDataLayout;
    //
    fwrite_count:DWORD;
    //
    FReg:TsrRegUniform;
-   function  c(n1,n2:PsrUniform):Integer; static;
   public
    Procedure Init; inline;
    function  pReg:PsrRegUniform; inline;

spirv/srVariable.pas

@@ -30,9 +30,9 @@ type
 
  PsrVariable=^TsrVariable;
  TsrVariable=packed object(TsrNode)
-  private
+  public
    pPrev,pNext:PsrVariable;
-   //
+  private
    fwrite_count:DWORD;
    ID:TsrRefId;      //post id
    FType:PsrType;

spirv/srVertLayout.pas

@@ -23,11 +23,11 @@ type
 
  PsrVertLayout=^TsrVertLayout;
  TsrVertLayout=object(TsrDescriptor)
-  private
+  public
    pLeft,pRight:PsrVertLayout;
-   //----
-   pLayout:PsrDataLayout;
    function  c(n1,n2:PsrVertLayout):Integer; static;
+  private
+   pLayout:PsrDataLayout;
   public
    pReg:PsrRegNode;
    procedure Init(p:PsrDataLayout); inline;