瀏覽代碼

* Fix AV due to not initialized FullName field. Patch by Bart B. Fixes issue #40489

Michaël Van Canneyt 1 年之前
父節點
當前提交
4d1e201975
共有 1 個文件被更改,包括 4 次插入1 次删除
  1. 4 1
      packages/fcl-base/src/streamio.pp

+ 4 - 1
packages/fcl-base/src/streamio.pp

@@ -152,8 +152,11 @@ begin
     BufSize:=SizeOf(Buffer);
     BufPtr:=@Buffer;
     Name[0]:=#0;
+    {$ifdef FPC_HAS_FEATURE_UNICODESTRINGS}
+    FullName := nil;
+    {$endif FPC_HAS_FEATURE_UNICODESTRINGS}
     end;
-   SetTextCodePage(F,CP_ACP); 
+   SetTextCodePage(F,CP_ACP);
 end;