paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-11 01:38:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed type = type ...; statement for 1.1

Browse Source
This commit is contained in:
florian 2003-01-05 15:55:06 +00:00
parent 07110d20f9
commit e7fabafd73
2 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
fcl/inc/gettext.pp
View File

@ -68,7 +68,7 @@ type
function Translate(AOrig: String): String;
end;
EMOFileError = type Exception;
EMOFileError = class(Exception);
procedure TranslateResourceStrings(AFile: TMOFile);
@ -310,7 +310,10 @@ end.
{
$Log$
Revision 1.6 2002-09-07 15:15:24 peter
Revision 1.7 2003-01-05 15:55:06 florian
* fixed type = type ...; statement for 1.1
Revision 1.6 2002/09/07 15:15:24 peter
* old logs removed and tabs fixed
Revision 1.5 2002/01/19 11:54:52 peter

7
fcl/xml/sax.pp
View File

@ -148,7 +148,7 @@ type
{ TSAXReader: Reading an XML document using callbacks }
TCharactersEvent = procedure(Sender: TObject; const ch: PSAXChar; AStart, ALength: Integer) of object;
TCommentEvent = type TCharactersEvent;
TCommentEvent = procedure(Sender: TObject; const ch: PSAXChar; AStart, ALength: Integer) of object;
TEndElementEvent = procedure(Sender: TObject; const NamespaceURI, LocalName, QName: SAXString) of object;
TEndPrefixMappingEvent = procedure(Sender: TObject; const Prefix: SAXString) of object;
TIgnorableWhitespaceEvent = procedure(Sender: TObject; const ch: PSAXChar; AStart, ALength: Integer) of object;
@ -934,7 +934,10 @@ end.
{
$Log$
Revision 1.2 2002-12-12 13:43:38 michael
Revision 1.3 2003-01-05 15:55:16 florian
* fixed type = type ...; statement for 1.1
Revision 1.2 2002/12/12 13:43:38 michael
+ Patches from peter to fix 1.1 compile
Revision 1.1 2002/12/11 21:06:07 sg