← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to rtl/objpas/sysutils/sysint.inc

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
rtl/objpas/sysutils/sysint.inc
1
1
{
2
 
    $Id: sysint.inc,v 1.3 2005/03/13 14:30:24 marco Exp $
3
2
    This file is part of the Free Pascal run time library.
4
3
    Copyright (c) 2005 by the Free Pascal development team
5
4
 
20
19
    fillchar(SysLocale,sizeof(SysLocale),0);
21
20
    
22
21
    { keep these routines out of the executable? }
23
 
{$ifndef VER1_0}
24
22
{$ifndef FPC_NOGENERICANSIROUTINES}
25
23
    widestringmanager.UpperAnsiStringProc:=@GenericAnsiUpperCase;
26
24
    widestringmanager.LowerAnsiStringProc:=@GenericAnsiLowerCase;    
33
31
    widestringmanager.StrLowerAnsiStringProc:=@GenericAnsiStrLower;
34
32
    widestringmanager.StrUpperAnsiStringProc:=@GenericAnsiStrUpper;
35
33
{$endif FPC_NOGENERICANSIROUTINES}    
36
 
{$endif}
37
34
  end;
38
35
  
39
 
{
40
 
  $Log: sysint.inc,v $
41
 
  Revision 1.3  2005/03/13 14:30:24  marco
42
 
   * some 1.0.x fixes
43
 
 
44
 
  Revision 1.2  2005/03/12 14:56:22  florian
45
 
    + added Ansi* routines to widestring manager
46
 
    * made them using OS calls on windows
47
 
 
48
 
  Revision 1.1  2005/02/26 19:25:01  florian
49
 
    + initial commit
50
 
}  
 
 
b'\\ No newline at end of file'