Sfoglia il codice sorgente

* fixed wrong unaligned() changes

git-svn-id: trunk@9303 -
Jonas Maebe 18 anni fa
parent
commit
80b8494b5c
1 ha cambiato i file con 2 aggiunte e 2 eliminazioni
  1. 2 2
      compiler/ppu.pas

+ 2 - 2
compiler/ppu.pas

@@ -591,7 +591,7 @@ begin
 {$ifdef FPC_UNALIGNED_FIXED}
   if bufsize-bufidx>=sizeof(word) then
     begin
-      result:=Unaligned(pword(@buf[bufidx]))^;
+      result:=Unaligned(pword(@buf[bufidx])^);
       inc(bufidx,sizeof(word));
     end
   else
@@ -614,7 +614,7 @@ begin
 {$ifdef FPC_UNALIGNED_FIXED}
   if bufsize-bufidx>=sizeof(longint) then
     begin
-      result:=Unaligned(plongint(@buf[bufidx]))^;
+      result:=Unaligned(plongint(@buf[bufidx])^);
       inc(bufidx,sizeof(longint));
     end
   else