|
@@ -121,6 +121,10 @@ unit cgcpu;
|
|
tgobj,
|
|
tgobj,
|
|
hlcgobj;
|
|
hlcgobj;
|
|
|
|
|
|
|
|
+{ Range check must be disabled explicitly as the code uses
|
|
|
|
+ implicit typecast to aint troughout }
|
|
|
|
+{$R-}
|
|
|
|
+
|
|
function use_push(const cgpara:tcgpara):boolean;
|
|
function use_push(const cgpara:tcgpara):boolean;
|
|
begin
|
|
begin
|
|
result:=(not paramanager.use_fixed_stack) and
|
|
result:=(not paramanager.use_fixed_stack) and
|