The following patch fixes a broken TTarget.Mode.
Darius
Index: src/fpmkunit.pp
===================================================================
--- src/fpmkunit.pp (revision 9207)
+++ src/fpmkunit.pp (working copy)
@@ -1206,6 +1208,7 @@
begin
Result:=LowerCase(GetenumName(TypeInfo(TCompilerMode),Ord(Mode)));
+ Result := Copy(Result, 3, Length(Result) - 2);
end;
Function StringToMode(const S : String) : TCompilerMode;
_______________________________________________
fpc-devel maillist - fpc-devel@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-devel
