paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-18 20:50:04 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fix modetostring

Browse Source 
git-svn-id: trunk@9227 -
This commit is contained in:
peter 2007-11-13 08:24:32 +00:00
parent 12d8b3f7e4
commit 5a57434f33
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
packages/fpmkunit/src/fpmkunit.pp
View File

@ -1206,6 +1206,7 @@ Function ModeToString(Mode: TCompilerMode) : String;
begin
Result:=LowerCase(GetenumName(TypeInfo(TCompilerMode),Ord(Mode)));
Delete(Result,1,2);
end;
Function StringToMode(const S : String) : TCompilerMode;