Skip to content
GitLab
Explore
Sign in
Primary navigation
Search or go to…
Project
G
gcc-cobol
Manage
Activity
Members
Labels
Plan
Issues
Issue boards
Milestones
Wiki
Code
Merge requests
Repository
Branches
Commits
Tags
Repository graph
Compare revisions
Snippets
Build
Pipelines
Jobs
Pipeline schedules
Artifacts
Deploy
Releases
Package Registry
Container Registry
Model registry
Operate
Environments
Terraform modules
Monitor
Incidents
Analyze
Value stream analytics
Contributor analytics
CI/CD analytics
Repository analytics
Model experiments
Help
Help
Support
GitLab documentation
Compare GitLab plans
Community forum
Contribute to GitLab
Provide feedback
Keyboard shortcuts
?
Snippets
Groups
Projects
Show more breadcrumbs
COBOLworx
gcc-cobol
Commits
4be9a940
Commit
4be9a940
authored
15 years ago
by
Joseph Myers
Committed by
Joseph Myers
15 years ago
Browse files
Options
Downloads
Patches
Plain Diff
* symcat.h (CONCAT5, CONCAT6, XCONCAT5, XCONCAT6): Define.
From-SVN: r157674
parent
54add740
No related branches found
No related tags found
No related merge requests found
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
include/ChangeLog
+4
-0
4 additions, 0 deletions
include/ChangeLog
include/symcat.h
+7
-1
7 additions, 1 deletion
include/symcat.h
with
11 additions
and
1 deletion
include/ChangeLog
+
4
−
0
View file @
4be9a940
2010-03-23 Joseph Myers <joseph@codesourcery.com>
* symcat.h (CONCAT5, CONCAT6, XCONCAT5, XCONCAT6): Define.
2010-01-13 Joel Brobecker <brobecker@adacore.com>
Add new DW_AT_use_GNAT_descriptive_type CU attribute.
...
...
This diff is collapsed.
Click to expand it.
include/symcat.h
+
7
−
1
View file @
4be9a940
/* Symbol concatenation utilities.
Copyright (C) 1998, 2000 Free Software Foundation, Inc.
Copyright (C) 1998, 2000
, 2010
Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
...
...
@@ -23,6 +23,8 @@
#define CONCAT2(a,b) a##b
#define CONCAT3(a,b,c) a##b##c
#define CONCAT4(a,b,c,d) a##b##c##d
#define CONCAT5(a,b,c,d,e) a##b##c##d##e
#define CONCAT6(a,b,c,d,e,f) a##b##c##d##e##f
#define STRINGX(s) #s
#else
/* Note one should never pass extra whitespace to the CONCATn macros,
...
...
@@ -32,12 +34,16 @@
#define CONCAT2(a,b) a
/**/
b
#define CONCAT3(a,b,c) a
/**/
b
/**/
c
#define CONCAT4(a,b,c,d) a
/**/
b
/**/
c
/**/
d
#define CONCAT5(a,b,c,d,e) a
/**/
b
/**/
c
/**/
d
/**/
e
#define CONCAT6(a,b,c,d,e,f) a
/**/
b
/**/
c
/**/
d
/**/
e
/**/
f
#define STRINGX(s) "s"
#endif
#define XCONCAT2(a,b) CONCAT2(a,b)
#define XCONCAT3(a,b,c) CONCAT3(a,b,c)
#define XCONCAT4(a,b,c,d) CONCAT4(a,b,c,d)
#define XCONCAT5(a,b,c,d,e) CONCAT5(a,b,c,d,e)
#define XCONCAT6(a,b,c,d,e,f) CONCAT6(a,b,c,d,e,f)
/* Note the layer of indirection here is typically used to allow
stringification of the expansion of macros. I.e. "#define foo
...
...
This diff is collapsed.
Click to expand it.
Preview
0%
Loading
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Save comment
Cancel
Please
register
or
sign in
to comment