bug227-230 + 234

tests/tbf0230.pp

@@ -8,7 +8,7 @@ var
 
 begin
  e:=-1.0;
- writeln(ln(e));
  writeln(ln(0));
  writeln(power(0,1.0));
+ writeln(ln(e));
 end .

tests/tbs0227.pp

@@ -0,0 +1,11 @@
+function getheapsize:longint;assembler;
+var
+  heapsize : longint;external name 'HEAPSIZE';
+asm
+        movl    HEAPSIZE,%eax
+end ['EAX'];
+
+begin
+  writeln(getheapsize);
+end.
+

tests/tbs0228.pp

@@ -0,0 +1,15 @@
+PROGRAM Buggy;
+
+{$ASMMODE ATT}
+
+PROCEDURE XX;  ASSEMBLER;
+TYPE
+  TabType=ARRAY[0..3] OF BYTE;
+CONST
+  TabCent   : TabType = (0,6,4,2);
+ASM
+    movzbl TabCent(,%eax),%ebx
+END;
+
+BEGIN
+END.

tests/tbs0230.pp

@@ -0,0 +1,14 @@
+{$ifdef go32v2}
+uses
+   dpmiexcp;
+{$endif}
+
+var
+   e : extended;
+
+begin
+ writeln('ln(0) = ',ln(0));
+ writeln(' zero ^ one = ',power(0,1.0));
+ e:=563545;
+ writeln('exp(',e,') = ',exp(e));
+end .