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

* don't use keywords for variables

Browse Source
This commit is contained in:
peter 2005-04-04 16:14:09 +00:00
parent 234df84b11
commit 5687c3c24c
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
rtl/inc/macpas.pp
View File

@ -37,7 +37,7 @@ function FOUR_CHAR_CODE(literal: string): LongWord; {$ifdef systeminline}inline;
{This makes casts from ShortString to FourCharCode automatically,
to emulate the behaviour of mac pascal compilers}
operator := (s: ShortString) result: LongWord; {$ifdef systeminline}inline;{$endif}
operator := (s: ShortString) res: LongWord; {$ifdef systeminline}inline;{$endif}
implementation
@ -53,9 +53,9 @@ begin
FOUR_CHAR_CODE := PLongWord(@literal[1])^;
end;
operator := (s: ShortString) result: LongWord; {$ifdef systeminline}inline;{$endif}
operator := (s: ShortString) res: LongWord; {$ifdef systeminline}inline;{$endif}
begin
result := PLongWord(@s[1])^;
res := PLongWord(@s[1])^;
end;
end.

6
rtl/win32/signals.pp
View File

@ -323,12 +323,12 @@ var
end;
function API_signals_exception_handler(except : PEXCEPTION_POINTERS) : longint; stdcall;
function API_signals_exception_handler(exceptptrs : PEXCEPTION_POINTERS) : longint; stdcall;
begin
API_signals_exception_handler:=Signals_exception_handler(
@except^.ExceptionRecord,
@exceptptrs^.ExceptionRecord,
nil,
@except^.ContextRecord,
@exceptptrs^.ContextRecord,
nil);
end;