Преглед изворни кода

* Fix remaining constexp issues: powerpc,libcurl,browcol

git-svn-id: trunk@7656 -
daniel пре 18 година
родитељ
комит
2e57912288
3 измењених фајлова са 3 додато и 3 уклоњено
  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
 
 uses
-  globtype,globals,comphook,
+  globtype,globals,comphook,constexp,
 {$ifdef DEBUG}
   verbose,
 {$endif DEBUG}

+ 1 - 1
compiler/constexp.pas

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

+ 1 - 1
compiler/ncon.pas

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