Work around the SANE comp conversion bug in another place.

This affects casts to comp evaluated at compile time, e.g.:

static comp c = (comp)-53019223785472.0;

CGI.pas

@@ -1413,10 +1413,15 @@ case tp of
              d := rval;
              rval := d;
              end;
-   cgComp:   begin
+   cgComp:   if rval < 0.0 then begin
-             c := rval;
+                {work around SANE comp conversion bug}
-             rval := c;
+                c := -rval;
-             end;
+                rval := -c;
+                end {if}
+             else begin
+                c := rval;
+                rval := c;
+                end; {else}
    cgExtended: ;
    end; {case}
 end; {LimitPrecision}