paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-06 10:07:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* when creating the reverse endian .bcm file, zero fill all the records, before

Browse Source 
filling them in, so that the alignment space inside the records is filled with
  zeros, instead of random uninitialized bytes

git-svn-id: trunk@36438 -
This commit is contained in:
nickysn 2017-06-06 14:57:22 +00:00
parent e06f1f89ef
commit cad2b985d6
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
utils/creumap.pp
View File

@ -63,6 +63,7 @@ const
BlockWrite(nef,AMap^.reversemap^,h.reverseMapLength);
Close(nef);
FillChar(th,SizeOf(th),0);
th.cpName := h.cpName;
th.cp := SwapEndian(h.cp);
th.mapLength := SwapEndian(h.mapLength);
@ -72,6 +73,7 @@ const
Rewrite(oef);
BlockWrite(oef,th,SizeOf(th));
pum := AMap^.map;
FillChar(um,SizeOf(um),0);
for k := 0 to AMap^.lastchar do begin
um.flag := pum^.flag;
um.reserved := pum^.reserved;
@ -80,6 +82,7 @@ const
Inc(pum);
end;
prm := AMap^.reversemap;
FillChar(rm,SizeOf(rm),0);
for k := 0 to AMap^.reversemaplength - 1 do begin
rm.unicode := SwapEndian(prm^.unicode);
rm.char1 := prm^.char1;