Преглед на файлове

* new macro expansion problem

peter преди 21 години
родител
ревизия
46472dc0da
променени са 1 файла, в които са добавени 23 реда и са изтрити 0 реда
  1. 23 0
      tests/tbs/tb0472.pp

+ 23 - 0
tests/tbs/tb0472.pp

@@ -0,0 +1,23 @@
+{$macro on}
+
+{$define aaa:=1234}
+{$define bbb:=4321}
+
+{$define ccc:=aaa} // here aaa is already defined macros
+
+var
+  err : boolean;
+begin
+  err:=true;
+{$if aaa=ccc} // condition is equal
+  // but compiler not compiling this block, because
+  // don't take into account that value of macros ccc is macros also.
+  err:=false;
+  writeln('success');
+{$else}
+  writeln('failure');
+{$endif}
+  if err then
+   halt(1);
+end.
+