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

* Fix endian issue in ppuload/ppuwrite.

Browse Source 
git-svn-id: trunk@7919 -
This commit is contained in:
daniel 2007-07-02 06:18:38 +00:00
parent b64558620f
commit df1e31034a
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/ncon.pas
View File

@ -973,7 +973,7 @@ implementation
inherited ppuload(t,ppufile); inherited ppuload(t,ppufile);
ppufile.getderef(typedefderef); ppufile.getderef(typedefderef);
new(value_set); new(value_set);
ppufile.getdata(value_set^,sizeof(tconstset)); ppufile.getnormalset(value_set^);
end; end;
@ -981,7 +981,7 @@ implementation
begin begin
inherited ppuwrite(ppufile); inherited ppuwrite(ppufile);
ppufile.putderef(typedefderef); ppufile.putderef(typedefderef);
ppufile.putdata(value_set^,sizeof(tconstset)); ppufile.putnormalset(value_set^);
end; end;