paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-16 18:59:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

--- Merging r36438 into '.':

Browse Source 
U    utils/creumap.pp
--- Recording mergeinfo for merge of r36438 into '.':
 U   .

# revisions: 36438

git-svn-id: branches/fixes_3_0@37132 -
This commit is contained in:
marco 2017-09-03 15:20:25 +00:00
parent 5a4f76528f
commit 98001a7411
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); BlockWrite(nef,AMap^.reversemap^,h.reverseMapLength);
Close(nef); Close(nef);
FillChar(th,SizeOf(th),0);
th.cpName := h.cpName; th.cpName := h.cpName;
th.cp := SwapEndian(h.cp); th.cp := SwapEndian(h.cp);
th.mapLength := SwapEndian(h.mapLength); th.mapLength := SwapEndian(h.mapLength);
@ -72,6 +73,7 @@ const
Rewrite(oef); Rewrite(oef);
BlockWrite(oef,th,SizeOf(th)); BlockWrite(oef,th,SizeOf(th));
pum := AMap^.map; pum := AMap^.map;
FillChar(um,SizeOf(um),0);
for k := 0 to AMap^.lastchar do begin for k := 0 to AMap^.lastchar do begin
um.flag := pum^.flag; um.flag := pum^.flag;
um.reserved := pum^.reserved; um.reserved := pum^.reserved;
@ -80,6 +82,7 @@ const
Inc(pum); Inc(pum);
end; end;
prm := AMap^.reversemap; prm := AMap^.reversemap;
FillChar(rm,SizeOf(rm),0);
for k := 0 to AMap^.reversemaplength - 1 do begin for k := 0 to AMap^.reversemaplength - 1 do begin
rm.unicode := SwapEndian(prm^.unicode); rm.unicode := SwapEndian(prm^.unicode);
rm.char1 := prm^.char1; rm.char1 := prm^.char1;