diff options
Diffstat (limited to 'misc/pascal/tests')
-rw-r--r-- | misc/pascal/tests/src/006-optconst.pas | 4 | ||||
-rw-r--r-- | misc/pascal/tests/src/202-strcmp.pas | 12 | ||||
-rw-r--r-- | misc/pascal/tests/src/501-uses.pas | 4 | ||||
-rw-r--r-- | misc/pascal/tests/src/803-redirect.pas | 2 | ||||
-rw-r--r-- | misc/pascal/tests/src/804-cgiform.pas | 2 | ||||
-rw-r--r-- | misc/pascal/tests/src/805-cgimail.pas | 2 | ||||
-rw-r--r-- | misc/pascal/tests/src/806-cgicook.pas | 2 | ||||
-rw-r--r-- | misc/pascal/tests/src/901-pageutils.pas | 16 |
8 files changed, 22 insertions, 22 deletions
diff --git a/misc/pascal/tests/src/006-optconst.pas b/misc/pascal/tests/src/006-optconst.pas index 511d807eb..43f50adb4 100644 --- a/misc/pascal/tests/src/006-optconst.pas +++ b/misc/pascal/tests/src/006-optconst.pas @@ -1,7 +1,7 @@ { A test of constant optimiztion } program constopt; -var +var i1, i2, i3 : integer; b1 : boolean begin @@ -11,7 +11,7 @@ begin 3. *, DIV, AND, SHL, SHR 4. -, NOT } - + i1 := -2; { -2 } i1 := 3 * 2; { 6 } i1 := 3 * (-2); { -6 } diff --git a/misc/pascal/tests/src/202-strcmp.pas b/misc/pascal/tests/src/202-strcmp.pas index cff214403..60c48f5b4 100644 --- a/misc/pascal/tests/src/202-strcmp.pas +++ b/misc/pascal/tests/src/202-strcmp.pas @@ -6,7 +6,7 @@ CONST lexmiddle2 = 'ZZZLexically Middl'; lexsmall = 'AAALexically Small'; lexnothing = '' -VAR +VAR string1, string2 : string; BEGIN IF (lexbig <= lexmiddle) THEN @@ -18,22 +18,22 @@ BEGIN writeln('ERROR: ', lexmiddle, ' > ', lexmiddle1) else writeln('OKAY: ', lexmiddle, ' <= ', lexmiddle1); - + IF (lexmiddle <> lexmiddle) THEN writeln('ERROR: ', lexmiddle, ' <> ', lexmiddle) else writeln('OKAY: ', lexmiddle, ' = ', lexmiddle); - + IF (lexmiddle = lexnothing) THEN writeln('ERROR: ', lexmiddle, ' = ', lexnothing) else writeln('OKAY: ', lexmiddle, ' <> ', lexnothing); - + IF (lexnothing <> lexnothing) THEN writeln('ERROR: ', lexnothing, ' <> ', lexnothing) else writeln('OKAY: ', lexnothing, ' = ', lexnothing); - + IF (lexmiddle < lexmiddle2) THEN writeln('ERROR: ', lexmiddle, ' < ', lexmiddle2) else @@ -43,5 +43,5 @@ BEGIN writeln('ERROR: ', lexsmall, ' >= ', lexmiddle) else writeln('OKAY: ', lexsmall, ' < ', lexmiddle) - + END. diff --git a/misc/pascal/tests/src/501-uses.pas b/misc/pascal/tests/src/501-uses.pas index 49c3cdaac..1b34add48 100644 --- a/misc/pascal/tests/src/501-uses.pas +++ b/misc/pascal/tests/src/501-uses.pas @@ -1,5 +1,5 @@ program MyProgram; - + uses MyCosineUnit in '501-unit-cosine.pas'; MySineUnit in '501-unit-sine.pas'; @@ -7,7 +7,7 @@ uses var x : real; - + begin write('Enter radians : '); read(x); diff --git a/misc/pascal/tests/src/803-redirect.pas b/misc/pascal/tests/src/803-redirect.pas index d53acc1e1..27afb5165 100644 --- a/misc/pascal/tests/src/803-redirect.pas +++ b/misc/pascal/tests/src/803-redirect.pas @@ -71,7 +71,7 @@ var NewLocation := BASE + value end else - ; (* do nothing we have an undefined form element *) + ; (* do nothing we have an undefined form element *) end; begin (* ProcessCGIData *) diff --git a/misc/pascal/tests/src/804-cgiform.pas b/misc/pascal/tests/src/804-cgiform.pas index e3043f548..0c94290ec 100644 --- a/misc/pascal/tests/src/804-cgiform.pas +++ b/misc/pascal/tests/src/804-cgiform.pas @@ -258,7 +258,7 @@ var GenerateBody; GenerateFooter; end; (* GenerateResponse *) - + procedure Shutdown; begin (* Shutdown *) dispose(NameValuePairs); diff --git a/misc/pascal/tests/src/805-cgimail.pas b/misc/pascal/tests/src/805-cgimail.pas index 5b16f8d52..fbb490229 100644 --- a/misc/pascal/tests/src/805-cgimail.pas +++ b/misc/pascal/tests/src/805-cgimail.pas @@ -254,7 +254,7 @@ var writeln(pipe, '.'); close(pipe); end; //SendEmailWithSendMail - + //*************************************************************** //PURPOSE: Sends and email message using the CDONTS components //NOTE: The CDONTS components were created by Microsoft to diff --git a/misc/pascal/tests/src/806-cgicook.pas b/misc/pascal/tests/src/806-cgicook.pas index 7da5ecffd..a7d2fa5fa 100644 --- a/misc/pascal/tests/src/806-cgicook.pas +++ b/misc/pascal/tests/src/806-cgicook.pas @@ -436,7 +436,7 @@ var begin (* GenerateBodyData *) writeln('<tr>'); writeln('<td width="100%">'); - + //Generate the HTML to display the cookies returned by the browser. writeln('<h1>Current Cookies</h1>'); iNumCookies := length(Cookies); //Number of cookies returned by the browser diff --git a/misc/pascal/tests/src/901-pageutils.pas b/misc/pascal/tests/src/901-pageutils.pas index 855620b1c..f78120eef 100644 --- a/misc/pascal/tests/src/901-pageutils.pas +++ b/misc/pascal/tests/src/901-pageutils.pas @@ -5268,7 +5268,7 @@ END; { change_const_line } { ************************* set_line_flags ******************************** } -PROCEDURE set_line_flags +PROCEDURE set_line_flags (page: page_pointer; ind: short; select, attribute: char; get_line_pointer: get_line_pointer_type) ; @@ -5301,7 +5301,7 @@ END; { set_line_flags } { ************************* get_line_flags ******************************** } -PROCEDURE get_line_flags +PROCEDURE get_line_flags (page: page_pointer; ind: short; VAR select, attribute: char; get_line_pointer: get_line_pointer_type) ; @@ -5326,7 +5326,7 @@ END; { get_line_flags } { ************************* is_selected *********************************** } -FUNCTION is_selected +FUNCTION is_selected (list: list_cb_type; page: page_pointer; ind: short; get_line_pointer: get_line_pointer_type): boolean ; @@ -5360,7 +5360,7 @@ END; { is_selected } { ************************* set_list_line_flags *************************** } -PROCEDURE set_list_line_flags +PROCEDURE set_list_line_flags (VAR list: list_cb_type; select, attribute: char; get_line_pointer: get_line_pointer_type ) ; @@ -5384,7 +5384,7 @@ END; { set_list_line_flags } { ************************* get_next_selected_line ************************ } -PROCEDURE get_next_selected_line +PROCEDURE get_next_selected_line (VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short; get_line_pointer: get_line_pointer_type) ; @@ -5408,7 +5408,7 @@ END; { get_next_selected_line } { ************************* get_prev_selected_line ************************ } -PROCEDURE get_prev_selected_line +PROCEDURE get_prev_selected_line (VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short; get_line_pointer: get_line_pointer_type) ; @@ -5432,7 +5432,7 @@ END; { get_prev_selected_line } { ************************* get_first_selected_line_m *********************** } -PROCEDURE get_first_selected_line_m +PROCEDURE get_first_selected_line_m (VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short; get_line_pointer: get_line_pointer_type) ; @@ -5453,7 +5453,7 @@ END; { get_first_selected_line_m } { ************************* get_first_selected_line ************************ } -PROCEDURE get_first_selected_line +PROCEDURE get_first_selected_line (VAR list: list_cb_type; VAR page: page_pointer; VAR ind: short; get_line_pointer: get_line_pointer_type) ; |