paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 15:49:27 +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);
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;