Forráskód Böngészése

* Fix remaining constexp issues: powerpc,libcurl,browcol

git-svn-id: trunk@7656 -
daniel 18 éve
szülő
commit
2e57912288
3 módosított fájl, 3 hozzáadás és 3 törlés
  1. 1 1
      compiler/browcol.pas
  2. 1 1
      compiler/constexp.pas
  3. 1 1
      compiler/ncon.pas

+ 1 - 1
compiler/browcol.pas

@@ -266,7 +266,7 @@ procedure RegisterSymbols;
 implementation
 implementation
 
 
 uses
 uses
-  globtype,globals,comphook,
+  globtype,globals,comphook,constexp,
 {$ifdef DEBUG}
 {$ifdef DEBUG}
   verbose,
   verbose,
 {$endif DEBUG}
 {$endif DEBUG}

+ 1 - 1
compiler/constexp.pas

@@ -355,7 +355,7 @@ begin
       if sa xor sb then
       if sa xor sb then
         begin
         begin
           result.signed:=true;
           result.signed:=true;
-          result.svalue:=r;
+          result.svalue:=-r;
         end
         end
       else
       else
         begin
         begin

+ 1 - 1
compiler/ncon.pas

@@ -216,7 +216,7 @@ implementation
         htype : tdef;
         htype : tdef;
       begin
       begin
          htype:=v.definition;
          htype:=v.definition;
-         genenumnode:=cordconstnode.create(v.value,htype,true);
+         genenumnode:=cordconstnode.create(int64(v.value),htype,true);
       end;
       end;