Fix for variables longer than 127 chars

compiler/symbase.pas

@@ -362,10 +362,8 @@ implementation
            are renamed to an unique (and for users unaccessible) name }
          if sym.realname[1]='$' then
            sym.ChangeOwnerAndName(SymList,Copy(sym.realname,2,maxidlen+1))
-{$ifdef symansistr}
          else if length(sym.realname)>maxidlen then
            sym.ChangeOwnerAndName(SymList,Upper(Copy(sym.realname,1,maxidlen)))
-{$endif}
          else
            sym.ChangeOwnerAndName(SymList,Upper(sym.realname));
          sym.Owner:=self;

tests/webtbs/tw39661f.pp

@@ -0,0 +1,10 @@
+const
+  D3D12_VIDEO_ENCODER_CODEC_CONFIGURATION_H264_SLICES_DEBLOCKING_MODE_FLAG_6_DISABLE_CHROMA_BLOCK_EDGES_AND_USE_LUMA_TWO_STAGE_DEBLOCKING = $00000040;
+var
+  i_D3D12_VIDEO_ENCODER_CODEC_CONFIGURATION_H264_SLICES_DEBLOCKING_MODE_FLAG_6_DISABLE_CHROMA_BLOCK_EDGES_AND_USE_LUMA_TWO_STAGE_DEBLOCKING : UInt32;
+begin
+  i_D3D12_VIDEO_ENCODER_CODEC_CONFIGURATION_H264_SLICES_DEBLOCKING_MODE_FLAG_6_DISABLE_CHROMA_BLOCK_EDGES_AND_USE_LUMA_TWO_STAGE_DEBLOCKING := D3D12_VIDEO_ENCODER_CODEC_CONFIGURATION_H264_SLICES_DEBLOCKING_MODE_FLAG_6_DISABLE_CHROMA_BLOCK_EDGES_AND_USE_LUMA_TWO_STAGE_DEBLOCKING;
+  if i_D3D12_VIDEO_ENCODER_CODEC_CONFIGURATION_H264_SLICES_DEBLOCKING_MODE_FLAG_6_DISABLE_CHROMA_BLOCK_EDGES_AND_USE_LUMA_TWO_STAGE_DEBLOCKING <> $40 then
+    halt(1);
+end.
+