+ 275-279

bugs/bug0275.pp

@@ -0,0 +1,5 @@
+var
+  d : single;
+begin
+  writeln(longint(d));
+end.

bugs/bug0276.pp

@@ -0,0 +1,15 @@
+{$asmmode intel}
+type
+  trec = record
+    ypos,
+    xpos : longint;
+   end;
+var
+  rec : tRec;
+begin
+  asm
+     lea     edi, Rec
+     cmp   byte ptr [edi+tRec.Xpos], true
+     cmp   byte ptr [edi].trec.Xpos, true
+  end;
+end.

bugs/bug0277.pp

@@ -0,0 +1,5 @@
+  program bug0277;
+  const test_byte=pchar(1);
+  begin
+    writeln('Hello world');
+  end.

bugs/bug0278.pp

@@ -0,0 +1,29 @@
+{$ifdef fpc}{$mode tp}{$endif}
+unit bug0278;
+
+interface
+
+{
+a string constant within $IFDEF that
+contains "(*" causes an error;
+compile it with "ppc386 test -So"  or  "-Sd"
+}
+
+var
+  c : char;
+
+{$IFDEF not_defined}
+const
+   c = 'b''(*
+
+{ $else}
+
+var
+  c : char;
+
+{$ENDIF}
+
+
+implementation
+
+end.

bugs/bug0279.pp

@@ -0,0 +1,17 @@
+{$H+}
+Program AnsiTest;
+
+Type
+   PS=^String;
+
+var
+  P:PS;
+Begin
+  New(P);
+  P^:='';
+  P^:=P^+'BLAH';
+  P^:=P^+' '+P^;
+  Writeln(P^);
+  Dispose(P);
+end.
+

bugs/readme.txt

@@ -319,6 +319,8 @@ Fixed bugs:
   bug0264.pp   methodpointer bugs                                   OK 0.99.12b (FK)
   bug0267.pp   parameters after methodpointer are wrong             OK 0.99.12b (FK)
   bug0269.pp   wrong linenumber for repeat until when type mismatch OK 0.99.12b (PM)
+  bug0278.pp   (* in conditional code is handled wrong for tp,delphi OK 0.99.13 (PFV)
+
 
 Unproducable bugs:
 ------------------
@@ -363,3 +365,7 @@ bug0271.pp   abstract methods can't be assigned to methodpointers
 bug0272.pp   No error issued if wrong parameter in function inside a second function
 bug0273.pp   small array pushing to array of char procedure is wrong
 bug0274.pp   @(proc) is not allowed
+bug0275.pp   too many warnings
+bug0276.pp   Asm, intel reference parsing incompatibility
+bug0277.pp   typecasting with const not possible
+bug0279.pp   crash with ansistring and new(^ansistring)