Parcourir la source

* fixed compilation with 2.2.0 on big endian systems after r10432

git-svn-id: trunk@10443 -
Jonas Maebe il y a 17 ans
Parent
commit
632570fc74
1 fichiers modifiés avec 4 ajouts et 3 suppressions
  1. 4 3
      compiler/ncgcon.pas

+ 4 - 3
compiler/ncgcon.pas

@@ -514,6 +514,10 @@ implementation
 
     procedure tcgsetconstnode.pass_generate_code;
 
+      type
+         setbytes=array[0..31] of byte;
+         Psetbytes=^setbytes;
+
         procedure smallsetconst;
         begin
           location_reset(location,LOC_CONSTANT,int_cgsize(resultdef.size));
@@ -550,9 +554,6 @@ implementation
            lastlabel   : tasmlabel;
            i, diff     : longint;
            neededtyp   : taiconst_type;
-        type
-           setbytes=array[0..31] of byte;
-           Psetbytes=^setbytes;
         begin
           location_reset(location,LOC_CREFERENCE,OS_NO);
           neededtyp:=aitconst_8bit;