paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-31 18:30:29 +02:00
Code Issues Packages Projects Releases Wiki Activity

* changed some message handling to ansistring, no slow down measurable with make cycle, resolves #8890

Browse Source 
git-svn-id: trunk@7370 -
This commit is contained in:
florian 2007-05-16 21:25:55 +00:00
parent d8c741f472
commit 39dc562326
2 changed files with 21 additions and 21 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
compiler/cmsgs.pas
View File

@ -52,7 +52,7 @@ type
procedure ClearIdx;
procedure CreateIdx;
function GetPChar(nr:longint):pchar;
function Get(nr:longint;const args:array of string):string;
function Get(nr:longint;const args:array of string):ansistring;
end;
{ this will read a line until #10 or #0 and also increase p }
@ -66,11 +66,11 @@ uses
cutils;
function MsgReplace(const s:string;const args:array of string):string;
function MsgReplace(const s:string;const args:array of string):ansistring;
var
last,
i : longint;
hs : string;
hs : ansistring;
begin
if s='' then
@ -375,7 +375,7 @@ begin
end;
function TMessage.Get(nr:longint;const args:array of string):string;
function TMessage.Get(nr:longint;const args:array of string):ansistring;
var
hp : pchar;
begin

34
compiler/comphook.pas
View File

@ -121,7 +121,7 @@ var
{ Default Functions }
Function def_status:boolean;
Function def_comment(Level:Longint;const s:string):boolean;
Function def_comment(Level:Longint;const s:ansistring):boolean;
function def_internalerror(i:longint):boolean;
procedure def_initsymbolinfo;
procedure def_donesymbolinfo;
@ -132,7 +132,7 @@ Function def_getnamedfiletime(Const F : String) : Longint;
type
tstopprocedure = procedure(err:longint);
tstatusfunction = function:boolean;
tcommentfunction = function(Level:Longint;const s:string):boolean;
tcommentfunction = function(Level:Longint;const s:ansistring):boolean;
tinternalerrorfunction = function(i:longint):boolean;
tinitsymbolinfoproc = procedure;
@ -198,22 +198,22 @@ end;
Stopping the compiler
****************************************************************************}
constructor EControlCAbort.Create;
begin
inherited Create('Ctrl-C Signaled!');
end;
constructor EControlCAbort.Create;
begin
inherited Create('Ctrl-C Signaled!');
end;
constructor ECompilerAbort.Create;
begin
inherited Create('Compilation Aborted');
end;
constructor ECompilerAbort.Create;
begin
inherited Create('Compilation Aborted');
end;
constructor ECompilerAbortSilent.Create;
begin
inherited Create('Compilation Aborted');
end;
constructor ECompilerAbortSilent.Create;
begin
inherited Create('Compilation Aborted');
end;
{****************************************************************************
@ -243,13 +243,13 @@ begin
end;
Function def_comment(Level:Longint;const s:string):boolean;
Function def_comment(Level:Longint;const s:ansistring):boolean;
const
rh_errorstr = 'error:';
rh_warningstr = 'warning:';
var
hs : string;
hs2 : string;
hs : ansistring;
hs2 : ansistring;
begin
def_comment:=false; { never stop }
hs:='';