Parcourir la source

* sizes2load handles OS_NO properly if one size is given

git-svn-id: trunk@4586 -
florian il y a 19 ans
Parent
commit
b3ae0c51a4
1 fichiers modifiés avec 5 ajouts et 0 suppressions
  1. 5 0
      compiler/x86/cgx86.pas

+ 5 - 0
compiler/x86/cgx86.pas

@@ -270,6 +270,11 @@ unit cgx86;
     procedure tcgx86.sizes2load(s1,s2 : tcgsize; var op: tasmop; var s3: topsize);
     procedure tcgx86.sizes2load(s1,s2 : tcgsize; var op: tasmop; var s3: topsize);
 
 
        begin
        begin
+         { ensure to have always valid sizes }
+         if s1=OS_NO then
+           s1:=s2;
+         if s2=OS_NO then
+           s2:=s1;
          case s2 of
          case s2 of
            OS_8,OS_S8 :
            OS_8,OS_S8 :
              if S1 in [OS_8,OS_S8] then
              if S1 in [OS_8,OS_S8] then